بسم الله الرحمن الرحيم
كثيرا ما نستسهل العمل مع السلاسل الحرفية باعتبار أنها من أوائل الدروس التي ندرسها عندما تعلمنا لغات البرمجة وهذا ما يجعلنا ننسى الكم الهائل من المعلومات في الكيفية التعامل معها أو نسيان الكثير من أوامر ال basic فعندما إقراء هذه الأوامر أجد نفسي أحيانا وكأني اقرأها لأول مره فأردت هنا أن اذكر الكثير بها ويستفيد منها كل محبي هذا الموقع .
كما اطلب من الإخوة أصحاب الخبرة أن يكملوا ما بدأت بإضافة معلوماتهم التي تخص هذا الجانب حتى تكون هذه الصفحة مرجع لكل القراء .
أساسيات كتابة الكود في التعامل مع السلاسل الحرفية
ستم هنا اعطاء نبذه مختصره حول التعامل مع السلال الحرفية وتشمل هذه النبذة على
- إيجاد طول السلسلة الحرفية .
- تحويل حاله السلسلة الحرفية .
- تنظيم السلسلة الحرفية .
- إجراء البحث في السلسلة الحرفية .
يمكن لبرنامج الدوت نت معالجة السلاسل الحرفية والتي يتم تعريفها بأنها عبارة عن كل الحروف والأرقام والرموز التي يتم وضعها بين علامات اقتباس ان صح التعبير .
أولا : حساب طول السلسلة الحرفية
ونستطيع تعريفة الرقم الإجمالي للحروف بما في ذلك المسافات الفارغة التي تتضمنها السلسلة
1- حساب طول السلسلة الحرفية Len
تستخدم هذه الداله لمعرفة طول السلسلة الحرفية
مثال
Dim namelenght as integer
Namelenght = Len ("arabteam 2000")قيمة Namelenght يساوي 13 وهو طول السلسلة الحرفية حيث ان عدد الحروف يساوي 12 حرف ومسافة واحده .
=====================================================================
ثانياً : تحويل حالة الحروف الأبجدية .
1- التحويل من حالة الحروف الأبجدية الكبيرة إلي الحروف الأبجدية الصغيرة LCase
وتستخدم لتحويل سلسلة حرفية بحيث تكون كلها حروف أبجدية صغيرة
مثال
Dim lowercase as string
lowercase = LCase ("ARABTEAM2000")قيمة lowercase هي كالتالي arabteam2000 ونلاحظ أن الأمر LCase قد اثر على الحروف الأبجدية فقط ويتجاهل ما عداها .
=====================================================================
2- التحويل من حالة الحروف الأبجدية الصغيرة إلي الحروف الأبجدية الكبيرة UCase
وتستخدم لتحويل سلسلة حرفية بحيث تكون كلها حروف أبجدية كبيرة
مثال
Dim uppercase as string
uppercase = UCase ("arabteam2000")قيمة uppercase هي كالتالي ARABTEAM2000
=====================================================================
3- التحويل حالة السلسلة إلى حالة Proper
هذا الخيار يتيح لك تغيير حالة الحرف الأبجدي الأول في كل كلمة في السلسلة إلى حرف كبير ويتم ذلك باستخدام الأمر Strconv
مثال
Dim propercase as string
propercase = Strconv ("arab team" ,vbStrconv. Proper case)قيمة propercase هي كالتالي Arab Team ونلاحظ كيف تم تغيير حالة الأحرف الأولى من الجملتين في السلسلة الحرفية .
=====================================================================
ثالثاً : تنظيم السلسلة الحرفية .
في بعض الأحيان تكون السلسلة الحرفية طويلة للغاية بحث ترغب في إزالة بضعة حروف من بداية او نهاية السلسلة وفي بعض الوقت تكون هنالك مسافات أمام وخلف السلسلة الحرفية وتحتاج لأزالتها
1- إزالة المسافات الأولية من السلسلة الحرفية Ltrim
مثال
Dim fullname As String
fullname = LTrim(" arabteam2000")قيمة fullname هي كالتالي "arabteam2000" دون وحود أي مسافات اوليه في بداية السلسلة الحرفية .
=====================================================================
2- إزالة المسافات النهائية من السلسلة الحرفية Rtrim
مثال
Dim fullname As String
fullname = RTrim("arabteam2000 ")قيمة fullname هي كالتالي "arabteam2000" دون وجود أي مسافات في نهاية السلسلة الحرفية
=====================================================================
3- إزالة أي مسافات في السلسلة الحرفية Trim
مثال
Dim fullname As String
fullname = Trim(" arabteam2000 ")قيمة fullname هي كالتالي "arabteam2000" دون وجود أي مسافات في نهاية السلسلة الحرفية او في بديتها .
=====================================================================
4- إزالة حروف من بداية السلسلة الحرفية Left
مثال
Dim fullname As String
fullname = Microsoft.VisualBasic.Left("arabteam2000", 4)قيمة fullname هي كالتالي "arab" والرقم 4 هنا هو عدد الحروف المراد حذفها .
====================================================================
5- إزالة حروف من وسط السلسلة الحرفية Mid
مثال
Dim fullname As String
fullname = Microsoft.VisualBasic.Mid("**arabteam2000", 3, 12)قيمة fullname هي كالتالي "arabteam2000" باعتبار أن 3 هو الموقع الذي يبدءا منه الحذف و 12 هي عدد الحروف المراد حذفها .
=====================================================================
ثالثاً : إجراء البحث في السلسلة الحرفية .
1- البحث السلسلة الحرفية Instr
هذا الامر يستخدم للبحث عن جزء من سلسلة حرفية داخل سلسلة حرفية أخرى مع ملاحظة حاله الحروف
مثال
Dim fullname As String
fullname = InStr("Arabteam2000", "team")قيمة fullname هي 5 باعتبار أن البحث يبدءا اليسار إلى اليمين والكلمة او الحرف المراد البحث عنه في الموقع الخامس من السلسلة الحرفية .
والقائمة هنا تطول حول استخدام هذا الأوامر وهنا يرجع الأمر للمبرمج في كيفية الاستفادة منها واستخدامها و أتمني هنا أكون قد وفقت في إيصال المعلومة وان تعم الفائدة للجميع .
والسلام عليكم ورحمه الله وبركاته
ملاحظه
في الملفات المرفقة توجد الاكواد التي تم استخدامها في هذا الشرح