用vbs实现对文本文件中的项计数
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
问: 嗨,脚本专家!如何向文本文件的顶部添加行? --FT 答: 您好,FT。您知道,在亚瑟·柯南·道尔爵士生涯的某一时刻,他实际上将夏洛克·福尔摩斯写死了,他认为他已写完了有关这个大侦探所有能写的一切。公众的疾呼很快改变了他的想法,他迅速地使夏洛克·福尔摩斯起死回生。(按照所有肥皂剧的那种基本情节主线一路创作下来。) 我们脚本专家对亚瑟·柯南·道尔爵士深感同情。毕竟,我们会周期性地想,“好了,到这里吧;我们已编写了有关文本文件所有能编写的一切。”我们刚有此想法,就立刻收到有关文本文件的一堆问题,其中包括三个人所问的同一问题:如何向文件文件的顶部添加行? 很简单,我亲爱的华生(啊,我亲爱的FT)。所有您需要做的只是使用类似下面的脚本: 复制代码 代码如下: ConstForReading=1 ConstForWriting=2 SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjFile=objFSO.OpenTextFile("C:\Scripts\Test.txt",ForReading) strContents=objFile.ReadAll objFile.Close strFirstLine="Thisisthenewfirstlineinthetextfile." strNewContents=strFirstLine&vbCrLf&strContents SetobjFile=objFSO.OpenTextFile("C:\Scripts\Test.txt",ForWriting) objFile.WriteLinestrNewContents objFile.Close 好了,现在游戏已经开始了,不是吗?我们首先创建一对常量-ForReading和ForWriting,我们将在处理文本文件时使用这两个常量。我们创建一个FileSystemObject实例,然后使用OpenTextFile方法打开文件C:\Scripts\Test.txt以读取以下内容: SetobjFile=objFSO.OpenTextFile("C:\Scripts\Test.txt",ForReading) 现在文件已打开,我们使用ReadAll方法读取该文件的全部内容并将这些内容存储在称作strContents的变量中。然后我们立即关闭文件Test.txt。为什么?是这样,通过FileSystemObject可打开文件进行读取或写入,但不能同时进行这两种操作。为向文件顶部添加新的一行,我们将必须对该文件进行写入;这意味着我们必须重新打开它,但这次是为了写入。 接下来我们需要为该文件构造新内容。我们不能直接向文本文件的顶部添加行;FileSystemObject只允许向文本文件的末尾添加新行。因此,我们需要做的是在内存中创建一个全新的文件,然后用此新文件替换现有Test.txt的内容。新文件将由三部分组成:新的第一行;回车-换行;及该文件的现有内容。为构造此文件,我们首先使用下面的代码在称为strFirstLine的变量中存储新的第一行: strFirstLine="Thisisthenewfirstlineinthetextfile." 然后我们使用以下代码行合并新的第一行、回车-换行(使用VBScript常量vbCrLf)及该文件的现有内容(存储在变量strContents中): strNewContents=strFirstLine&vbCrLf&strContents 现在剩下的工作就是重新打开Test.txt(这次是为了写入),然后使用WriteLine方法用新文件替换现有内容: SetobjFile=objFSO.OpenTextFile("C:\Scripts\Test.txt",ForWriting) objFile.WriteLinestrNewContents 然后我们调用Close方法,就像这样,大功告成。好了,文件关闭。嗨,我们只是想要模仿一下夏洛克·福尔摩斯。 说到这,您知道夏洛克·福尔摩斯有一个叫麦克罗夫特的哥哥吗?这是真的。按照推测麦克罗夫特很有天赋,但却因为太懒而没做出什么有趣或有用的事。 嗨,您说这听起来有点耳熟是何用意?没关系;您很可能指的是某个其他的每天编写脚本的专栏作家。 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇: vbs脚本 加密 几个小细节小结下下一篇: windows脚本调试howto的方法
关于用vbs实现对文本文件中的项计数的所有评论