Ось щось рідне - сценарій VBScript (.vbs).
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
infile = Wscript.Arguments(0)
Set objTextFile = objFSO.OpenTextFile (infile, ForReading)
strText = objTextFile.ReadAll
objTextFile.Close
arrText = Split(strText, vbCrLf)
for l = ubound(arrText)-1 to 0 step -1
wscript.echo arrText(l)
Next
Збережіть його як (наприклад) revfile.vbs та запустіть його за допомогою двигуна cscript. Як написано, це відлуння виходу на консоль. Щоб записати перевернуті рядки у файл, використовуйте >
оператор (перенаправлення) таким чином:
cscript //nologo revfile.vbs "input.txt" > "output.txt"
Використовуйте лапки навколо назв / шляхів файлів, якщо вони мають пробіли.
C:\Test>type input.txt
apple
bear
cat
dog
egg
fog
gas
hip
ink
joe
kilo
C:\Test>type output.txt
kilo
joe
ink
hip
gas
fog
egg
dog
cat
bear
apple