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


يسعد الله اوقاتكم


قمت من فترة كتابة موضوع بخصوص نفس المشكله ىتقريبا وما قصر اخي الوادي

http://vb4arb.com/vb/thread-16602.html


مشكلتي الان

الكود يقراء اذا كان السطر يبدى وينتهي في نفس السطر كمثال
كود :
<RST_SENT:2>59 <CALL:4>F1TTT  <EOR>

طبعا ينتهي السطر عند
كود :
<EOR>


بس اذا كان ينتهي في السطر الثاني ما يقراء اخر ادخال كمثال الكود التالي لم يتم قراءة <CALL:4>F1TTT 
كود :
<RST_SENT:2>59 <CALL:4>F1TTT  
<qso_date:8>20160112 <EOR>


وهنا الكود الي اتعامل معاه

كود :
Dim colcall As String = Regex.Match(ms(i), "(?<=<call.+?>).+?(?=<)", RegexOptions.IgnoreCase).Value


كود :
(?<=<call.+?>).+?(?=<)


يا ليت احصل حل يقراء في نفس السطر او السطر الثاني
الرد
تم الشكر بواسطة:
#2
السلام عليكم

ضع RegexOptions.Singleline مع RegexOptions.IgnoreCase ليصبح
كود :
Dim colcall As String = Regex.Match(ms(i), "(?<=<call.+?>).+?(?=<)", RegexOptions.IgnoreCase+RegexOptions.Singleline).Value
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig
#3
(24-01-17, 12:14 AM)مساعدة كتب : السلام عليكم

ضع  RegexOptions.Singleline  مع RegexOptions.IgnoreCase ليصبح
كود :
Dim colcall As String = Regex.Match(ms(i), "(?<=<call.+?>).+?(?=<)", RegexOptions.IgnoreCase+RegexOptions.Singleline).Value



اهلا بك

شكرا على الرد 

يوم احط الكود تطلع لي هذه المشكلة

كود :
Error    6    Overload resolution failed because no accessible 'Match' can be called without a narrowing conversion:
   'Public Function Match(input As String, beginning As Integer, length As Integer) As System.Text.RegularExpressions.Match': Argument matching parameter 'beginning' narrows from 'String' to 'Integer'.
   'Public Shared Function Match(input As String, pattern As String, options As System.Text.RegularExpressions.RegexOptions) As System.Text.RegularExpressions.Match': Argument matching parameter 'options' narrows from 'Integer' to 'System.Text.RegularExpressions.RegexOptions'.
الرد
تم الشكر بواسطة:
#4
(24-01-17, 12:14 AM)مساعدة كتب : السلام عليكم

ضع  RegexOptions.Singleline  مع RegexOptions.IgnoreCase ليصبح
كود :
Dim colcall As String = Regex.Match(ms(i), "(?<=<call.+?>).+?(?=<)", RegexOptions.IgnoreCase+RegexOptions.Singleline).Value




الحمدالله تم حل المشكلة م قصرة كالعادة تقدم لنا الحلول 

شكرا من جديد

الود التالي نفع

كود :
RegexOptions.IgnoreCase Or RegexOptions.Singleline

Shy
الرد
تم الشكر بواسطة:
#5
الحمد لله،

كل من Or أو + تؤدي نفس النتيجة.
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اخفاء فروم الـ login - واظهار الفروم التالي Sanaa2 3 83 17-09-20, 01:37 AM
آخر رد: Sanaa2
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 183 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 84 09-09-20, 01:33 PM
آخر رد: momani33
  ماهو الخطاء في هذا الكود عمور2016 1 89 06-09-20, 06:33 PM
آخر رد: حريف برمجة
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 905 05-09-20, 03:36 PM
آخر رد: معاند الحظ
  [سؤال] طلب تصحيح كود paveldida 1 135 24-08-20, 02:55 PM
آخر رد: اسامه الهرماوي
  [سؤال] خطأ في التنفيذ الكود بعد فلترة dataGridView محمد العامر 2 210 20-08-20, 01:38 PM
آخر رد: محمد العامر
  [مشروع] هلا ساعدتموني في اكتشاف الخطأ في الكود gharib 6 289 18-08-20, 03:45 PM
آخر رد: gharib
  [كود] اريد التعديل على الكود وهو عدم التكرار عمور2016 3 251 23-07-20, 01:03 AM
آخر رد: عبد العزيز البسكري
  هذا الكود غلبني المهنا 2 276 19-07-20, 12:12 AM
آخر رد: المهنا

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


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