vbs操作文本文件问题求助

来源：百度知道 编辑：UC知道 时间：2024/05/26 23:29:54
有一文本文件a.txt内容为
1
2
3
4
5
如何使用VBS编写一段程序对该文本的行顺序进行倒排？即
5
4
3
2
1

只需写出核心代码或给出思路就行，请高手出山支招

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (set var=%%i !var!)
for %%i in (!var!) do echo %%i
pause>nul

批处理不是更简单嘛。 VBS脚本{微软的}：

Const ForReading = 1
Const ForWriting = 2

Dim arrLines()
i = 0

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.txt", ForReading)

Do Until objFile.AtEndOfStream
Redim Preserve arrLines(i)
arrLines(i) = objFile.ReadLine
i = i + 1
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile("a.txt", ForWriting)

For i = Ubound(arrLines) to LBound(arrLines) Step -1
objFile.WriteLine arrLines(i)
Next

objFile.Close