تقييم الموضوع :
  • 2 أصوات - بمعدل 4
  • 1
  • 2
  • 3
  • 4
  • 5
المرجع الكامل فى ( التعامل مع النصوص )
#1
السلام عليكم ورحمة الله
في هذا الموضوع هحاول اجمع كل دوال التعامل مع النصوص ولو نسيت حاجة ياريت الاخوة يضفوها لكى تكون مرجع للجميع

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

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(txt6)) 'ABCDEF
'
RSet من الجهة اليمنى
MsgBox
(RSet(txt6))
'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"11)) '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)) '


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

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 

إذا أفادك الموضوع لا تنسى الدعاء
الرد }}}}
#2
جزاك الله خيرا اخى ali.alfoly

ويارب يجعلة فى ميزان حسناتك


-----------------------
Software Developer

Microsoft Partner

الرد }}}}
تم الشكر بواسطة:
#3
وجزاك بالمثل أخي شريف
الرد }}}}
تم الشكر بواسطة:
#4
جزاك الله كل خير Big Grin
يثبت Blush
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}}
تم الشكر بواسطة: ali.alfoly
#5
وجزاك بالمثل أخي الكريم
وشكرا على التثبيت
الرد }}}}
تم الشكر بواسطة:
#6
بارك الله فيك اخى على
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته

جزاك الله خيرا أخي أبو أحمد

ما شاء الله لاقوة إلا بالله
أسأل الله أن يزيدك علما وقدرا وأن ينفع بك

وأن يجعله في ميزان حسناتك
الرد }}}}
تم الشكر بواسطة:
#8
(19-10-13, 05:06 PM)learning.net كتب : بارك الله فيك اخى على

وفيك بارك اخي اخي


(07-11-13, 11:39 PM)sooriaty03 كتب : السلام عليكم ورحمة الله وبركاته

جزاك الله خيرا أخي أبو أحمد

ما شاء الله لاقوة إلا بالله
أسأل الله أن يزيدك علما وقدرا وأن ينفع بك

وأن يجعله في ميزان حسناتك

وعليكم السلام ورحمة الله
امين نحن واياك اخي ابو محمد
واسئل الله ان يجمعنا بك في الفردوس الاعلي
الرد }}}}
تم الشكر بواسطة:
#9
جزاك الله خيراً ...
الرد }}}}
تم الشكر بواسطة:
#10
مشكور جدا على هذا الموضوع
اختكم الاصيله
الرد }}}}
تم الشكر بواسطة: thevirus


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود التعامل مع مكتبة itextsharp saad mahyoub 2 153 01-09-16, 01:19 AM
آخر رد: saad mahyoub
Bug احدى طرق التعامل مع شجرة العرض TreeView أبو عمر 4 875 28-08-16, 11:13 PM
آخر رد: adad
  كود بسيط لقرائة النصوص بالانجليزي فقط honest 3 774 05-07-16, 11:39 PM
آخر رد: yasob
  [سؤال] التعامل مع تكست بوكس moha11 5 810 12-09-15, 10:05 AM
آخر رد: moha11

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم