[عبدالله خضر]

5 - دالة إختيار عدد من مجموعة أعداد محزومة على شكل متغير نصي بواسطة فاصلة معينة بين العناصر  :

( وهي أحد مجموعة من الدوال طورتها بلاحقة Item )

إسميتها : ItemSNval

كود ونص الدالة :

 

كود :

   Function ItemSNval(ByVal SN As Integer, ByVal ItemsString As String, ByVal Comma As String) As Integer

       If Comma = "" Then Comma = " "

       Dim M(), T As String, U As Integer

       U = Val(SN) : T = Trim(ItemsString) : M = Split(T, Comma)

       Return Val(M(U - 1))

   End Function

شرح عمل الدالة :

تخيل وجود سلسة اعداد على شكل حزمة نصية String يفصلها فاصل معين ...

فأريد إختيار عدد منها ولكن الناتج بصيغة عددية ..

الجواب بسيط :

هو إضافة ( دالة القيمة العددية Val ) في كود ناتج الدالة السابقة ItemSN .. وأيضا نوع المخرجات يكون Integer بدلا من String ... إذن نحن إستنسخنا منها أخت لها وسميناها ItemSNval .. مع تعديلات بسيطة جدا ... هذا كل مافي الأمر !!

وفي المثال الآتي سلسلة أعداد في حزمة نصية :

 E As String = "3 54 98 120 6 777" ' Example

وأريد العدد الرابع من الحزمة المفصولة بفراغ واحد ، سيكون الجواب هو :

Dim N as Integer = ItemSNval( 4, E , "" )

والناتج طبعا يكون العدد 120 وسيكون بصيغة عددية وليست نصية ...