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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information ما هو الخطاء في الكود ProgressBar1 Mostafa201255411 1 193 26-11-25, 08:19 PM
آخر رد: asmarsou
  كيف نستخرج نص الالتاريخ الاول من النص التالي: justforit 0 130 31-10-25, 05:33 PM
آخر رد: justforit
  [VB.NET] مساعدة تعديل على الكود ZEEN4ZEEN 2 210 08-10-25, 02:20 PM
آخر رد: salamandal
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 2 1,051 28-08-25, 09:13 AM
آخر رد: محمد مسافر
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 0 843 27-08-25, 04:05 PM
آخر رد: محمد مسافر
  [VB.NET] رجاء لخبير برمجة كريم Mostafa25 1 630 21-07-25, 03:22 AM
آخر رد: Taha Okla
  ما هو الخطأ فى هذا الكود خالد كامل1 10 1,163 28-05-25, 09:16 PM
آخر رد: خالد كامل1
  ارجو تعديل الكود بواستطة الاجراء المخزن new_programer 3 677 03-04-25, 02:44 PM
آخر رد: princelovelorn
  مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت سيد أحمد 5 820 23-03-25, 10:54 PM
آخر رد: سيد أحمد
  ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال new_programer 0 621 05-02-25, 01:51 AM
آخر رد: new_programer

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


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