Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\boot.ini", ForReading)
Dim arrFileLines()
i = 0
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
4条答案
按热度按时间kxxlusnw1#
或者试试用
主要的区别是我使用了一个函数调用,并使用了%~z1,因为修饰符只适用于像%1,%2 ..%9这样的参数或像%%a...这样的for-loop参数。
bf1o4zei2#
使用文件比较的批处理解决方案:
kcwpcxri3#
avkwfej44#
试试这个: