1、Upload By Yelky 如何將重復的工作交給代碼做了，現在我們演示一個例子。現在我有很多地址比如 ：那么我現在想做成網站的鏈接（這里只是舉個例子，現實中很少有這樣的情況，不過我遇到的現在，我為了刷百度文庫分的，把我上傳的文檔鏈接做成一個一個可以點擊就可以連接到那里的網站。代碼就是像a href=a href=等等這樣的，把它保存為“百度文庫.html”,那么我下次打開這個網頁是不是可以直接連接到我的百度文庫，也可以把這個發給別人讓別人把我刷財富值。那么看上面的代碼，本身我的文件里面只是存了網站地址，那么如何變成鏈接了，那么如果把那個地址看成一個整體，這里以url代替，那么上面的就可以寫

2、成 &url&現在已經整理出它們的格式了，那么我們如何將 url 轉化為 &url&那么實現的步驟我們可以看成先讀取一行url，然后把它變成 &url& ，然后將變化后的字符串寫入到新的文件，這里我們為 “百度文庫.html”下面是用vbs實現的代碼，因為vbs是系統自帶的腳本語言，有系統自帶的腳本解釋器，所以選用這個為了方便，其實其他的任何一種語言都可以。這里就不多說了。-fileAddStr.vbsSub AddFileStr(outputFileName,inputFileName) Const ForReading = 1, ForWriting = 2 Dim fso, theFil

3、e,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 s

4、tr End if Loop theFile.Close MyFile.CloseEnd SubCall AddFileStr(1.txt,2.html)-上面的代碼為了編寫方便，我用1.txt和2.html代替，你可以換掉。如果想測試的，那么我的文件 1.txt 的內容為-這個方法可以實現很多重復的工作，比如我想在每行的前面的加上行數，這個是很多可能想實現的，比如寫代碼出錯了，然后提示在第幾號，有的都100多行以上的，以前我用記事本寫asp代碼的時候就出現這樣的，盡管現在不用記事本寫了，有了UltraEdit，不過這個方法還是可以作為一個想法寫出來呵呵。代碼如下（和上面有一點改動）-file

5、AddLine.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

6、 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程序時，用記事本也可以直接定位到多少行了。還有很多枯燥的重復的事情可以用代碼實現，只要我們喜歡想象，喜歡思考，人生不會那么