[ابو روضة]

السلام عليكم إخوتى

اريد جلب هذا الجزء 

2458694440868208

من هذا الرابط لو تكرمتم

https://www.facebook.com/permalink.php?s...1830278541

علما بأن هذا الرقم   2458694440868208
متغير دائما

[ابراهيم ايبو]

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

اذا كان فقط الرقم بدون الرمز (&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, 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)

عليكم السلام ورحمة الله وبركاته...

ماشاء الله عليك أخى ابراهيم فعلا نجح مائة بالمائة...

لو وقف معايا ابقى لو تكرمت تابع الموضوع لو وقتك يسمح

لكن هو الى الان تمام وجزاك الله كل الخير

ولو تسمح ممكن شرح مبسط للكود ببعد اذنك عشان افهم بس

[ابراهيم ايبو]

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

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

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

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

[ابو روضة]

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

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

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

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

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

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

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

[ابراهيم ايبو]

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

اخي اذا كان الرقم دائما يتبع بعده (&) ثم احرف وارقام احيانا عددها 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)

[ابو روضة]

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

الله أكبر عليك أخى ابراهيم فعلا هذا ما كنت احتاجه تماما

ربنا يجزيك كل الخيرات يارب.

[ابو روضة]

لكن هناك ملايين الصفحات

وجربت لصفحات غير هذا ولم يجلب الأى دى

يعنى اوقات بكون الصفحة هكذا مثلا

https://www.facebook.com/groups/taha.bsm.980/permalink/2950937678561107/

والمطلوب 2950937678561107

ووأوقات هكذا

https://www.facebook.com/permalink....71768031770&notif_t=feedback_reaction_generic[/url]

والمطلوب 2458694440868208

وأوقات هكذا

[url=https://www.facebook.com/samhahmadko/posts/1333768690108153]https://www.facebook.com/samhahmadko/posts/1333768690108153

والمطلوب 1333768690108153 

فكيف يتم التعامل مع كل هذه المتغيرات ؟

[ابراهيم ايبو]

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

المشكلة ان النص شكله متغير وليس على نمط واجد كالبريد الالكتروني مثلا وموقع النص الذي تريده ايضا متغير المكان

 كما ان تقطيع النص بدلالة معينة ايضا غير ثابتة وعلى هذه المعطيات لايمكنك انشاء كود موحد ستحتاج الى عدد من الاكواد

ولكل نص كود تفطيع حاص به حسب الدلالات المهم ان الطريقة شرحتها لك...  اعمل بها وان شاء الله سوف تزيد عليها من ابداعاتك

وفقك الله ودمت بخير

[خبَيص]

هلا أخوي

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

كود :

Dim ff = Regex.Match(xx, "(?<=\D)\d{16}(?=\D|$)").Value