用VBScript寫合并文本文件的腳本
更新時間：2009年04月28日 08:59:19 作者：
今天用腳本實(shí)現(xiàn)幾個文本文件的合并，被FSO中的幾個函數(shù)絆住了好久，最終認(rèn)定這里應(yīng)該是Window里的Bug。
合并文本的腳本可以這么寫：
Sub AppendTextFile(filename)
Set objTextFile = objFSO.OpenTextFile(filename, ForReading, true, -2)
Do Until objTextFile.AtEndOfStream
objOutFile.WriteLine(objTextFile.Readline)
Loop
End Sub
可是如果所讀取的文件是UTF-8格式的，那么文件開頭的三個字節(jié)的標(biāo)識符會被腳本認(rèn)為是數(shù)據(jù)，這樣這個標(biāo)識符就變成了合并后文件里的亂碼。
FSO是提供了打開Unicode文件的參數(shù)的，可惜這里并不生效。
請教了Google大師，發(fā)現(xiàn)有人說用OpenAsTextStream是可以的，可惜在我的環(huán)境里還是不成功。
另外一個想法是讀入文件的時候，自行判斷文件開始三個字節(jié)是否標(biāo)識符，這也被判斷是不可行的方法，因?yàn)镕SO提供的Read是按字符進(jìn)行讀取，這樣，在有中文的環(huán)境里，我們不可能正好讀出這三個字節(jié)。
類似的問題在IIS6里面被微軟確認(rèn)，好像也有一個對應(yīng)的補(bǔ)丁出來，但是對于批處理文件的情況，似乎還是沒有修改過來。
最后，MSDN幫了很大的忙，但是它的地址很不好找，記錄一下：
http://msdn.microsoft.com/en-us/library/ms950396.aspx
復(fù)制代碼 代碼如下:
Sub AppendTextFile(filename)
Set objTextFile = objFSO.OpenTextFile(filename, ForReading, true, -2)
Do Until objTextFile.AtEndOfStream
objOutFile.WriteLine(objTextFile.Readline)
Loop
End Sub
可是如果所讀取的文件是UTF-8格式的，那么文件開頭的三個字節(jié)的標(biāo)識符會被腳本認(rèn)為是數(shù)據(jù)，這樣這個標(biāo)識符就變成了合并后文件里的亂碼。
FSO是提供了打開Unicode文件的參數(shù)的，可惜這里并不生效。
|
TristateUseDefault |
-2 |
Opens the file using the system default. |
|
TristateTrue |
-1 |
Opens the file as Unicode. |
|
TristateFalse |
0 |
Opens the file as ASCII. |
另外一個想法是讀入文件的時候，自行判斷文件開始三個字節(jié)是否標(biāo)識符，這也被判斷是不可行的方法，因?yàn)镕SO提供的Read是按字符進(jìn)行讀取，這樣，在有中文的環(huán)境里，我們不可能正好讀出這三個字節(jié)。
類似的問題在IIS6里面被微軟確認(rèn)，好像也有一個對應(yīng)的補(bǔ)丁出來，但是對于批處理文件的情況，似乎還是沒有修改過來。
最后，MSDN幫了很大的忙，但是它的地址很不好找，記錄一下：
http://msdn.microsoft.com/en-us/library/ms950396.aspx
您可能感興趣的文章:
相關(guān)文章
VBS教程：VBscript屬性-Description 屬性
VBS教程：VBscript屬性-Description 屬性...2006-11-11
用vbs實(shí)現(xiàn)guest用戶的狀態(tài)的腳本2008-05-05
VBS偽造HTTP-REFERER的實(shí)現(xiàn)方法
最近用VBS模擬POST提交表單，發(fā)現(xiàn)遇到檢測Referer的頁面就不管用了。</P><P>2011-02-02
VBS教程：VBScript 基礎(chǔ)-VBScript 變量
VBScript只有一種數(shù)據(jù)類型 —— Variant，它是根據(jù)上下文來判斷是數(shù)字還是字符串。因?yàn)閂ariant是VBScript中唯一的數(shù)據(jù)類型，所以它也是VBScript中所有函數(shù)的返回值的數(shù)據(jù)類型2006-11-11
禁止QQ上網(wǎng)的vbs代碼...2007-03-03
每天沒事到百度上回答問題要先打開IE，輸入BAIDU，點(diǎn)百度知道，點(diǎn)我要回答，再輸入要回答的問題類別，很麻煩，于是寫了這樣一個百度小助手.2009-12-12
VBS教程：函數(shù)-ScriptEngineMinorVersion 函數(shù)
VBS教程：函數(shù)-ScriptEngineMinorVersion 函數(shù)...2006-11-11
vbs腳本實(shí)現(xiàn)修改DNS和清空IE臨時文件功能
這篇文章主要介紹了vbs腳本實(shí)現(xiàn)修改DNS和清空IE臨時文件功能,本文直接給出實(shí)現(xiàn)兩種功能的腳本代碼,需要的朋友可以參考下2015-02-02
bs腳本的功能呢是很多的，不過有時候我們只需要其中的某些功能，今天我突然想研究下怎么用vbs腳本實(shí)現(xiàn)添加程序到自啟動項(xiàng)2013-01-01
運(yùn)行后當(dāng)把U盤插入電腦后能夠自動把U盤里的PPT偷拷下來。下面用記事本就能實(shí)現(xiàn)的批處理或vbs。2009-12-12