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

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

احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser - dametucorazon - 24-08-19

السلام عليكم ورحمه الله وبركاته
لدي رابط الصفحة هذه
PHP كود :
https://ْْْْْxxxxxxid=2290594997&f_omni=1&htel_id=1505562&ses=72d501a99589895cee38cccdb00a4108&lang=en 
واستخدم هذا الكود لجلب عنوان الصفحة الحالية داخل تيكست بوكس

PHP كود :
Dim url As String = WebBrowser1.Url.AbsoluteUri.ToString()
        TextBox2.Text = url.ToString 

ولدي تيكست بوكس اخر احاول استبدال الكلام بالذى اريده فقط
PHP كود :
TextBox2.Text = TextBox2.Text.Replace("https://xxxxxxxxid=2290594997&f_omni=1&htel_id=1505562&ses= 
PHP كود :
TextBox1.Text = TextBox2.Text.Replace(https://xxxxxxxxid=2290594997&f_omni=1&htel_id=1505562&ses=","") 
علما بان الرقم الذي اريده هو الذي يلي كلمه
ses
PHP كود :
72d501a99589895cee38cccdb00a4108 

فكيف يتم جلبه تلقائيا
حاولت ولم اعرف حل

RE: احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser - سعود - 24-08-19

الكود التالي فقط لتركيبة النص اللتي كتبت:
PHP كود :
       Dim Lp As Integer = TextBox1.Text.LastIndexOf("=")
        TextBox2.Text = Mid(TextBox1.Text, Lp + 2) 


RE: احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser - dametucorazon - 24-08-19

شكرا لك اخي سعود تم بنجاح
لكن هناك جزء ينقصني
الكود
PHP كود :
https://ْْْْْxxxxxxid=2290594997&f_omni=1&htel_id=1505562&ses=72d501a99589895cee38cccdb00a4108&lang=en 

في بعض الاحيان يلي الكلمه كلام  
PHP كود :
&lang=en 
كيف يتم فقط جلب الرقم ساوضح بالالوان

https://ْْْْْxxxxxxid=2290594997&f_omni=1&htel_id=1505562&ses=72d501a99589895cee38cccdb00a4108&lang=en
اريد فقط المظلل باللون الاحمر

RE: احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser - سعود - 24-08-19

اخي الكريم حتى اشوف الاكواد حاول فيها انت بالدوال:
Left
Right
Mid
ولكها(طبعا أقصد وكلهاSad) تحتاج  نص اللي نريد نتعامل معاه ورقم البداية وطول النص المراد اخذه او الاستعانة برقم موضعه  الاخيرة ليست ضرورية الا في الحالة المشابهة لحالتنا:

RE: احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser - سعود - 24-08-19

PHP كود :
       Dim lp As Integer = Txtmain.Text.LastIndexOf("&")
        Dim fp As Integer = Txtmain.Text.LastIndexOf("&ses=")
        Dim r As String = Strings.Left(Txtmain.Text, lp)
        Dim r2 As String = Mid(r, fp)
        Dim r3 As String = Replace(r2, Strings.Left(r2, r2.IndexOf("=") + 1), "")
        Txtresult.Text = r3 


RE: احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser - AAAAAAAAA - 24-08-19

كود :
Dim url As String = WebBrowser1.Url.AbsoluteUri.ToString()
TextBox2.Text = System.Text.RegularExpressions.Regex.Match(url, "(?<=ses=).+?(?=&|$)").Value


RE: احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser - سعود - 24-08-19

(24-08-19, 10:18 PM)AAAAAAAAA كتب :
كود :
Dim url As String = WebBrowser1.Url.AbsoluteUri.ToString()
TextBox2.Text = System.Text.RegularExpressions.Regex.Match(url, "(?<=ses=).+?(?=&|$)").Value

ماشاء الله
والله تعبت من العصر الطويل وانا احاول في الريجكس وما استطعت!

RE: احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser - dametucorazon - 25-08-19

شكرا اخي سعود ربنا يكرمك
شكرا اخي الفاضل AAAAAAAAA
تمت بنجاح كما اريد