复制代码 代码如下:

'/*=========================================================================

'*Intro拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件

'*FileNameGB2312.To.UTF-8.vbs

'*Authoryongfa365

'*Versionv1.0

'*WEBhttp://www.yongfa365.com

'*Emailyongfa365[at]qq.com

'*LastModify2007-10-0410:42:53

'*==========================================================================*/

SetobjArgs=WScript.Arguments

IfobjArgs.Count>0Then

IfMsgBox("本程序仅支持GB2312到UTF-8的转换"&vbCrLf&"如果您所拖动的文件里有别的格式的文件请点“取消”",vbOKCancel+vbExclamation+vbDefaultButton2,"郑重提醒!!!")=vbOKThen

ForI=0ToobjArgs.Count-1

FileUrl=objArgs(I)

CallWriteToFile(FileUrl,ReadFile(FileUrl,"gb2312"),"utf-8")

Next

EndIf

Else

MsgBox"请将您要转换的“gb2312文件”拖到这个文件上"&vbCrLf&"程序会将它们自动转换为utf-8文件",vbInformation,"柳永法温馨提示："

EndIf

'-------------------------------------------------

'函数名称:ReadFile

'作用:利用AdoDb.Stream对象来读取各种格式的文本文件

'----------------------------------------------------

FunctionReadFile(FileUrl,CharSet)

DimStr

Setstm=CreateObject("Adodb.Stream")

stm.Type=2

stm.mode=3

stm.charset=CharSet

stm.Open

stm.loadfromfileFileUrl

Str=stm.readtext

stm.Close

Setstm=Nothing

ReadFile=Str

EndFunction

'-------------------------------------------------

'函数名称:WriteToFile

'作用:利用AdoDb.Stream对象来写入各种格式的文本文件

'参数:FileUrl-文件相对路径;Str-文件内容;CharSet-编码格式(utf-8,gb2312.....)

'----------------------------------------------------

FunctionWriteToFile(FileUrl,Str,CharSet)

Setstm=CreateObject("Adodb.Stream")

stm.Type=2

stm.mode=3

stm.charset=CharSet

stm.Open

stm.WriteTextStr

stm.SaveToFileFileUrl,2

stm.flush

stm.Close

Setstm=Nothing

EndFunction