Здарова ВСЕМ.
Люди помогите незнающему . Есть скрипт который читает и выводит в окне последние 3 строки в TXT файле. Так как сделать так чтоб не выводить последние три строчки , а просто присвоить переменные отдельно например (в файле 5 строчек 1,2,3,4,5 нужно чтоб было так 1=a, 2=b, 3=c ну и так далее . Повторюсь знание VBS у меня =0. Поэтому если можно помогите.
Вот скрипт.
Код
Option Explicit
Dim strPath
Dim lngLines
Dim objFSO
Dim objTS
Dim i
Dim j
strPath = "d:\xdx\testreadfile.txt" ' Путь к текстовому файлу
lngLines = 3 ' Количество потребных последних строк
ReDim arrLines(lngLines - 1) ' Массив для организации очереди из считываемых строк
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(strPath)
With objTS
i = 0
Do Until .AtEndOfStream
arrLines(i) = .ReadLine()
i = (i + 1) Mod lngLines
Loop
.Close
End With
Set objTS = Nothing
Set objFSO = Nothing
For j = 0 To lngLines - 1
WScript.Echo arrLines((i + j) Mod lngLines)
Next
WScript.Quit 0
