vbscript - Vbscript 寻找文件末尾以制作尾部命令脚本

Question

我使用 vbscript 编写了一个简单的尾部命令。它工作正常，除了非常大的文件，它必须通读整个文件才能获得最后 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