用vbscript实现从后到前阅读一个文本文件
程序员文章站
2022-07-04 20:27:04
问： 嗨，scripting guy！我有一个日志文件，新的数据总是被添加到文件的底部；也就是说最近的条目总是位于文件的末尾处。我想从最后一行开始读取内容，直到文...
问：
嗨，scripting guy！我有一个日志文件，新的数据总是被添加到文件的底部；也就是说最近的条目总是位于文件的末尾处。我想从最后一行开始读取内容，直到文件的第一行，但是我不知道怎样实现。
-- mb, milwaukee, wi
答：
您好，mb.filesystemobject 非常有用，但是它也具有它自己的一些限制；主要限制之一便是它只能从前向后读取文件内容。和 tail 工具不同，您不能要求 filesystemobject 从后向前读取文件。（好，我们假定您要求这么做，但是它肯定无法为您实现。）
但是，没有关系，正如使用脚本做其他事情一样，您总能找到一个办法冲破这种限制的束缚。在这种情况下，我们所做的就是继续向前，从前向后读取文件，从第一行还是，到最后一行结束。但是，和立即将这些行显示在屏幕上不同，我们将它们保存在一个数组里，文件中的每一行代表数组中的一个元素。
我们为什么要这样做？好，现在我们有了一个下面这样的数组，保存了文本文件中的信息：
violet
indigo
blue
green
yellow
orange
red
不可否认的是，我们现在所做的就像重新发明*一样。不过，文本文件和数组之间有一个重要的不同之处： 从后向前读取数组非常容易。我们将要脚本从数组中的最后一个项目开始（我们可以使用 ubound 函数来确定）并且从后向前读取到数组的第一个项目（lbound）。
在我们的示例数组中，有 7 个项目；最后一个项目（ubound）是单词 red，第一个项目（lbound）是单词 violet。数组中的第一个项目的下标为 0；所以 violet 的下标为 0，red 的下标为 6。我们的脚本将从项目 6 开始向前到项目 0 为止。那怎样实现呢？我们将参数 step 设为 -1，也就表示，“找到项目 6 ，然后对它做点什么；然后将下标减 1，得到 5。在找到项目 5 ，再对它做点什么。重复这个过程，直到处理完了数组中的所有项目。”
具体的实现代码如下所示：
dim arrfilelines()
i = 0
set objfso = createobject("scripting.filesystemobject")
set objfile = objfso.opentextfile("c:\fso\scriptlog.txt", 1)
do until objfile.atendofstream
redim preserve arrfilelines(i)
arrfilelines(i) = objfile.readline
i = i + 1
loop
objfile.close
for l = ubound(arrfilelines) to lbound(arrfilelines) step -1
wscript.echo arrfilelines(l)
next
如果您没有使用过数组，可能看起来有点糊涂，但是在熟悉了它之后，便会发现它实际上很简单。
好，我们从后向前读取文件的输出结果如下所示：
red orange yellow green blue indigo violet
有关数组使用的更多信息，请参阅microsoft windows 2000 脚本编写指南.
嗨，scripting guy！我有一个日志文件，新的数据总是被添加到文件的底部；也就是说最近的条目总是位于文件的末尾处。我想从最后一行开始读取内容，直到文件的第一行，但是我不知道怎样实现。
-- mb, milwaukee, wi
答：
您好，mb.filesystemobject 非常有用，但是它也具有它自己的一些限制；主要限制之一便是它只能从前向后读取文件内容。和 tail 工具不同，您不能要求 filesystemobject 从后向前读取文件。（好，我们假定您要求这么做，但是它肯定无法为您实现。）
但是，没有关系，正如使用脚本做其他事情一样，您总能找到一个办法冲破这种限制的束缚。在这种情况下，我们所做的就是继续向前，从前向后读取文件，从第一行还是，到最后一行结束。但是，和立即将这些行显示在屏幕上不同，我们将它们保存在一个数组里，文件中的每一行代表数组中的一个元素。
我们为什么要这样做？好，现在我们有了一个下面这样的数组，保存了文本文件中的信息：
violet
indigo
blue
green
yellow
orange
red
不可否认的是，我们现在所做的就像重新发明*一样。不过，文本文件和数组之间有一个重要的不同之处： 从后向前读取数组非常容易。我们将要脚本从数组中的最后一个项目开始（我们可以使用 ubound 函数来确定）并且从后向前读取到数组的第一个项目（lbound）。
在我们的示例数组中，有 7 个项目；最后一个项目（ubound）是单词 red，第一个项目（lbound）是单词 violet。数组中的第一个项目的下标为 0；所以 violet 的下标为 0，red 的下标为 6。我们的脚本将从项目 6 开始向前到项目 0 为止。那怎样实现呢？我们将参数 step 设为 -1，也就表示，“找到项目 6 ，然后对它做点什么；然后将下标减 1，得到 5。在找到项目 5 ，再对它做点什么。重复这个过程，直到处理完了数组中的所有项目。”
具体的实现代码如下所示：
dim arrfilelines()
i = 0
set objfso = createobject("scripting.filesystemobject")
set objfile = objfso.opentextfile("c:\fso\scriptlog.txt", 1)
do until objfile.atendofstream
redim preserve arrfilelines(i)
arrfilelines(i) = objfile.readline
i = i + 1
loop
objfile.close
for l = ubound(arrfilelines) to lbound(arrfilelines) step -1
wscript.echo arrfilelines(l)
next
如果您没有使用过数组，可能看起来有点糊涂，但是在熟悉了它之后，便会发现它实际上很简单。
好，我们从后向前读取文件的输出结果如下所示：
red orange yellow green blue indigo violet
有关数组使用的更多信息，请参阅microsoft windows 2000 脚本编写指南.