المشاركات : 211
المواضيع 65
الإنتساب : Jun 2018
السمعة :
4
الشكر: 181
تم شكره 176 مرات في 103 مشاركات
24-08-19, 05:25 PM
(آخر تعديل لهذه المشاركة : 24-08-19, 05:25 PM {2} بواسطة 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
فكيف يتم جلبه تلقائيا
حاولت ولم اعرف حل
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
الكود التالي فقط لتركيبة النص اللتي كتبت:
PHP كود :
Dim Lp As Integer = TextBox1.Text.LastIndexOf("=") TextBox2.Text = Mid(TextBox1.Text, Lp + 2)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المشاركات : 211
المواضيع 65
الإنتساب : Jun 2018
السمعة :
4
الشكر: 181
تم شكره 176 مرات في 103 مشاركات
شكرا لك اخي سعود تم بنجاح
لكن هناك جزء ينقصني
الكود
PHP كود :
https://ْْْْْxxxxxxid=2290594997&f_omni=1&htel_id=1505562&ses=72d501a99589895cee38cccdb00a4108&lang=en
في بعض الاحيان يلي الكلمه كلام
كيف يتم فقط جلب الرقم ساوضح بالالوان
https://ْْْْْxxxxxxid=2290594997&f_omni=1&htel_id=1505562&ses= 72d501a99589895cee38cccdb00a4108&lang=en
اريد فقط المظلل باللون الاحمر
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
24-08-19, 09:02 PM
(آخر تعديل لهذه المشاركة : 24-08-19, 09:06 PM {2} بواسطة سعود.)
اخي الكريم حتى اشوف الاكواد حاول فيها انت بالدوال:
Left
Right
Mid
ولكها( طبعا أقصد وكلها) تحتاج نص اللي نريد نتعامل معاه ورقم البداية وطول النص المراد اخذه او الاستعانة برقم موضعه الاخيرة ليست ضرورية الا في الحالة المشابهة لحالتنا:
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المشاركات : 10
المواضيع 0
الإنتساب : Jul 2019
السمعة :
9
الشكر: 0
تم شكره 58 مرات في 21 مشاركات
كود :
Dim url As String = WebBrowser1.Url.AbsoluteUri.ToString()
TextBox2.Text = System.Text.RegularExpressions.Regex.Match(url, "(?<=ses=).+?(?=&|$)").Value
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
(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
ماشاء الله
والله تعبت من العصر الطويل وانا احاول في الريجكس وما استطعت!
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المشاركات : 211
المواضيع 65
الإنتساب : Jun 2018
السمعة :
4
الشكر: 181
تم شكره 176 مرات في 103 مشاركات
شكرا اخي سعود ربنا يكرمك
شكرا اخي الفاضل AAAAAAAAA
تمت بنجاح كما اريد
|