تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 88 19-05-17, 06:46 PM
آخر رد: dubai.eig
  كيفية طباعة فاتورة مبيعات باستخدام الطابعات الصغيرة noway 0 43 19-05-17, 09:55 AM
آخر رد: noway
  كيفية انشاء الباركود المتألق9 2 45 18-05-17, 10:33 PM
آخر رد: المتألق9
Exclamation [سؤال] كيفية التعامل مع الdataset في الوضع المنفصل في الفيجوال البيسك 2010 moh_g 4 107 16-05-17, 06:50 PM
آخر رد: moh_g
  كيفية غلق هذا الفورم ان نفذ جملة شرط soper 4 70 13-05-17, 09:41 PM
آخر رد: العواد الصغير
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 241 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  [VB.NET] إستفسار عن كيفية تغيير كلمة مرور مستخدم في vb.net 2013 limia 1 56 13-05-17, 11:01 AM
آخر رد: khalid475
  كيفية الحفظ إلى صيغة txt ahmedfa71 1 72 07-05-17, 07:16 PM
آخر رد: mansoor
  [VB.NET] كيفية فتح البرنامج اكتر من مرة بشروط معينة الماجيك مسعد 6 125 07-05-17, 04:15 AM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية قراءة ملفات bin وتثبيتها 0theghost0 3 77 04-05-17, 02:02 PM
آخر رد: 0theghost0

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


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