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

ممكن أعرف ما هو الخطأ فى هذا الباترين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن أعرف ما هو الخطأ فى هذا الباترين (/showthread.php?tid=27149)

ممكن أعرف ما هو الخطأ فى هذا الباترين - ابو روضة - 28-10-18

السلام عليكم اخوتى
الموضوع بقالى ساعات بحاول معاه عشان افهم ايه الخطأ ومش عارف
مع ان الباترين فى الموقع صحيح لكن فى البرنامج بيظهر خطأ.
فمش عارف أجيب رابط الصورة وأعرضها داخل البيكتشر بوكس

كود :

Dim wc As New WebClient

        Dim sourceString As String = wc.DownloadString("https://www.storiesrealistic.com/قصص-واقعية-عن-الظلم/".Replace("\", ""))

        Dim s As String = Regex.Match(sourceString, "https?:\/\/w{3}\.storiesrealistic\.com\/(.+?)\jpg").Groups(1).Value

        PictureBox1.Load(s)

وهذا الباترين

كود :

https?:\/\/w{3}\.storiesrealistic\.com\/(.+?)\jpg

الصورة تبين ان الباترين صحيح

RE: ممكن أعرف ما هو الخطأ فى هذا الباترين - elgokr - 28-10-18

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

مرحباً اخى ابو روضة

المشكلة لديك فقط فى هذا الجزء

كود :

\j

ويفضل استخدام الكود بهذا الشكل

كود :

       Dim wc As New WebClient

        Dim sourceString As String = wc.DownloadString("https://www.storiesrealistic.com/قصص-واقعية-عن-الظلم/".Replace("\", ""))

        Dim s As String = Regex.Match(sourceString, "https?:\/\/w{3}\.storiesrealistic\.com\/(.+?).jpg").Value

        PictureBox1.Load(s)

تم حذف .Groups(1) لاتمام جلب الرابط كاملاً للصورة

الا اذا كنت ستقوم بتحميل الصورة بجانب البرنامج من ثم عرضها فى PictureBox1

تحياتى لك

وتمنياتى لك التوفيق

RE: ممكن أعرف ما هو الخطأ فى هذا الباترين - ابو روضة - 28-10-18

(28-10-18, 11:03 PM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

مرحباً اخى ابو روضة
المشكلة لديك فقط فى هذا الجزء

كود :

\j

ويفضل استخدام الكود بهذا الشكل

كود :

Dim wc As New WebClient Dim sourceString As String = wc.DownloadString("https://www.storiesrealistic.com/قصص-واقعية-عن-الظلم/".Replace("\", "")) Dim s As String = Regex.Match(sourceString, "https?:\/\/w{3}\.storiesrealistic\.com\/(.+?).jpg").Value PictureBox1.Load(s)

تم حذف .Groups(1) لاتمام جلب الرابط كاملاً للصورة

الا اذا كنت ستقوم بتحميل الصورة بجانب البرنامج من ثم عرضها فى PictureBox1

تحياتى لك

وتمنياتى لك التوفيق

حمدلله على السلامة أخى...

أظن أن الحل كان فى الترميز أخى لذا قمت بفضل الله بعملها هكذا بعد تعب كبير

كود :

 Dim wc As New WebClient

        wc.Encoding = Encoding.UTF8

        Dim sourceString As String = wc.DownloadString(TextBox3.Text)

        Dim patren As String = Regex.Match(sourceString, "https?:\/\/\w{3}\.\w+\.\w+\/\w+-\w+\/\w+\/\d{4}\/\d{2}\/[ء-ي].+\.\w{3}").Value

        PictureBox1.Load(patren)

RE: ممكن أعرف ما هو الخطأ فى هذا الباترين - elgokr - 28-10-18

الله يسلمك يارب اخى وحبيبى

وجميل ما تقوم به من توضيح لما توصلت اليه

حتى تعم الفائدة للجميع

تحياتى لك

وتمنياتى لك التوفيق