تبدیل لیست شهرهای استان های ایران به Select از HTML

سلام
برای این کار من یک نرم افزار ایجاد کردم بایک پنجره که کافیه اسامی شهرها رو از یک لیست کپی کنید مثل این لیست: نام شهرهای ایران به تفکیک استان ✔️ ایران چند شهر دارد؟ 1402 - iraniju

و در نهایت با استفاده از کلید Replace Text & Export To Clipboard اون لیست رو به یک شی Select از HTML تبدیل می کنه و می تونید در سند HTML ازش استفاده کنید و یک ویژگی که داره لیست اسامی شهرها رو مرتب سازی می کنه....

ضمیمه 155711

از ونجایی که نام شهرها تغییر می کنه یا ممکنه اضافه یا کم بشه این برنامه کمک می کنه مجددا اسامی شهرها رو بروزرسانی کنیم ....

Public Class Form1

    Function CreateOption(value As String) As String

        Return String.Format("<option value={1}{0}{1}>{0}</option>", value, Chr(34))

    End Function

    Function CreateSelectBegin(attributes As String) As String

        Return String.Format("<select {1}>", Chr(34), attributes)

    End Function

    Function CreateSelectEnd() As String

        Return String.Format("</select>")

    End Function

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

        Dim Spl As String() = Split(Me.TextBox1.Text, Choose(Me.ComboBox1.SelectedIndex + 1, ",", vbNewLine))

        Dim Expr As String = CreateSelectBegin(Me.GroupBox.Text)

        Array.Sort(Spl)

        For Each Word As String In Spl

            If String.IsNullOrEmpty(Word) Then Continue For

            Word = Word.Replace(Chr(34), "").Trim

            Expr += vbNewLine + CreateOption(Word)

        Next

        Expr += vbNewLine + CreateSelectEnd()

        Me.TextBox2.Text = Expr

    End Sub





    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        Button1_Click(sender, e)

        With New SaveFileDialog With {.Filter = "*.txt|*.txt"}

            .FileName = Me.GroupBox.Text

            If .ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then Exit Sub

            IO.File.WriteAllText(.FileName, Me.TextBox2.Text)

        End With





    End Sub





    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        Me.TextBox1.Text = Clipboard.GetText()

        Button1_Click(sender, e)

        Button4_Click(sender, e)

    End Sub





    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

        Clipboard.SetText(Me.TextBox2.Text)

    End Sub





    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Me.ComboBox1.SelectedIndex = 0

    End Sub

End Class