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


عندي كود يقراء ملف

والحروف في الملف مرات يكون حروف كبيره ومرات حروف صغيره

الكود عندي شغال بس اريد اغيره 

مثلا اذا في نفس الملف في حروف كبيره او صغيره ما يفرق بينهم

الكود اللي عندي 

كود :
           Dim Rgx As Regex = New Regex("<eor>")

           Dim Rgx2 As Regex = New Regex("<EOR>")

اول شي يفحص الملف اذا كانت هذه الكلمه
إقتباس :<eor>

صغيره يعمل كذا

كود :
 If Rgx.IsMatch(txt) Then
               ms = Strings.Split(txt, "" & "eor" & ">", -1, CompareMethod.Binary)

          MsgBox("eor")


واذا كانت كبيره

كود :
           ElseIf Rgx2.IsMatch(txt) Then
               ms = Strings.Split(txt, "" & "EOR" & ">", -1, CompareMethod.Binary)
       
MsgBox("EOR")
           End If
       


الكود كامل



كود :
   Dim fd As OpenFileDialog = New OpenFileDialog() With {.Filter = "ADI files (*.ADI)|*.ADI"}
       If fd.ShowDialog() = DialogResult.OK Then
           lblAttach.Text = fd.FileName
           txt = Computer.FileSystem.ReadAllText(fd.FileName)

           Dim Rgx As Regex = New Regex("<eor>")

           Dim Rgx2 As Regex = New Regex("<EOR>")
If Rgx.IsMatch(txt) Then
               ms = Strings.Split(txt, "" & "eor" & ">", -1, CompareMethod.Binary)

          MsgBox("eor")

           ElseIf Rgx2.IsMatch(txt) Then
               ms = Strings.Split(txt, "" & "EOR" & ">", -1, CompareMethod.Binary)
       
MsgBox("EOR")
           End If
       
       


اتوقع التغيير من هنا

كود :
     ms = Strings.Split(txt, "" & "EOR" & ">", -1, CompareMethod.Binary)


حاولت اغير بس ما ضبط

بارك الله فيكم

وشكرا
الرد
تم الشكر بواسطة:
#2
بما أنك تستخدم Regex جرب هذا
كود :
Dim fd As OpenFileDialog = New OpenFileDialog() With {.Filter = "ADI files (*.ADI)|*.ADI"}
If fd.ShowDialog() = DialogResult.OK Then
   lblAttach.Text = fd.FileName
   txt = IO.File.ReadAllText(fd.FileName)
   MS = Regex.Split(txt, "<eor>", RegexOptions.IgnoreCase)
End If
لاحظ RegexOptions.IgnoreCase وتعني تجاهل حالة الأحرف
الرد
تم الشكر بواسطة: ابراهيم ايبو , dubai.eig
#3
(01-10-18, 02:19 AM)rnmr كتب : بما أنك تستخدم Regex جرب هذا
كود :
Dim fd As OpenFileDialog = New OpenFileDialog() With {.Filter = "ADI files (*.ADI)|*.ADI"}
If fd.ShowDialog() = DialogResult.OK Then
   lblAttach.Text = fd.FileName
   txt = IO.File.ReadAllText(fd.FileName)
   MS = Regex.Split(txt, "<eor>", RegexOptions.IgnoreCase)
End If
لاحظ RegexOptions.IgnoreCase وتعني تجاهل حالة الأحرف


صباح الخير

الحمدالله ضبط معاي شكرا بارك الله فيك  الله يزيدك علما

احسنت Rolleyes
الرد
تم الشكر بواسطة: rnmr , rnmr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص الداتا جريد فيو احمد خطاب 2 30 أمس, 12:42 PM
آخر رد: احمد خطاب
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 11 388 18-10-18, 10:39 PM
آخر رد: ahmedmansour
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 64 15-10-18, 08:09 PM
آخر رد: عبدالله الدوسري
  [سؤال] بخصوص تشفير ملف txt Mohamed20 6 776 13-10-18, 05:43 PM
آخر رد: asemshahen5
  استفسار عن البحث في مجلد في جهاز أخر بالشبكة المحلية أبووسم 4 108 13-10-18, 04:35 AM
آخر رد: حريف برمجة
  [VB.NET] استفسار :- بخصوص DataGridViewCheckBoxColumn dubai.eig 0 56 12-10-18, 10:05 PM
آخر رد: dubai.eig
  بخصوص حماية البرنامج وتفعيله salah mansour 2 75 06-10-18, 11:31 PM
آخر رد: asemshahen5
  [VB.NET] استفسار :- Speech To Text تحويل الصوت الى حروف dubai.eig 1 100 05-10-18, 07:08 PM
آخر رد: alsouf
  [VB.NET] مساعدة بخصوص كود الحفظ ay.alhaj 19 301 04-10-18, 10:22 PM
آخر رد: ay.alhaj
  [درس فيديو] أحب أن أسال أعضاء المنتدى سؤال بخصوص موضوع ( الشرح من خلال عمل فيديو صوت وصورة ) عبدالله الدوسري 21 584 03-10-18, 07:18 PM
آخر رد: larbihamri

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


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