[ali.alfoly]

السلام عليكم ورحمة الله
في هذا الموضوع هحاول اجمع كل دوال التعامل مع النصوص ولو نسيت حاجة ياريت الاخوة يضفوها لكى تكون مرجع للجميع

طول النص عدد الاحرف

PHP كود :

Dim txt As String = "ABCDEFGHIJK"
'Len
MsgBox(Len(txt)) '11
'Length
MsgBox(txt.Length) '11 


حذف الفراغات المسافات

PHP كود :

Dim txt As String = "  ABCDEFGHIJK  "
'Trim على يمين ويسار النص
MsgBox(Trim(txt))
'Rtrim على يمين النص
MsgBox(RTrim(txt))
'Ltrim على يسار النص
MsgBox(Ltrim(txt)) 


تحويل النص بين كبير وصغير كبتل صمول

PHP كود :

Dim txt As String = "abcdEFGHIJK"
'UCase الى حروف كبيرة
MessageBox.Show(UCase(txt))
'ToUpper الى حروف كبيرة
MessageBox.Show(txt.ToUpper)
'LCase الى حروف صغيرة
MessageBox.Show(LCase(txt))
'ToLower الى حروف صغيرة
MessageBox.Show(txt.ToLower) 


لأخد جزء من النص

PHP كود :

'اذا النص لم يكفى يتم اكمال الباقى فراغات
Dim txt As String = "ABCDEFGHIJK"
'LSet من الجهة اليسرى
MsgBox(LSet(txt, 6)) 'ABCDEF
'RSet من الجهة اليمنى
MsgBox(RSet(txt, 6))
'Mid من البداية التى تحددها
MsgBox(Mid(txt, 3, 6)) 'CDEFGH 


عكس النص

PHP كود :

Dim txt As String = "ABCDEFGHIJK"
'StrReverse
MsgBox(StrReverse(txt)) 'KJIHGFEDCBA 


وضع فرغات مسافات

PHP كود :

Dim txt As String = "ABCDEFGHIJK"
'Space
MsgBox(txt & Space(2) & txt) 'ABCDEFGHIJK  ABCDEFGHIJK 


تحويل النص من والى مصفوفة

PHP كود :

Dim txt As String = "ABC_DEF_GHI_JKL"
'
Dim txt_split() As String = Split(txt, "_")
'
'Split
MsgBox(txt_split(0)) 'ABC
MsgBox(txt_split(1)) 'DEF
MsgBox(txt_split(2)) 'GHI
MsgBox(txt_split(3)) 'JKL
'Join
MsgBox(Join(txt_split)) 'ABC DEF GHI JKL
MsgBox(Join(txt_split, "_")) 'ABC_DEF_GHI_JKL 


مقارنة بين نصين

PHP كود :

'Split
MsgBox(StrComp("ABCD", "ABCD")) ' 0
'
MsgBox(StrComp("ABCD", "ABCZ")) ' 1
'
MsgBox(StrComp("ABCD", "abcd")) '-1
MsgBox(StrComp("ABCD", "abcd", CompareMethod.Text)) ' 0

'Like
MsgBox("ABCDE" Like "ABCDE") 'True
MsgBox("abcde" Like "ABCDE") 'False
'? تعوض عن حرف 
MsgBox("ABCD" Like "?BCD") 'True
'* تعوض عن اى شي
MsgBox("AB2@" Like "*B**") 'True
'# تعوض عن رقم
MsgBox("ABC2" Like "ABC#") 'True
'[-] تعوض من الى
MsgBox("ABC2" Like "[A-Z]BC[1-9]") 'True
'[!-] تعوض ليس من الى
MsgBox("A@BC" Like "A[!a-z]BC") 'True
'[!] ليست العنصر المحدد
MsgBox("ABCD" Like "A[!#]CD") 'True


'= تساوى 
MsgBox("ABCDE" = "ABCDE") 'True
'<> لا تساوى
MsgBox("abcde" <> "ABCDE") 'True 


تكرار نص

PHP كود :

'StrDup
MsgBox(StrDup(8, "A")) 'AAAAAAAA
MsgBox(StrDup(3, "AZ ")) 'AZ AZ AZ 


استبدال نص

PHP كود :

'Replace
Dim txt As String = "ABCDEFGHIJK  ABCDEFGHIJK"
'
MsgBox(Replace(txt, "AB", "ZZ")) 'ZZCDEFGHIJK  ZZCDEFGHIJK
'
MsgBox(Replace(txt, "AB", "ZZ", 14)) 'ZZCDEFGHIJK
'
MsgBox(Replace(txt, "AB", "ZZ", 1, 1)) 'ZZCDEFGHIJK  ABCDEFGHIJK 


معرفة موقع نص

PHP كود :

'InStr
Dim txt As String = "ABCDEFGHIJK"
'
MsgBox(InStr(txt, "sz")) '0
'
MsgBox(InStr(txt, "ef")) '0
'
MsgBox(InStr(txt, "EF")) '5
'
MsgBox(InStr(txt, "ef", CompareMethod.Text)) '5 


معرفة الحرف عن طريق رقمه

PHP كود :

Dim txt As String = "ABCDEFGHIJKL"
'GetChar
MsgBox(GetChar(txt, 4)) 'D 


تعنى سطر او كتابة سطر

PHP كود :

'vbNewLine
Dim txt As String = "ABCDEFGHIJK"
'
MsgBox(txt & vbNewLine & txt)
'ABCDEFGHIJK
'ABCDEFGHIJK 


التعامل مع مكتبات الرموز ( Ascii ) و ( Unicode )

PHP كود :

'Asc
'(ascii code) ترجع بالرمز المقابل فى جدول الرموز
MsgBox(Asc("A")) '65
MsgBox(Asc("E")) '69
'Ascw
'(unicode) ترجع بالرمز المقابل فى جدول الرموز
MsgBox(AscW("A")) '65
MsgBox(AscW("E")) '69
'Chr
'(ascii code) تعيد الحرف المقابل للقيمة فى جدول الرموز
MsgBox(Chr(65)) 'A
'chrw
'(unicode) تعيد الحرف المقابل للقيمة فى جدول الرموز
MsgBox(ChrW(35) & ChrW(13) & ChrW(65))
'#
'A 


حذف جزء من النص

PHP كود :

Dim txt As String = "ABCDEFGHIJKL"
'Remove
MsgBox(txt.Remove(2, 5)) 'ABHIJKL 


دمج نصين

PHP كود :

Dim txt As String = "ABCDEFGHIJKL"
'Insert
MsgBox(txt.Insert(2, "ZZ")) 'ABZZCDEFGHIJKL 


التحقق من وجود نص

PHP كود :

Dim txt As String = "ABCDEFGHIJKL"
'Contains
MsgBox(txt.Contains("A")) 'True
MsgBox(txt.Contains("Z")) 'False 


إذا أفادك الموضوع لا تنسى الدعاء