هذا هو الكود
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


