[mhmd_911]

هذا هو الكود

PHP كود :

       Dim lines As String() = IO.File.ReadAllLines("textfile.txt")

        Dim arr(4, 3) As Long

        For i = 0 To lines.Count - 1

            arr(i, 0) = lines(i).Substring(0, 4)

            arr(i, 1) = lines(i).Substring(4, 5)

            arr(i, 2) = lines(i).Substring(9, 9)

            arr(i, 3) = lines(i).Substring(18, 3)

        Next