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

كيف اتحقق من نص سواء كان كابتال او سمول

مثلا اريد ان اتحقق من نص

one OR One OR ONE

اريد يقبل الثلاث حالات انا استخدمت UCase and Lcase

ولكنها فقط في حالة ما إذا كان كابتل ام سمول اريد طريقة تقبل الثلاث حالات
ودمتم
الرد }}}}
تم الشكر بواسطة:
#2
أخي الكريم
إذا كنت تقصد أن لديك كلمتين وتريد أن تقارن بينهما بغض النظر عن حالة الأحرف سواء كانت كبيرة أو صغيرة فهناك طريقتين
الأولى
أن تكتب في أول سطر هذه العبارة - التي باللون الأحمر
كود :
[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

وشخصيا أفضل الطريقة الثانية لأنها تكون خاصة في هذا السطر وليس في كافة البرنامج

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#3
الف شكر اخي العزيز

ما قصدته هو

PHP كود :
If Me.TextBox1.Text "three" Or Me.TextBox1.Text "Three" Or Me.TextBox1.Text "THREE" Then

end 
if 

بدل من ما اكرر هذا اجعله في عبارة واحدة هل من الممكن اختصار هذا الكود الكلمة واحدة لكنها تأخذ ثلاث ا شكال
وفي جميع الكلمات
الرد }}}}
تم الشكر بواسطة:
#4
جرب هذا الكود

كود :
Select Case TextBox1.Text
            Case TextBox1.Text.ToLower, TextBox1.Text.ToUpper, StrConv(TextBox1.Text, VbStrConv.ProperCase)
               '
            Case Else
               '
        End Select
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم،
ببساطة أستخدم في المقارنة TextBox1.Text.ToLower و أكتب "three" أو أستخدم TextBox1.Text.ToUpper و أكتب "THREE" ليكن الكود:
كود :
If TextBox1.Text.ToLower() = "three" Then
'
'
End If
أو
كود :
If TextBox1.Text.ToUpper() = "THREE" Then
'
'
End If
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية الاختصار bidaya 3 41 منذ 7 ساعة مضت
آخر رد: مساعدة
  مشكلة في عرض النص بالعربي في #Region فقط ali.alfoly 1 74 22-02-17, 02:50 AM
آخر رد: مساعدة
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 73 21-02-17, 09:03 PM
آخر رد: noway
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 59 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 60 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 137 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 54 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 3 95 16-02-17, 08:10 PM
آخر رد: احمد مهران
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 33 06-02-17, 05:03 PM
آخر رد: المتألق9
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 78 05-02-17, 01:43 AM
آخر رد: المتألق9

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


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