شرح الدوال النصية ( mid, asc,chr, split, trim) في لغة vb.net
هذا الموضوع هو الدرس الثالث من دورة شرح دوال vb.net , سوف اقوم بشرح الدوال النصية مع وضع مثال مبسط لاستخدام الدالة .
لمن لا يعرف ما هي الدالة البرمجة function او نهج المعالجة procedure , هي عبارة عن كتلة من السطور البرمجية تعمل بصورة مستقلة ونقوم بأستدعاها عند الحاجة , و من المستحيل تنفذيها بدون استدعاء , وهناك نوعين منهما :
1- الدوال القياسية ( وهي دوال مكتوبة من قبل مبرمجين للغة وموجودة دائماً ).
2- الدوال المكتوبة من قبل المبرمج .
ماهو الفرق بين الدالة ونهج المعالجة ؟
الدالة تحتوي على نوع بياني , بينما نهج المعالجة هو دالة اصلاً ولكن دون نوع بياني اي لا ترجع اي قيمة , وهناك بعض الامور لا يحبذ استخدامها من الدوال مثل طباعة النواتج بداخل الدالة بأستخدام عبارات الطباعة المختلفة ,, وهذا الكلام لا يخص لغة vb.net فقط وانما يخص جميع لغات البرمجة المهيكلة والشيئية ( الكائنية التوجه ) مثل C++ , Java , pascal , delphi وغيرها .
الجدول ادناه يوضح الدوال وعملها :| الدالة |
عملها |
| Asc, AscW |
ارجاع قيمة الاسكي للحرف المدخل |
| Chr, ChrW |
ارجاع قيمة الحرف لرقم الاسكي المدخل |
| Format |
ارجاع الstring بعد عمل تنسيق معين عليها |
| FormatCurrency |
تنسيق الstring على تنسيق عملة |
| FormatDateTime |
تنسيق الوقت والتاريخ |
| FormatNumber |
تنسيق الارقام |
| FormatPercent |
ارجاع string تم تنسيقه كنسبة مئوية |
| InStr |
لعرض عدد صحيح يحدد موضع بدء التكرار الأول لسلسلة واحدة داخل آخر. |
| InStrRev |
لعرض موضع أول ظهور لسلسلة واحدة داخل آخر، بدءا من الجانب الأيسر من السلسلة |
| Join |
لعرض سلسلة تم إنشاؤها بواسطة لصق إلى عدد من سلاسل فرعية موجودة في مصفوفة. |
| LCase |
لعرض سلسلة أو حرف تم تحويلها إلى أحرف صغيرة. |
| Left |
لعرض سلسلة تحتوي على عدد محدد من الأحرف من الجانب الايسر من سلسلة. |
| Len |
معرفة طول السلسلة النصية |
| LSet |
لعرض سلسلة محاذاة لليسار تحتوي على السلسلة المحددة التي تم ضبطها على الطول المحدد. |
| LTrim |
إتورنز سلسلة تحتوي على نسخة من سلسلة محددة بدون مسافات رائدة. |
| Mid |
تقطيع السلسلة المعينة |
| Replace |
لعرض سلسلة تم استبدال سلسلة فرعية محددة بها بسلسلة فرعية أخرى بعدد محدد من المرات. |
| Right |
لعرض سلسلة تحتوي على عدد محدد من الأحرف من الجانب الايمن من سلسلة. |
| RSet |
لعرض سلسلة محاذاة لليمين تحتوي على السلسلة المحددة التي تم ضبطها على الطول المحدد. |
| RTrim |
لعرض سلسلة تحتوي على نسخة من سلسلة محددة بدون مسافات زائدة. |
| Space |
لعرض سلسلة تتكون من العدد المحدد للمسافات. |
| Split |
لعرض صفيف أحادي البعد يستند إلى صفر يحتوي على عدد محدد من سلاسل فرعية |
| StrComp |
إرجاع -1 أو 0 أو 1 بناء على نتيجة مقارنة سلسلة |
| StrConv |
لعرض سلسلة محولة على النحو المحدد. |
| StrDup |
لعرض سلسلة أو كائن يتكون من الحرف المحدد تكرار العدد المحدد عدد من المرات |
| StrReverse |
لعرض سلسلة يتم فيها عكس ترتيب الحرف لسلسلة محددة |
| Trim |
لعرض سلسلة تحتوي على نسخة من سلسلة محددة بدون مسافات رئيسية أو زائدة |
| UCase |
لعرض سلسلة أو حرف يحتوي على السلسلة المحددة التي تم تحويلها إلى أحرف كبيرة |
امثلة متعددة :
كود PHP:
' String to convert. Dim LowerCase As String = "Hello World 1234" ' Returns "HELLO WORLD 1234". Dim UpperCase As String = UCase(LowerCase)
كود PHP:
' Initializes string. Dim TestString As String = " <-Trim-> " Dim TrimString As String ' Returns "<-Trim-> ". TrimString = LTrim(TestString) ' Returns " <-Trim->". TrimString = RTrim(TestString) ' Returns "<-Trim->". TrimString = LTrim(RTrim(TestString)) ' Using the Trim function alone achieves the same result. ' Returns "<-Trim->". TrimString = Trim(TestString)
كود PHP:
' Creates text string. Dim TestString As String = "Mid Function Demo" ' Returns "Mid". Dim FirstWord As String = Mid(TestString, 1, 3) ' Returns "Demo". Dim LastWord As String =
Mid(TestString, 14, 4) ' Returns "Function Demo". Dim MidWords As String = Mid(TestString, 5)
كود PHP:
' Initializes variable. Dim TestString As String = "Hello World" ' Returns 11. Dim TestLen As Integer = Len(TestString)
كود PHP:
' String to search in. Dim SearchString As String = "XXpXXpXXPXXP" ' Search for "P". Dim SearchChar As String = "P" Dim TestPos As Integer ' A textual comparison starting at position 4. Returns 6. TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text) ' A binary comparison starting at position 1. Returns 9. TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary) ' If Option Compare is not set, or set to Binary, return 9. ' If Option Compare is set to Text, returns 3. TestPos = InStr(SearchString, SearchChar) ' Returns 0. TestPos = InStr(1, SearchString, "W")
كود PHP:
Dim TestDateTime As Date = #1/27/2001 5:04:23 PM# Dim TestStr As String ' Returns current system time in the system-defined long time format. TestStr = Format(Now(), "Long Time") ' Returns current system date in the system-defined long date format. TestStr = Format(Now(), "Long Date") ' Also returns current system date in the system-defined long date ' format, using the single letter code for the format. TestStr = Format(Now(), "D") ' Returns the value of TestDateTime in user-defined date/time formats. ' Returns "5:4:23". TestStr = Format(TestDateTime, "h:m:s") ' Returns "05:04:23 PM". TestStr = Format(TestDateTime, "hh:mm:ss tt") ' Returns "Saturday, Jan 27 2001". TestStr = Format(TestDateTime, "dddd, MMM d yyyy") ' Returns "17:04:23". TestStr = Format(TestDateTime, "HH:mm:ss") ' Returns "23". TestStr = Format(23) ' User-defined numeric formats. ' Returns "5,459.40". TestStr = Format(5459.4, "##,##0.00") ' Returns "334.90". TestStr = Format(334.9, "###0.00") ' Returns "500.00%". TestStr = Format(5, "0.00%")
اي استفسار انا حاضر 
تحياتي لكم
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة مصطفى العراب
