个人中心
文章发布
退出
作者热门文章
- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
24
4
CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章用vbs读取文本文件的最后一行由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.
问： 您好，脚本专家！如何仅读取文本文件的最后一行？ -- BM 答： 您好，BM。如果您曾经想知道您好，脚本专家！与其它每日专栏（比如，知心姐姐）的不同之处，那么，下面是一种途径。假设有人在给知心姐姐的信中说： 知心姐姐： 我的生活一团糟，我需要采取一些措施来应对。我如何能扭转我的生活并且重新快乐起来？ 绝望之人于代顿 知心姐姐绝不会给绝望之人这样的答复： 亲爱的绝望之人： 唉，您的生活不能变好了。很抱歉。 那么，您认为脚本专家会如何答复您关于读取文本文件的最后一行呢？答对了： 亲爱的 BM： 唉，您不能。很抱歉。 不过，请等一下，先不要走。的确，知心姐姐绝不会说，“您知道，Desperate，要使您快乐起来我无能为力。但是这有一个办法可以使您看起来是快乐的。”然而脚本专家却没有这样的疑虑。换句话说，我们无法为您提供仅读取文本文件最后一行的脚本。但是以下脚本可以看起来仅读取文本文件的最后一行:
复制代码 代码如下
Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine Loop objFile.Close Wscript.Echo strLine 。
我们此处遇到的问题是 FileSystemObject（用于处理文本文件的脚本对象）只知道一个方向：向前。它必须从文件开头开始，而且只能继续向文件的末尾运行。您无法指定其他起始位置且无法反向读取（即从末尾到开头）。实际上，您甚至无法重新读取文件：除非关闭然后再重新打开该文件，否则到达文件末尾后您无法重新读取该文件。这就是为什么涉及到文本文件时，教程的解决方法几乎都是一样的。 此处的解决方法是，我们实际上确实从头至尾读取整个文本文件。然而，我们只跟踪所读取的最后一行。读到文件的末尾时，我们将得到一个变量，它包含所读取的最后一行的值；它同时也是文件的最后一行。回显该变量的值时，看起来好像我们只读取了最后一行（尤其是没有其他东西要处理的时候，FileSystemObject 的速度非常快）。我们没有 - 我们实际上读取了整个文件 - 但是没有人会知道。这将是我们的小秘密。 至于代码本身，我们首先定义名为 ForReading 的常量并将其值设为 1；我们将使用该常量告诉 FileSystemObject 我们要打开待读取的文本文件。然后，我们创建 Scripting.FileSystemObject 的一个实例，并且使用 OpenTextFile 方法打开文件 C:\Scripts\Test.txt。接下来是下面这个代码块:
复制代码 代码如下
Do Until objFile.AtEndOfStream strLine = objFile.ReadLine Loop 。
此处我们要做的只是逐行读取文件，直到文件的末尾（即读到文件流末尾）。每次读取某行时，我们用刚读取的文本替换变量 strLine 的值。例如，假设文本文件包含三行： A C 在我们的循环中读取行 1，因此将值 A 赋给 strLine。在下一个循环中读取第二行，这意味着将值 B 赋给 strLine。再循环一次并且将值 C 赋给 strLine。因为我们已到达文件末尾，故 strLine 保持值 C，该值恰好为文件的最后一行。然后关闭文件并回显 strLine 的值。所有人只知道我们所做的是读取 - 返回 - 文件最后一行的值。 是的，很隐秘。 不可否认，此脚本存在一个潜在的问题。假设文件末尾添加了几行空白行。脚本将忠实地返回空（空值）作为文本文件的最后一行。这就是它应该做的：毕竟，文件的最后一行是空白。但是假设这是某种类型的日志文件，出于某种原因，创建此日志的应用程序总是将空白行放到文件末尾。在这种情况下，可能您真正感兴趣的是文件中最后的非空白行。下面是修改后的脚本，它使用 Len 函数检查所读取的每行的长度。如果长度等于 0，则意味着此行为空白行，便不在变量 strLine 中存储该值:
复制代码 代码如下
Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading) Do Until objFile.AtEndOfStream strNextLine = objFile.ReadLine If Len(strNextLine) > 0 Then strLine = strNextLine End If Loop objFile.Close Wscript.Echo strLine 。
羡慕吧，知心姐姐！ 。
最后此篇关于用vbs读取文本文件的最后一行的文章就讲到这里了,如果你想了解更多关于用vbs读取文本文件的最后一行的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。
24
4
0
我使用 IBM Personal Communications 12.0.3.0 的宏记录器制作了一个凭据输入宏。它只是在调用时输入我的用户名和密码。 sub Credentials() Dim
该批处理更改了 vbs 代码，使其无法供 vbs 使用。我该如何解决这个问题？ 批号: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
我有 2 个 vbs 文件。 A.vbs: Class test public a public b End Class B.vbs: Dim objShell Set objShell =
以下是我用来尝试在 IIS 6 中创建虚拟目录的条目: [Run] Filename: {tmp}\cscript.exe mkvirtdir.vbs; Parameters: "-c LocalHo
核心vbs代码 ? 1
对于vbs中ping的实现可以通过两种方式 ： 1、调用系统ping命令； 2、使用wmi查询pingstate类处理。 1、调用系统ping命令
在看vb开发,看到二维数组时突发奇想用二维数组作为游戏关卡; 1. 选择操作: 游戏开始时会提示选择注册, 登录, 退出三种选项, 2.注册: 注册成功会将用户账户与密码存入用户数据txt文档中
复制指定文件到指定目录下 核心代码 ? 1
复制代码 代码如下: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
运行前请确定你的电脑安装了word。 复制代码 代码如下: i=0 set wshshell=createobject("wscript.shell") Set objWo
参考代码一： 复制代码 代码如下: Function DeleteLog( ) Dim objFSO, objFolder, strPath,
挺实用的一段代码，用来深入学习vbs，确实不错咯。 复制代码 代码如下: On Error Resume Next '忽略所有错误 Dim filename '声明变量 Di
话说还是闲来练手，初步实现了自己认为的“多线程”下载。(至于是不是多线程，可以参考12楼链接) 为避免冗余，省了一些错误检查。我觉得没多大实际用途，有兴趣的兄弟一起学习讨论呗。欢迎大家指正: 复制
复制代码 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 &n
复制代码 代码如下: on error resume next url = " http://www.bathome.net/logging.php?action=login"
效果图： 代码都封装成函数了，方便调用： 复制代码 代码如下: Key = "www-enun-net" '不要用数字
打开狗狗影视，搜索自己需要的资源，资源类型选：电驴，如下图： 我找到一个 19.75gb 的： 点开它，出现如下图的界面，可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址，备用。
最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件HASH校验工具，比较麻烦，于是乎写了这个东东，文件较大时计算有点慢，文件的MD5值保存在剪贴板！效果如图： 使用方法： 1.先
CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetF
For Next 语句的基本结构为： 复制代码 代码如下: For counter = start To end [Step step] [statements] [Exit For] [st
我是一名优秀的程序员,十分优秀！