Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim splitref() As String = IO.File.ReadAllLines("مرجع التقسيم.txt")
Dim globallines() As String = IO.File.ReadAllLines("global.txt")
Dim pos As Integer = 0
For Each s As String In splitref
Dim t As New System.Text.StringBuilder
Dim filename As String = Split(s, "=")(0) & ".txt"
Dim count As Integer = Val(Split(s, "=")(1))
For j = 0 To count - 1
t.AppendLine(globallines(pos + j))
Next
pos += count
IO.File.WriteAllText(filename, t.ToString)
Next
End Sub