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

السلام عليكم ورحمه الله وبركاته
لدي رابط الصفحة هذه

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 

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

الكود التالي فقط لتركيبة النص اللتي كتبت:

PHP كود :

       Dim Lp As Integer = TextBox1.Text.LastIndexOf("=")
        TextBox2.Text = Mid(TextBox1.Text, Lp + 2) 

شكرا لك اخي سعود تم بنجاح
لكن هناك جزء ينقصني
الكود

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
اريد فقط المظلل باللون الاحمر

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

) تحتاج نص اللي نريد نتعامل معاه ورقم البداية وطول النص المراد اخذه او الاستعانة برقم موضعه الاخيرة ليست ضرورية الا في الحالة المشابهة لحالتنا:

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 

كود :

Dim url As String = WebBrowser1.Url.AbsoluteUri.ToString()

TextBox2.Text = System.Text.RegularExpressions.Regex.Match(url, "(?<=ses=).+?(?=&|$)").Value

(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

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

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

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

dametucorazon

سعود

dametucorazon

سعود

سعود

AAAAAAAAA

سعود

dametucorazon