DDR爱好者之家 Design By 杰米
问:
嗨,脚本专家!如何向文本文件的顶部添加行?

-- FT

答:
您好,FT。您知道,在亚瑟·柯南·道尔爵士生涯的某一时刻,他实际上将夏洛克·福尔摩斯写死了,他认为他已写完了有关这个大侦探所有能写的一切。公众的疾呼很快改变了他的想法,他迅速地使夏洛克·福尔摩斯起死回生。(按照所有肥皂剧的那种基本情节主线一路创作下来。)

我们脚本专家对亚瑟·柯南·道尔爵士深感同情。毕竟,我们会周期性地想,“好了,到这里吧;我们已编写了有关文本文件所有能编写的一切。”我们刚有此想法,就立刻收到有关文本文件的一堆问题,其中包括三个人所问的同一问题:如何向文件文件的顶部添加行?

很简单,我亲爱的华生(啊,我亲爱的 FT)。所有您需要做的只是使用类似下面的脚本:

复制代码 代码如下:
Const ForReading = 1 
Const ForWriting = 2 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading) 

strContents = objFile.ReadAll 
objFile.Close 

strFirstLine = "This is the new first line in the text file." 
strNewContents = strFirstLine & vbCrLf & strContents 

Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForWriting) 
objFile.WriteLine strNewContents 

objFile.Close 
注意。很有趣的是,在原本小说中夏洛克·福尔摩斯从没有说“很简单,我亲爱的华生”。我们不知道为什么他不那么说;他就是不那么说。


好了,现在游戏已经开始了,不是吗?我们首先创建一对常量 - ForReading 和 ForWriting,我们将在处理文本文件时使用这两个常量。我们创建一个 FileSystemObject 实例,然后使用 OpenTextFile 方法打开文件 C:\Scripts\Test.txt 以读取以下内容:

Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)

现在文件已打开,我们使用 ReadAll 方法读取该文件的全部内容并将这些内容存储在称作 strContents 的变量中。然后我们立即关闭文件 Test.txt。为什么?是这样,通过 FileSystemObject 可打开文件进行读取或写入,但不能同时进行这两种操作。为向文件顶部添加新的一行,我们将必须对该文件进行写入;这意味着我们必须重新打开它,但这次是为了写入。

接下来我们需要为该文件构造新内容。我们不能直接向文本文件的顶部添加行;FileSystemObject 只允许向文本文件的末尾添加新行。因此,我们需要做的是在内存中创建一个全新的文件,然后用此新文件替换现有 Test.txt 的内容。新文件将由三部分组成:新的第一行;回车-换行;及该文件的现有内容。为构造此文件,我们首先使用下面的代码在称为 strFirstLine 的变量中存储新的第一行:

strFirstLine = "This is the new first line in the text file."

然后我们使用以下代码行合并新的第一行、回车-换行(使用 VBScript 常量 vbCrLf)及该文件的现有内容(存储在变量 strContents 中):

strNewContents = strFirstLine & vbCrLf & strContents

现在剩下的工作就是重新打开 Test.txt(这次是为了写入),然后使用 WriteLine 方法用新文件替换现有内容:

Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForWriting)
objFile.WriteLine strNewContents

然后我们调用 Close 方法,就像这样,大功告成。好了,文件关闭。嗨,我们只是想要模仿一下夏洛克·福尔摩斯。

说到这,您知道夏洛克·福尔摩斯有一个叫麦克罗夫特的哥哥吗?这是真的。按照推测麦克罗夫特很有天赋,但却因为太懒而没做出什么有趣或有用的事。

嗨,您说这听起来有点耳熟是何用意?没关系;您很可能指的是某个其他的每天编写脚本的专栏作家。

DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米

P70系列延期,华为新旗舰将在下月发布

3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。

而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?

根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。