一、Copy a Unicode File to an ANSI File

WiToAnsi.vbs文件：

' 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)用：

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)整即可。

三、參考

四、OpenTextFile和CreateTextFile的使用

CreateTextFile 方法

創(chuàng)建指定文件并返回 TextStream 對(duì)象，該對(duì)象可用于讀或?qū)憚?chuàng)建的文件。

object.CreateTextFile(filename[, overwrite[, unicode]])

參數(shù)

object

必選項(xiàng)。應(yīng)為 FileSystemObject 或 Folder 對(duì)象的名稱。

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ū)⑵渥芳拥轿募?/P>

object.OpenTextFile(filename[, iomode[, create[, format]]])

參數(shù)

object

必選項(xiàng)。應(yīng)為 FileSystemObject 對(duì)象的名稱。

filename

必選項(xiàng)。字符串表達(dá)式，指明要打開(kāi)的文件名稱。

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)文件。

更多信息請(qǐng)查看IT技術(shù)專(zhuān)欄