تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 150 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 240 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  زر التالي داتاجريدفيور annagui 0 159 31-01-24, 04:53 PM
آخر رد: annagui
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 201 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 457 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] مطلوب تصحيح سطر فى هذا الــ Function AhmedEissa 3 493 13-12-23, 12:55 AM
آخر رد: العتيق
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 420 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 508 11-10-23, 07:17 PM
آخر رد: bidaya

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


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