تقييم الموضوع :
  • 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] كيفية استخدام مكتبة TLSharp الماجيك مسعد 3 60 أمس, 09:54 PM
آخر رد: الماجيك مسعد
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 30 06-12-16, 04:34 PM
آخر رد: Ayman97
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 182 29-11-16, 07:26 AM
آخر رد: amgad525
  كيفية تخفيض مستوي الامان في الاكسل atefkhalf2004 7 90 28-11-16, 06:48 PM
آخر رد: atefkhalf2004
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 116 23-11-16, 08:51 PM
آخر رد: newvbdev
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 120 15-11-16, 04:00 AM
آخر رد: LoveVb
  كيفية تغير رسائل الخطأ؟ noway 3 77 11-11-16, 05:37 PM
آخر رد: ممدوح
  [VB.NET] كيفية طباعة شهادات بصيغة PDF Programmer_2017 9 257 10-11-16, 10:02 PM
آخر رد: Programmer_2017
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 113 09-11-16, 12:32 PM
آخر رد: نوريس
  [VB.NET] كيفية التعامل مع العلاقات برمجياً ؟؟؟؟ thevirus 4 150 06-11-16, 08:22 PM
آخر رد: thevirus

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


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