[ابو ليلى]

 

دوال خاصة للتعامل مع النصوص

توجد بعض الدوال الخاصة للتعامل مع النصوص سنقوم بالمرور على بعضها.

الدالة Cstr :
تقوم هذه الدالة بتحويل القيم الى الحالة النصية لها و هي تعالج انواع مثل (Integer,Boolen,Char)
مثال1:

PHP كود :

Dim str As String = CStr(5)
 
str = CStr(True)
 
str = CStr("m"c) 


دالة بسيطة و لها فوائد.
 

---

 
الدالتان LSet-RSet
و الدالتان PadLeft-PadRight
نستخدمها لإضافة هوامش(مسافات فارغة)الى يسار النص او الى يمينه
مثال1:

PHP كود :

MsgBox(LSet("Example", 10))
MsgBox(RSet("Example", 16)) 


هما مشابهتان للدالتان PadLeft-PadRight تقريباً.
مثال2:باستخدام PadLeft

PHP كود :

Dim SomeWords() As String = {"Cat", "Samer", "Vb4"}
For Each word As String In SomeWords
MsgBox(word.PadLeft(5))
Next 


كذلك أيضا تمكنك الدالتان PadLeft-PadRight من اضافة محارف ليسار و يمين النص.
مثال3:

PHP كود :

txt1.Text = ("One".PadLeft(6, "."c))
txt1.Text = ("PassWord".PadRight(12, "*"c)) 


تلاحظ وجود وسيطتين , الاولى عبارة عن رقم يعبر عن الطول الكلي للنص وهو 6 , و الثانية عبارة عن الرمز (.) كمحرف و الاضافة الى يسار النص
و عليه نكتشف ان الرمز (.) سيضاف 3 مرات الى يسار النص ليصبح طول النص = 6
نفس الكلام ينطبق على السطر الثاني فقط الاضافة تأتي الى يمين النص (اكتشف كم مرة سنضيف الرمز *)

---

اضافة سطر جديد لنص ما عبر الطريقة
Environment.NewLine
نستخدمها لإضافة سطر جديد لنص ما و ذلك لتقسيم النص الى عدة اسطر و هي سهلة الاستخدام و مشابهة تماما للطريقة التقليدية التي تستخدم (VbCrlF).
مثال1:

PHP كود :

Dim Msg As String = "Hello.." + Environment.NewLine + " My Friends..."
Dim Msg2 As String = "Hello.." + vbCrLf + " My Friends..."
MsgBox(Msg) 


 

---

تخزين النصوص في المصفوفات
او تحويل النصوص الى مصفوفات
مر معنا سابقا تحويل النص الى مصفوفة من المحارف.
الان حديثنا يختلف نوعا ما في بعض المواضع.
Convert String To Byte Array
تحويل النص الى مصفوفة من النوع بايت يسير و فعال عبر الدوال التي توفرها اللغة.

توفر اللغة الدالة ()ASCII.GetBytes

و هي تستقبل وسيطة من النوع النصي و تعيد لنا مصفوفة من النوع Byte.
مثال1:

PHP كود :

Dim Nmae As String = "AboLayla"
Dim array() As Byte = System.Text.Encoding.ASCII.GetBytes(Nmae)
 
For Each bt As Byte In array
   txt1.AppendText(bt.ToString + " = " + ChrW(bt) + Environment.NewLine)
Next 


الناتج من الكود السابق

65 = A
98 = b
111 = o
76 = L
97 = a
121 = y
108 = l
97 = a


كما ترى في المثال تم ترميز كل حرف في المصفوفة و بناءً عليه يمكننا تخزين البيانات الى ملف Binary عبر الطريقة BinaryWriter
و بطريقة عكسية يمكننا الحصول الى ما بداخل المصفوفة السابقة اذا عرفنا رموزها .. كما ترى في الاعلى و لنجرب باستخدام الدالة ()ASCII.GetString
مثال2:

PHP كود :

Dim array() As Byte = {65, 98, 111, 76, 97, 121, 108, 97}
 
Dim Name As String = System.Text.ASCIIEncoding.ASCII.GetString(array)
txt1.Text = Name 


كما يمكنك جلب المحارف من المصفوفة السابقة ByteArray  وفق الدالة ASCII.GetChars
مثال3:

PHP كود :

Dim Chr() As Char = System.Text.Encoding.ASCII.GetChars(array)
For Each ch As Char In Chr
      MsgBox(ch)
Next 


 

---

 

تحويل النص الى قائمة
Convert String To List
اذا احتجت في يوم من الايام لتحويل النص الى قائمة فالعملية سهلة ان شاء الله.
مثال1:

PHP كود :

Dim Words As String = "Vb,For,Arabs"
 
Dim arry() As String = Words.Split(",")
 
Dim vals As List(Of String) = arry.ToList()
 
For Each val As String In vals
     MsgBox(val)
Next 


في هذا المثال افترضت ان لدي نص و يوجد بها فاصل بين الكلمات و استخدمت الدالة Split للتخلص من الفواصل وخزنت الكلمات في المصفوفة array ومن ثم استخدمت الطريقة ()Arry.Tolist لتخزينهم في القائمة vals  .
ثم قمت بعرضهم وفق حلقة For للتأكد منهم.
 

---

توليد نصوص عشوائية

Random String
من باب ذكر المعلومة فقط احببت اضافتها
تحتاج احيانا الى توليد نصوص عشوائية بطرق بسيطة للاستفادة منها في مجالات شتى ,على سبيل المثال لتخزنها كمفاتيح للبيانات
و من احدى الطرق البسيطة استخدام الدالة
Path.GetRandomFileName تولد هذه الطريقة نص بطول 11 محرف  8 احرف صغيرة فقط مع لاحقة عشوائية لاسم الملف و يمكننا ازالة اللاحقة و الحصول على 4 محارف الاضافية ليصبح طول النص المولد 11 محرف وهو عدد مناسب نوعا ما
مثال1:

PHP كود :

Dim value As String = ""
Dim px As String = ""
 
For i = 0 To 15
   px = Path.GetRandomFileName()
   px = px.Replace(".", "")
   value = px
   MsgBox(value)
Next 


اتمنى ان اكون وفقت في تقديم شيئ مفيد , يغطي طرق التعامل مع النصوص بما يخدم عملنا.
لا تنسونا من دعواتكم, و الله الموفق.

---

(12-12-16, 01:18 AM)جميل علي كتب : بارك الله فيك استاذي ابوليلى
موضوع مفيد جدا جدا جدا ( السهل الممتنع )

ارجو من مشرف القسم تثبيت الموضوع

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

جزالك الله خيراً اخي جميل و زادك رزقا وعلما

(12-12-16, 10:19 AM)tryold كتب : استفدنا من طرحك المفيد
بارك الله فيك وفي عملك اخي ابو ليلى

و بك بارك الله اخي مشعل جزاك الله خيراً

(12-12-16, 12:21 PM)ali.alfoly كتب : موضوع روعه ومنظم جدا احييك علي ذلك
بارك الله فيك

شكراً اخي علي و بارك الله بك ايضاً وجزاك خيراً