منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : رجاء تصحيح الكود التالي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته


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


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

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.+?>).+?(?=<)


يا ليت احصل حل يقراء في نفس السطر او السطر الثاني
السلام عليكم

ضع RegexOptions.Singleline مع RegexOptions.IgnoreCase ليصبح
كود :
Dim colcall As String = Regex.Match(ms(i), "(?<=<call.+?>).+?(?=<)", RegexOptions.IgnoreCase+RegexOptions.Singleline).Value
(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'.
(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
الحمد لله،

كل من Or أو + تؤدي نفس النتيجة.