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

(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)  وهذا ماكان باحبيبي ابو روضة

الله يجبر بخاطرك حبيب قلبى اخى إبراهيم ...
اصل بحاول اجلب اى دى اى منشور على الفيس بوك لكن اوقات الروابط بتكون متغيرة وهذا ما حدث معى بالفعل الان
هكذا مثلا   https://www.facebook.com/hala.rajjoub.7/...6046802544

 وحدث خطأ بالبرنامج وطبعا انا بجرب على اى منشور مش شرط هذا

(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)

والمطلوب 2458694440868208

وأوقات هكذا

هلا أخوي

جرب تستخدم الريجيكس تراها احسلك من التقطيع وهاذ هو الباترن