تقييم الموضوع :
  • 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 safalo 1 30 أمس, 03:48 PM
آخر رد: أبو نوره
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 797 18-09-17, 03:40 PM
آخر رد: رمضان محمد
  كيفية دمج جدول المبيعات والمشتريات وحساب عدد المشتريات والمبيعات والمثال مرفق كصورة max_1978 3 334 17-09-17, 01:05 AM
آخر رد: Rabeea Qbaha
  [سؤال] عند اضافة حالة جديدة naden 1 47 16-09-17, 09:20 PM
آخر رد: أبو نوره
  كيفية تغير نوعية الاتصال من xmpp الي improver socket using Tls and DIGEST-MD5 login e-coder 0 26 16-09-17, 04:24 PM
آخر رد: e-coder
  حفظ النص بما فيه حجمه في my sittings visualist2015 1 44 15-09-17, 08:30 PM
آخر رد: سعود
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 125 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 1 74 12-09-17, 02:05 AM
آخر رد: hglogtd
Question [سؤال] كيفية سحب قيمة متغير ادخل Public alims 7 154 11-09-17, 04:39 AM
آخر رد: محمد كريّم
  كيفية نسخ ملفات في مجلد الـ System32 أو أي مجلد خاص بالوندوز بواسطة ملف الـ Setup نبيل فتحى 5 115 09-09-17, 01:51 AM
آخر رد: نبيل فتحى

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


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