+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية التحقق من حالة النص (/showthread.php?tid=7082)
كيفية التحقق من حالة النص - aftfm - 22-11-12
السلام عليكم ورحمة الله و بركاته
كيف اتحقق من نص سواء كان كابتال او سمول
مثلا اريد ان اتحقق من نص
one OR One OR ONE
اريد يقبل الثلاث حالات انا استخدمت UCase and Lcase
ولكنها فقط في حالة ما إذا كان كابتل ام سمول اريد طريقة تقبل الثلاث حالات
ودمتم
كيفية التحقق من حالة النص - sooriaty03 - 22-11-12
أخي الكريم
إذا كنت تقصد أن لديك كلمتين وتريد أن تقارن بينهما بغض النظر عن حالة الأحرف سواء كانت كبيرة أو صغيرة فهناك طريقتين
الأولى
أن تكتب في أول سطر هذه العبارة - التي باللون الأحمر
كود :
[color=#FF0000]Option Compare Text[/color]
Public Class Form1
'
'
End Classمع الأخذ بالاعتبار أن جميع المقارنات بين النصوص في جميع أسطر البرنامج ستكون على هذه القاعدة
الثانية
أن تقوم بتحويل كافة النصوص المراد المقارنة بينهما إلى نوع واحد من حالات الأحرف إما كبيرة وإما صغيرة
ومثال ذلك
كود :
Dim String1 As String = "OnE"
Dim String2 As String = "oNe"
If String1[color=#FF0000].ToLower[/color] = String2[color=#FF0000].ToLower[/color] Then
'
'
End Ifوشخصيا أفضل الطريقة الثانية لأنها تكون خاصة في هذا السطر وليس في كافة البرنامج
بالتوفيق
كيفية التحقق من حالة النص - aftfm - 22-11-12
الف شكر اخي العزيز
ما قصدته هو
PHP كود :
If Me.TextBox1.Text = "three" Or Me.TextBox1.Text = "Three" Or Me.TextBox1.Text = "THREE" Then
end if
بدل من ما اكرر هذا اجعله في عبارة واحدة هل من الممكن اختصار هذا الكود الكلمة واحدة لكنها تأخذ ثلاث ا شكال
وفي جميع الكلمات
كيفية التحقق من حالة النص - sooriaty03 - 22-11-12
جرب هذا الكود
كود :
Select Case TextBox1.Text
Case TextBox1.Text.ToLower, TextBox1.Text.ToUpper, StrConv(TextBox1.Text, VbStrConv.ProperCase)
'
Case Else
'
End Selectكيفية التحقق من حالة النص - Aly El-Haddad - 22-11-12
السلام عليكم،
ببساطة أستخدم في المقارنة TextBox1.Text.ToLower و أكتب "three" أو أستخدم TextBox1.Text.ToUpper و أكتب "THREE" ليكن الكود:
كود :
If TextBox1.Text.ToLower() = "three" Then
'
'
End Ifكود :
If TextBox1.Text.ToUpper() = "THREE" Then
'
'
End If