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

Upload By Yelky 如何将重复的工作交给代码做了，现在我们演示一个例子。 现在我有很多地址比如 ：/view/8b9d93d084254b35eefd3490.html等一些地址， 那么我现在想做成网站的链接（这里只是举个例子，现实中很少有这样的情况，不过我遇到的现在，我为了刷百度文库分的，把我上传的文档链接做成一个一个可以点击就可以连接到那里的网站。代码就是像 a href=/view/8b9d93d084254b35eefd3490.html/view/8b9d93d084254b35eefd3490.html/ap a href=/view/f3fbcb7001f698.html/view/f3fbcb7001f698.html/ap 等等这样的，把它保存为“百度文库.html”,那么我下次打开这个网页是不是可以直接连接到我的百度文库，也可以把这个发给别人让别人把我刷财富值。 那么看上面的代码，本身我的文件里面只是存了网站地址，那么如何变成链接了，那么如果把那个地址看成一个整体，这里以url代替，那么上面的就可以写成 a href=urlurl/ap 现在已经整理出它们的格式了，那么我们如何将 url 转化为 a href=urlurl/ap 那么实现的步骤我们可以看成先读取一行url，然后把它变成 a href=urlurl/ap ，然后将变化后的字符串写入到新的文件，这里我们为 “百度文库.html” 下面是用vbs实现的代码，因为vbs是系统自带的脚本语言，有系统自带的脚本解释器，所以选用这个为了方便，其实其他的任何一种语言都可以。这里就不多说了。 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ fileAddStr.vbs Sub 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 = a href=strstr/ap MyFile.WriteLine str End if Loop theFile.Close MyFile.Close End Sub Call AddFileStr(1.txt,2.html) ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 上面的代码为了编写方便，我用1.txt和2.html代替，你可以换掉。 如果想测试的，那么我的文件 1.txt 的内容为 --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------