+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : المرجع الكامل فى ( التعامل مع النصوص ) (/showthread.php?tid=567)
الصفحات:
1
2
المرجع الكامل فى ( التعامل مع النصوص ) - ali.alfoly - 16-10-13
السلام عليكم ورحمة الله
في هذا الموضوع هحاول اجمع كل دوال التعامل مع النصوص ولو نسيت حاجة ياريت الاخوة يضفوها لكى تكون مرجع للجميع
طول النص عدد الاحرف
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
إذا أفادك الموضوع لا تنسى الدعاء
RE: المرجع الكامل فى ( التعامل مع النصوص ) - sherif khalid - 16-10-13
جزاك الله خيرا اخى ali.alfoly
ويارب يجعلة فى ميزان حسناتك
ويارب يجعلة فى ميزان حسناتك
RE: المرجع الكامل فى ( التعامل مع النصوص ) - ali.alfoly - 17-10-13
وجزاك بالمثل أخي شريف
RE: المرجع الكامل فى ( التعامل مع النصوص ) - Omar Mekkawy - 18-10-13
جزاك الله كل خير
يثبت
RE: المرجع الكامل فى ( التعامل مع النصوص ) - ali.alfoly - 19-10-13
وجزاك بالمثل أخي الكريم
وشكرا على التثبيت
RE: المرجع الكامل فى ( التعامل مع النصوص ) - learning.net - 19-10-13
بارك الله فيك اخى على
RE: ... - sooriaty03 - 07-11-13
السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أخي أبو أحمد
ما شاء الله لاقوة إلا بالله
أسأل الله أن يزيدك علما وقدرا وأن ينفع بك
وأن يجعله في ميزان حسناتك
RE: المرجع الكامل فى ( التعامل مع النصوص ) - ali.alfoly - 08-11-13
(19-10-13, 05:06 PM)learning.net كتب : بارك الله فيك اخى على
وفيك بارك اخي اخي
(07-11-13, 11:39 PM)sooriaty03 كتب : السلام عليكم ورحمة الله وبركاته
جزاك الله خيرا أخي أبو أحمد
ما شاء الله لاقوة إلا بالله
أسأل الله أن يزيدك علما وقدرا وأن ينفع بك
وأن يجعله في ميزان حسناتك
وعليكم السلام ورحمة الله
امين نحن واياك اخي ابو محمد
واسئل الله ان يجمعنا بك في الفردوس الاعلي
RE: المرجع الكامل فى ( التعامل مع النصوص ) - zerocoolnewera - 13-01-14
جزاك الله خيراً ...
RE: المرجع الكامل فى ( التعامل مع النصوص ) - الاصيله - 16-02-14
مشكور جدا على هذا الموضوع