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