[الطالب]

سلام

لان معرفتي في الباترن بسيطه
اظطررت للتخلص من تعدد الاسطر بحذف vbnewline لاستطيع حلها

كود :

Replace(vbNewLine, "")

ثم تطبيق الباترن

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   MsgBox(IPCountry)
End Sub

Private Function IPCountry() As String
   On Error Resume Next
   Dim src As String = New Net.WebClient().DownloadString("http://ip-address-lookup-v4.com/")
   Return System.Text.RegularExpressions.Regex.Match(src.Replace(vbNewLine, ""), "(?<=Country:</div>?\s+<div class=""mapvalue"">).+?(?=<)").Value.Trim
End Function

الجديد في هذا الباترن هنا s\ وتعي المسافه ووضع + وتعني التكرار
لانه حيكون فيه تقريبا 20 مسافات في وسط النص بعد حذف vbnewline


ملاحظه:
هذا الموقع ip-address-lookup-v4.com اعطاني romania من اني في السعوديه - طبعا حسب الايبي اللي انا شابك فيه حاليا
هذا الموقع متاخر في تحديث بيناته في قاعدت بياناته لهذا قد يعطيك اسم البلد قديم
لان الاي بي احيانا يعطي لشخص اخر او شركه اخرى في بلد اخر

لكن في الموقع ipinfodb.com اعطاتي saudi arabia - طبعا حسب الايبي اللي انا شابك فيه حاليا


يعني الدقه تعتمد على سرعت تحديث قاعدت بيانات الموقع اللي يقدم الخدمه


موفقين