دوال النصوص فى لغة فيجوال بيسك دوت نت

تحويل أنواع البيانات 

1- CBool : تقوم بتحويل نوع المتغير الى قيمة Boolean اي (True , False ) . 

2- CByte : تقوم بتحويل نوع المتغير الى قيمة بايت . 

3- CDate : تقوم بتحويل نوع المتغير الى قيمة تاريخ . 

4- CDec : تقوم بتحويل نوع المتغير الى قيمة عشرية . 

5- CDble :تقوم بتحويل نوع المتغير الى عدد مضاعف . 

6- CInt : تقوم بتحويل نوع المتغير الى عدد صحيح . 

7- CLong : تقوم بتحويل نوع المتغير الى عدد طويل . 

8- CStr : تقوم بتحويل نوع المتغير الى نص . 

و ساعطيك مثال على الدالة الاخيرة لتعرف كيف تقوم بالتحويل في انواع البيانات : 

       MsgBox(CStr(123)) 

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

التعامل مع النصوص 2 

الدالة Instr : تعطيك موقع النص 1 خلال النص 2 . والمثال هو افضل وسيلة للتوضيح : 

CODE  
       Dim x, y As String

       x = "look Over over there"

       y = "over"

       MsgBox(InStr(x, y, CompareMethod.Text))

الكود السابق يعرض لك موقع الكلمة y خلال الجملة x . 
الدالة Instr لها 3 وسائط : 

1- النص الذي تريد البحث فيه . 
2- النص الذي تريد البحث عنه . 
3- نوع طريقة البحث , فلو اخترت ال Binary فان البحث سيضع في الحسبان الحروف الكبيرة و الصغيرة . 
يعني الكود السابق سيعرض لك في صندوق الرسالة الرقم 6 لان موقع اول حرف في الكلمة over خلال النص x هو 6 . ولكن لو غيرنا الطريقة من text الى binary فانه سيعرض لك الرقم 11 لان over الاولى كابيتال . 

الدالة Instr تفيدك في البحث كثيرا . 
الدالة StrComp : تقارن بين نصين من حيث الحجم . 

CODE  
       MsgBox(StrComp("helo", "helo", CompareMethod.Text))
سيعرض لك القيمة صفر لان النصين متطابقين . 

CODE  
       MsgBox(StrComp("heloo", "helo", CompareMethod.Text))
سيعطيك القيمة 1 لان النص الاول اكبر من الثاني . 

       MsgBox(StrComp("hel", "helo", CompareMethod.Text))
سيعطيك القيمة -1 لان النص الاول اصغر من الثاني . 
الدالة Len : تعطيك عدد حروف نص معين . 

       MsgBox(Len("الحمد لله"))

ستكون القيمة 9 لان عدد حروف الجملة هي 9 . 
الدالة Trim : تزيل مسافات النص من اليمين ومن اليسار . 

       Dim x As String = InputBox("Type your name")

       MsgBox(Trim(x) + "OK")

فلو وضعت مسافة على يمين النص فستلاحظ انه ازيل . 
الدالة Space : تضيف مسافة الى النص . 

       Dim x As String = InputBox("Type your name")

       MsgBox(x + Space(5) + "OK")

فستضيف بين النصين مسافة حجمعا 5 حروف .

___________________________________________________

لدالة Asc : تعطي الرقم المقابل لحرف معين . 

CODE  
MsgBox(Asc("x"))

سيكون الناتج 120 . 

الدالة Chr : تعطي الحرف المقابل لرقم معين (عكس الدالة Asc ) 

MsgBox(Chr("120"))

سيكون الناتج هو الحرف x . 

الدالة LCase : تحول الحروف الكبيرة Capital الى صغيرة ( من A الى a ) 

MsgBox(LCase("HOLA")) 

الدالة UCase : تحول الحروف الصغيرة الى كبيرة (من a الى A ) 


MsgBox(UCase("hola"))

الدالة StrDup : تعطيك رمز او حرف او نص مكرر بعدد معين من المرات . 

MsgBox(StrDup(20, "!"))

فمثلا الكود السابق يعرض الرمز ! عشرين مرة . 

الدالة StrReverse : تقوم بعكس نص معين . 

MsgBox(StrReverse("helo"))

الدالة Replace : تقوم باستبدال نص معين خلال جملة بنص اخر .

Dim x As String = "Visual Basic .NET"
MsgBox(Replace(x, ".NET", "Seven"))

الكود السابق يعرض الجملة x ولكن بعد ان يستبدل الكلمة .NET ب Seven . 

تفيدك في البحث اذا اردت اضافة ميزة الاستبدال كما في برامج تحرير النصوص .

Please SUBSCRIBE to get new articles directly into your Email inbox!