[دموع الوطن]

السلام عليكم

كيفكم يا شباب

كود :

Public Class Form1
   Dim Numpers As New List(Of String)
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox1.Text.Trim <> Nothing AndAlso TextBox2.Text.Trim <> Nothing Then
           If CLng(TextBox1.Text) < CLng(TextBox2.Text) Then
               For I As Long = CLng(TextBox1.Text) To CLng(TextBox2.Text)
                   Numpers.Add(I.ToString)
               Next
           Else
               For I As Long = CLng(TextBox1.Text) To CLng(TextBox2.Text) Step -1
                   Numpers.Add(I.ToString)
               Next
           End If
           Me.Text = "Numpers Generated : " & Numpers.Count
       End If
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Numpers.Clear()
       Me.Text = "Numpers Generated : 0"
   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If Numpers.Count = 0 Then MsgBox("لا توجد ارقام لحفظها", MsgBoxStyle.Exclamation, "خطا") : Exit Sub
       Dim SFD As New SaveFileDialog
       If SFD.ShowDialog = DialogResult.OK Then
           IO.File.WriteAllLines(SFD.FileName & ".txt", Numpers.ToArray)
           MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "تم")
       End If
   End Sub

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

   End Sub
End Class

الكود بخد ا النصوص
بس هيك

1110000-1119999

انا عاوز الكود يكون

مثل هيك

1110000-1119999

2220000-2229999

3330000-3339999

---

شرح فيديو

انا عندي الارقام كتيررر يعني ممكن يكون مثل هيك

1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999
1111000-1111999

كيترر يا اخي ان شاء الله واصل افكرا اذا بدك ارفع مشروع برفع

ياريت بسرع واقات تساعدوني

تحياتي الكم