[bakriano30@yahoo.com]

(21-07-19, 01:36 AM)سامي محمد كتب : بأمكانك استخدام هذا الكود سيتم جلب مفاتي الدول مع اسمائها من الموقع المتخصص

كود :

Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions

كود :

 Dim Ls As New ArrayList
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Str As String = "https://dialingcodes.me/allcodes.html"
        Dim ww As WebRequest = WebRequest.Create(Str)
        Dim HH As HttpWebResponse = ww.GetResponse
        Dim RDD As Stream = HH.GetResponseStream
        Dim R As New StreamReader(RDD)
        Dim S As String
        S = Regex.Replace(R.ReadToEnd, "(\r|\n)", "")
        Dim M As MatchCollection
        M = Regex.Matches(S, ">فتح\s*خط\s*(\d+).+?""NameCity"".+?[^>]+?\.html""\s*>([^>]+?)<")
        For x As Integer = 0 To M.Count - 1
            Ls.Add(M(x).Groups(1).Value & ":" & M(x).Groups(2).Value)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For x As Integer = 0 To Ls.Count - 1
            If Regex.IsMatch(Ls(x), TextBox3.Text) = True Then
                TextBox1.Text = Ls(x).split(":")(0)
                TextBox2.Text = Ls(x).split(":")(1)
                Exit For
            End If
        Next
    End Sub

ادخل في التكست رقم 3 اي مفتاح او اي اسم للدولة

اخ سامي انا متشكرااا جداا لك واتمني ان تكون لي صديق عبر الفيس بوك