تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser
#1
السلام عليكم ورحمه الله وبركاته
لدي رابط الصفحة هذه
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 

فكيف يتم جلبه تلقائيا
حاولت ولم اعرف حل
الرد
تم الشكر بواسطة: سعود , asemshahen5
#2
الكود التالي فقط لتركيبة النص اللتي كتبت:
PHP كود :
       Dim Lp As Integer TextBox1.Text.LastIndexOf("=")
 
       TextBox2.Text Mid(TextBox1.TextLp 2
الرد
#3
شكرا لك اخي سعود تم بنجاح
لكن هناك جزء ينقصني
الكود
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
اريد فقط المظلل باللون الاحمر
الرد
تم الشكر بواسطة: asemshahen5
#4
اخي الكريم حتى اشوف الاكواد حاول فيها انت بالدوال:
Left
Right
Mid
ولكها(طبعا أقصد وكلهاSad) تحتاج  نص اللي نريد نتعامل معاه ورقم البداية وطول النص المراد اخذه او الاستعانة برقم موضعه  الاخيرة ليست ضرورية الا في الحالة المشابهة لحالتنا:
الرد
تم الشكر بواسطة: mohamedahmed1 , ابراهيم ايبو , asemshahen5
#5
PHP كود :
       Dim lp As Integer Txtmain.Text.LastIndexOf("&")
 
       Dim fp As Integer Txtmain.Text.LastIndexOf("&ses=")
 
       Dim r As String Strings.Left(Txtmain.Textlp)
 
       Dim r2 As String Mid(rfp)
 
       Dim r3 As String Replace(r2Strings.Left(r2r2.IndexOf("=") + 1), "")
 
       Txtresult.Text r3 
الرد
#6
كود :
Dim url As String = WebBrowser1.Url.AbsoluteUri.ToString()
TextBox2.Text = System.Text.RegularExpressions.Regex.Match(url, "(?<=ses=).+?(?=&|$)").Value
الرد
#7
(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

ماشاء الله
والله تعبت من العصر الطويل وانا احاول في الريجكس وما استطعت!
الرد
#8
شكرا اخي سعود ربنا يكرمك
شكرا اخي الفاضل AAAAAAAAA
تمت بنجاح كما اريد
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن مساعدة في فك تشفير الرابط crazykinko 7 583 22-10-21, 12:53 AM
آخر رد: crazykinko
  ممكن مساعدة بخصوص كويري معين حدتت به اخطاء Alanwalker 9 804 21-10-21, 01:27 PM
آخر رد: mahmoud_f
  كيفية اظهار رسالة داخل الفيجوال بيزيك واختفائها تلقائياَ بعد فترة ابو نور الهدى 1 137 15-10-21, 06:47 PM
آخر رد: asemshahen5
  [VB.NET] مساعدة في تحويل هذا الكود و جعله يعمل Necro PC 2 183 15-10-21, 03:08 PM
آخر رد: Necro PC
  مساعدة في كود حذف ahmedbezia 1 245 13-10-21, 02:05 PM
آخر رد: Miloud
  كود منع ادخال ارقام او حروف داخل التيكست بوكس ابو نور الهدى 2 252 05-10-21, 11:14 AM
آخر رد: ابو نور الهدى
  [VB.NET] مساعدة من اهل الاختصاص نضال ابو العافية 0 148 04-10-21, 12:47 AM
آخر رد: نضال ابو العافية
  احتاج كود لأنشاء امر الدفع و ربط جهاز الدفع الإلكتروني او الشبكي مع البرنامج mohamedgadain61 3 373 26-09-21, 08:31 PM
آخر رد: mohamedgadain61
  محتاج مساعدة ضرورية معاذ السامرائي 2 387 22-09-21, 12:08 AM
آخر رد: معاذ السامرائي
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 1 317 20-09-21, 10:57 PM
آخر رد: ميدو الفنان

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


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