[基础科学]如何将文档的每行加上某个特定的字符串.doc

Upload By Yelky 如何将重复的工作交给代码做了，现在我们演示一个例子。现在我有很多地址比如 ：/view/8b9d93d084254b35eefd3490.html等一些地址，那么我现在想做成网站的链接（这里只是举个例子，现实中很少有这样的情况，不过我遇到的现在，我为了刷百度文库分的，把我上传的文档链接做成一个一个可以点击就可以连接到那里的网站。代码就是像/view/8b9d93d084254b35eefd3490.html/view/f3fbcb7001f69e31433294f8.html等等这样的，把它保存为“百度文库.html”,那么我下次打开这个网页是不是可以直接连接到我的百度文库，也可以把这个发给别人让别人把我刷财富值。那么看上面的代码，本身我的文件里面只是存了网站地址，那么如何变成链接了，那么如果把那个地址看成一个整体，这里以url代替，那么上面的就可以写成 &url&现在已经整理出它们的格式了，那么我们如何将 url 转化为 &url&那么实现的步骤我们可以看成先读取一行url，然后把它变成 &url& ，然后将变化后的字符串写入到新的文件，这里我们为 “百度文库.html”下面是用vbs实现的代码，因为vbs是系统自带的脚本语言，有系统自带的脚本解释器，所以选用这个为了方便，其实其他的任何一种语言都可以。这里就不多说了。-fileAddStr.vbsSub AddFileStr(outputFileName,inputFileName) Const ForReading = 1, ForWriting = 2 Dim fso, theFile,MyFile Set fso = CreateObject(Scripting.FileSystemObject) Set theFile = fso.OpenTextFile(outputFileName, ForReading, False) Set MyFile = fso.OpenTextFile(inputFileName, ForWriting, True) Do While theFile.AtEndOfStream True str =theFile.ReadLine MsgBox str if str then str = &str& MyFile.WriteLine str End if Loop theFile.Close MyFile.CloseEnd SubCall AddFileStr(1.txt,2.html)-上面的代码为了编写方便，我用1.txt和2.html代替，你可以换掉。如果想测试的，那么我的文件 1.txt 的内容为-/view/8b9d93d084254b35eefd3490.html/view/f3fbcb7001f69e31433294f8.html/view/895a9063caaedd3383c4d3d8.html/view/e1dbad4be45c3b3567ec8bb0.html/view/8d246dc758f5f61fb73666ca.html/view/1d1bc4ea81c758f5f61f67ca.html/view/032014c75fbfc77da269b1ca.html/view/781bd612a216147917112820.html/view/4240a73e0912a21614792920.html/view/19544f5f804d2b160b4ec078.html/view/03605b7101f69e314332946d.html/view/cb05e527a5e9856a5612603e.html/view/2a0bf1323968011ca300913e.html/view/1b0f112d7375a417866f8f3f.html/view/7e9802717fd5360cba1adb3f.html/view/fc47e8cfa1c7aa00b52acb3c.html-这个方法可以实现很多重复的工作，比如我想在每行的前面的加上行数，这个是很多可能想实现的，比如写代码出错了，然后提示在第几号，有的都100多行以上的，以前我用记事本写asp代码的时候就出现这样的，尽管现在不用记事本写了，有了UltraEdit，不过这个方法还是可以作为一个想法写出来呵呵。代码如下（和上面有一点改动）-fileAddLine.vbsSub AddFileStr(outputFileName,inputFileName) Const ForReading = 1, ForWriting = 2 Dim fso, theFile,MyFile Set fso = CreateObject(Scripting.FileSystemObject) Set theFile = fso.OpenTextFile(outputFileName, ForReading, False) Set MyFile = fso.OpenTextFile(inputFileName, ForWriting, True) n=1 Do While theFile.AtEndOfStream True str =theFile.ReadLine if str then str = str & &n&行 MyFile.WriteLine str n=n+1 End if Loop theFile.Close MyFile.CloseEnd SubCall AddFileStr(1.txt,2.txt)-上面的代码区别的地方其实就是那个 str = str & &n&行 这个其实就是要设定的输出格式。还有不同的就是if语句，因为上面的我想的是忽略空的一行，就是一行上面字都没有，而判断行数时不能忽略，所以我注释掉了if语句。这样的话我们就可以在编写vbs或者asp程序时，用记事本也可以直接定位到多少行了。还有很多枯