[mhmd_911]

تفضل

PHP كود :

   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