سلام
برای این کار من یک نرم افزار ایجاد کردم بایک پنجره که کافیه اسامی شهرها رو از یک لیست کپی کنید مثل این لیست: نام شهرهای ایران به تفکیک استان ✔️ ایران چند شهر دارد؟ 1402 - iraniju
و در نهایت با استفاده از کلید Replace Text & Export To Clipboard اون لیست رو به یک شی Select از HTML تبدیل می کنه و می تونید در سند HTML ازش استفاده کنید و یک ویژگی که داره لیست اسامی شهرها رو مرتب سازی می کنه....
Annotation 2024-05-06 191243.jpg
از ونجایی که نام شهرها تغییر می کنه یا ممکنه اضافه یا کم بشه این برنامه کمک می کنه مجددا اسامی شهرها رو بروزرسانی کنیم ....
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
پاسخ با نقل قول