(18-02-19, 02:45 AM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم ابو روضة

اذا كان فقط الرقم بدون الرمز (&id) الذي يتغير دائما فإليك هذا الكود

كود :

Dim xx As String = "https://www.facebook.com/permalink.php?story_fbid=2458694440868208&id=100001830278541"
       Dim ff() = xx.Split("=")
       TextBox1.Text = ff(1).ToString.Substring(0, ff(1).ToString().Length - 3)

(18-02-19, 03:37 AM)ابراهيم ايبو كتب :

السلام عليكم اخي ابو روضة الحبيب

اولا أنشأنا مصفوفة عناصرها هي تقسيم النص الذي هو الرابط واعتمدنا اشارة (=) في التقسيم 

وكان الناتج طبعا ظاهر لنا 3 عناصر لان يوجد اشارة (=) عدد 2 ... ثم قمنا بانشاء متغير من نوع سترينغ قيمته تساوي العنصر الثاني طبعا (index 1 )

وهذا العنصر النصي فيه من الاخبر 3 حروف لانرغب بها لذلك قمنا بعملية اجتزاء (substring) بحيث الطول (length-3)  وهذا ماكان باحبيبي ابو روضة

(18-02-19, 04:02 AM)ابراهيم ايبو كتب :

السلام عليكم ابو روضة

اخي اذا كان الرقم دائما يتبع بعده (&) ثم احرف وارقام احيانا عددها 3 واحيانا 4 او حمسة لايهم

سنقوم بتقسيم ثان للعنصر ذو الاندكس 1 بالرمز (&)

وبذلك نأخذ العنصر الاول (index 0) وهو مجموعة الارقام.....تحياتي

كود :

Dim xx As String = "https://www.facebook.com/photo.php?fbid=10219160485787992&set=a.1260340273614&type=3"
       Dim ff() = xx.Split("=")
       Dim gg() = ff(1).Split("&")
       TextBox1.Text = gg(0)