Ini adalah sesuatu yang asli - skrip 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
Simpan sebagai (mis.) Revfile.vbs dan jalankan dengan menggunakan mesin cscript. Seperti yang tertulis, ini menggemakan output ke konsol. Untuk menulis baris terbalik ke file, gunakan >
operator (redirection) seperti ini:
cscript //nologo revfile.vbs "input.txt" > "output.txt"
Gunakan tanda kutip di sekitar nama file / jalur jika mereka memiliki spasi.
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