الدوال فى الفيجوال بيسك وشرحها الجزء الخامس

دوال سلاسل البيانات

دالة Array 

"Frist","Second","Third","Forth" 

("MyNumber= Array("First" , "Second" , "Third" , "Forth

(Print MyNumber(0

(Print MyNumber(1

(Print MyNumber(2

(Print MyNumber(3

نرى أن النتيجة هي

First

Second

Third

Forth

تحول عدة بيانات مدخلة كنصوص تفصلها فاصلة إلى مصفوفة يكون رقم أول عنصر فيها (Lower Bound) هو (0) انظر المثال فى الاعلى

أي أن المتغير MyNumber يحمل مصفوفة ممتلئة بالنصوص المدخلة بعد أن تحولت إلى عناصر للمصفوفة

لاحظ أن المتغير MyNumber كان من نوع Variant لأننا لم نعلن عنه ويمكن للمتغير من هذا النوع أن يحمل مصفوفة وكذلك يمكن أن تكون المصفوفة من أي نوع آخر فالمصفوفة المستعملة في المثال هي مصفوفة نصية بينما لو كانت العناصر المدخلة أرقما (لاستعملنا علامات التنصيص مع الأرقام حتى لا تعتبر نصوصا) لكانت مصفوفة من نوع Integer مثلا .

دالة chr

& "  myText = "Hi," & vbCrLf & "I'm " & chr(34) & "alaa

(34)chr

تقوم الدالة chr بأخذ قيمة بين

0 و 255 وتعيد الحرف الممثل لهذه القيمة في جدول رموز ASCII، على سبيل المثال العبارة التالية : 

Hi,

I'm "alaa"

ستجد أنك لا تستطيع كتابتها بهذا الشكل :

 myText = "Hi," & vbCrLf & "I'm "alaa"" 

لأن البرنامج سيعتقد بأن نهاية السلسة النصية السابقة هي عند علامات الاقتباس التي تقع مباشرة قبل كلمةalaa وستظهر لك رسالة خطأ، لذلك فإننا نلجأ لاستخدام الدالة chr حيث أن رمز علامة الاقتباس المزدوجة في جدول ASCII هو 34، فتكون الصياغة الصحيحة للعبارة البرمجية السابقة .

دالة strReverse

("msgbox = strReverse("welcome

تعيد السلسلة string معكوسة، أي تبدأ من البداية وتنتهي من النهاية

وهي تقوم بعملية عكس النص وقلبه من اليسار لليمن او العكس وقد كان كتابة كود يقوم بهذا العملية ياخذ اكثر من 5 الى 10 اسطر لكن مع هذه الدالة فلن يتطلب منك سوى سطر واحد.

دالة Str Comp

("MyText =StrComp("alaa","alaa

تقارن سلسلتين لتحدد هل هما متساويتين ثم تعيد رقما بنتيجة المقارنة