منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] رجاء تصحيح الكود التالي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] رجاء تصحيح الكود التالي (/showthread.php?tid=18928)

رجاء تصحيح الكود التالي - dubai.eig - 23-01-17

السلام عليكم ورحمة الله وبركاته


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


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

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


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

RE: رجاء تصحيح الكود التالي - مساعدة - 24-01-17

السلام عليكم

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


RE: رجاء تصحيح الكود التالي - dubai.eig - 25-01-17

(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'.


RE: رجاء تصحيح الكود التالي - dubai.eig - 25-01-17

(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

RE: رجاء تصحيح الكود التالي - مساعدة - 25-01-17

الحمد لله،

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