一、Copy a Unicode File to an ANSI File
WiToAnsi.vbs文件：
復(fù)制代碼 代碼如下:
' Utility to rewrite a Unicode text file as an ANSI text file
' For use with Windows Scripting Host, CScript.exe or WScript.exe
' Copyright (c) 1999, Microsoft Corporation
'
Option Explicit
' FileSystemObject.CreateTextFile and FileSystemObject.OpenTextFile
Const OpenAsASCII = 0
Const OpenAsUnicode = -1
' FileSystemObject.CreateTextFile
Const OverwriteIfExist = -1
Const FailIfExist = 0
' FileSystemObject.OpenTextFile
Const OpenAsDefault = -2
Const CreateIfNotExist = -1
Const FailIfNotExist = 0
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim argCount:argCount = Wscript.Arguments.Count
If argCount > 0 Then If InStr(1, Wscript.Arguments(0), "?", vbTextCompare) > 0 Then argCount = 0
If (argCount = 0) Then
Wscript.Echo "Utility to copy Unicode text file to an ANSI text file." _
vbNewLine "The 1st argument is the Unicode text file to read" _
vbNewLine "The 2nd argument is the ANSI text file to write" _
vbNewLine "If the 2nd argument is omitted, the Unicode file will be replaced"
Wscript.Quit 1
End If
Dim inFile, outFile, inStream, outStream, inLine, FileSys, WshShell
If argCount > 1 Then
outFile = Wscript.Arguments(1)
inFile = Wscript.Arguments(0)
Else
outFile = Wscript.Arguments(0)
inFile = outFile ".tmp"
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run "cmd.exe /c copy " outFile " " inFile, 0, True
End If
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set inStream = FileSys.OpenTextFile(inFile, ForReading, FailIfNotExist, OpenAsDefault)
Set outStream = FileSys.CreateTextFile(outFile, OverwriteIfExist, OpenAsASCII)
Do
inLine = inStream.ReadLine
outStream.WriteLine inLine
Loop Until inStream.AtEndOfStream
inStream.Close
outStream.Close
If argCount = 1 Then WshShell.Run "cmd.exe /c del " inFile, 0
批處理中調(diào)用：
復(fù)制代碼 代碼如下:
cscript WiToAnsi.vbs [path to Unicode file][path to ANSI file]
二、Copy a ANSI File to an Unicode File
只需對(duì)OpenTextFile和CreateTextFile的打開(kāi)方式做調(diào)整即可。
三、參考
http://msdn.microsoft.com/en-us/library/aa368046%28VS.85%29.aspx
四、OpenTextFile和CreateTextFile的使用
CreateTextFile 方法
創(chuàng)建指定文件并返回 TextStream 對(duì)象，該對(duì)象可用于讀或?qū)憚?chuàng)建的文件。
復(fù)制代碼 代碼如下:
object.CreateTextFile(filename[, overwrite[, unicode]])
參數(shù)
object
必選項(xiàng)。應(yīng)為 FileSystemObject 或 Folder 對(duì)象的名稱(chēng)。
filename
必選項(xiàng)。字符串表達(dá)式，指明要?jiǎng)?chuàng)建的文件。
overwrite
可選項(xiàng)。Boolean 值指明是否可以覆蓋現(xiàn)有文件。如果可覆蓋文件，該值為 True；如果不能覆蓋文件，則該值為 False 。如果省略該值，則不能覆蓋現(xiàn)有文件。
unicode
可選項(xiàng)。Boolean 值指明是否以 Unicode 或 ASCII 文件格式創(chuàng)建文件。如果以 Unicode 文件格式創(chuàng)建文件，則該值為 True；如果以 ASCII 文件格式創(chuàng)建文件，則該值為 False。如果省略此部分，則假定創(chuàng)建 ASCII 文件。
OpenTextFile 方法
打開(kāi)指定的文件并返回一個(gè) TextStream 對(duì)象，可以讀取、寫(xiě)入此對(duì)象或?qū)⑵渥芳拥轿募?br />
復(fù)制代碼 代碼如下:
object.OpenTextFile(filename[, iomode[, create[, format]]])
參數(shù)
object
必選項(xiàng)。應(yīng)為 FileSystemObject 對(duì)象的名稱(chēng)。
filename
必選項(xiàng)。字符串表達(dá)式，指明要打開(kāi)的文件名稱(chēng)。
iomode
可選項(xiàng)。輸入/輸出模式，是下列三個(gè)常數(shù)之一：ForReading，F(xiàn)orWriting,或 ForAppending。
create
可選項(xiàng)。Boolean 值，指出當(dāng)指定的 filename 不存在時(shí)是否能夠創(chuàng)建新文件。允許創(chuàng)建新文件時(shí)為 True，否則為 False。默認(rèn)值為 False。
format
可選項(xiàng)。三個(gè) Tristate 值之一，指出以何種格式打開(kāi)文件。若忽略此參數(shù)，則文件以 ASCII 格式打開(kāi)。
設(shè)置
iomode 參數(shù)可為下列設(shè)置之一：
| 數(shù) |
值 |
描述 |
| ForReading |
1 |
以只讀模式打開(kāi)文件。不能對(duì)此文件進(jìn)行寫(xiě)操作。 |
| ForWriting |
2 |
以只寫(xiě)方式打開(kāi)文件。不能對(duì)此文件進(jìn)行讀操作。 |
| ForAppending |
8 |
打開(kāi)文件并在文件末尾進(jìn)行寫(xiě)操作。 |
format 參數(shù)可為下列設(shè)置之一：
| 常數(shù) |
值 |
描述 |
| TristateUseDefault |
-2 |
以系統(tǒng)默認(rèn)格式打開(kāi)文件。 |
| TristateTrue |
-1 |
以 Unicode 格式打開(kāi)文件。 |
| TristateFalse |
0 |
以 ASCII 格式打開(kāi)文件。 |
您可能感興趣的文章:- PHP中正則表達(dá)式對(duì)UNICODE字符碼的匹配方法
- java實(shí)現(xiàn)漢字轉(zhuǎn)unicode與漢字轉(zhuǎn)16進(jìn)制實(shí)例
- 正則表達(dá)式之 Unicode 匹配特殊字符
