رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
شایان آباد

Array tools: getDimSize and getSize

پست های پیشنهاد شده

شایان آباد    6,137

بنیان گذار و مدیر فنی

Sub getDimSize(MyArray As Object, Dimension As Int) As String

Dim r As Reflector

Dim temp As String

Dim dims() As Int

r.Target = MyArray

dims = r.TargetRank

If Dimension <= 0 Or Dimension > dims.Length Then

For idx = 0 To dims.Length - 1

temp = temp & dims(idx)

If idx < dims.Length - 1 Then temp = temp & ", "

Next

Return dims.Length & "D Array: {" & temp & "}"

Else

Return dims(Dimension - 1)

End If

End Sub

 

Sub getSize(MyArray As Object) As String

Dim r As Reflector

Dim dims() As Int

Dim calc = 1 As Int

r.Target = MyArray

dims = r.TargetRank

For idx = 0 To dims.Length - 1

calc = calc * dims(idx)

Next

Return calc

End Sub

 

Examples:

 

Dim test_array(3, 5, 9) As Int

getDimSize(test_array, 0)

 

 

Dim test_array(3, 5, 9) As Int

getDimSize(test_array, 2)

 

 

Dim test_array(3, 5, 9) As Int

getSize(test_array)

 

 

 

به اشتراک گذاری این ارسال


لینک به ارسال

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

  • کاربران آنلاین در این صفحه   0 کاربر

    هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.

×