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

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

كود :

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

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

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

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

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

كود :

\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

تحياتى لك

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

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

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

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

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

تحياتى لك

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