[dametucorazon]

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

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) 


[dametucorazon]

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

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
ولكها(طبعا أقصد وكلها) تحتاج  نص اللي نريد نتعامل معاه ورقم البداية وطول النص المراد اخذه او الاستعانة برقم موضعه  الاخيرة ليست ضرورية الا في الحالة المشابهة لحالتنا:

[سعود]

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 


[AAAAAAAAA]

كود :

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

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

[dametucorazon]

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