Vbscript 寻求文件末尾以制作尾部命令脚本

Question

我用vbscript写了一个简单的tail命令。 它工作正常，除了非常大的文件，它必须通读整个文件才能获得最后 10 行。 有没有办法寻找文件的末尾，然后向后读取十行？

Answer 1

恐怕在 VBS TextStream 中不可能向后搜索，但与其通读整个文件，不如寻找一个位置，例如。 在EOF之前读取1K，然后读取文件的其余部分，仅显示最后10行。

编辑：我正在添加一些示例代码来说明这个想法：

set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFile(filePath)
set stream = file.OpenAsTextStream(1, -2)
pos1KBeforeEnd = file.Size-1024
if pos1KBeforeEnd<0 then pos1KBeforeEnd=0
stream.Skip pos1KBeforeEnd