01-10-18, 12:22 AM
السلام عليكم ورحمة الله
عندي كود يقراء ملف
والحروف في الملف مرات يكون حروف كبيره ومرات حروف صغيره
الكود عندي شغال بس اريد اغيره
مثلا اذا في نفس الملف في حروف كبيره او صغيره ما يفرق بينهم
الكود اللي عندي
اول شي يفحص الملف اذا كانت هذه الكلمه
صغيره يعمل كذا
واذا كانت كبيره
الكود كامل
اتوقع التغيير من هنا
حاولت اغير بس ما ضبط
بارك الله فيكم
وشكرا
عندي كود يقراء ملف
والحروف في الملف مرات يكون حروف كبيره ومرات حروف صغيره
الكود عندي شغال بس اريد اغيره
مثلا اذا في نفس الملف في حروف كبيره او صغيره ما يفرق بينهم
الكود اللي عندي
كود :
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)
حاولت اغير بس ما ضبط
بارك الله فيكم
وشكرا