圣者
精华
|
战斗力 鹅
|
回帖 0
注册时间 2006-9-29
|
文件名：编码转换.vbs
on error resume next
Set WshShell=WScript.CreateObject(\"Shell.Application\")
dirPath=WshShell.BrowseForFolder(0, \"请选择路径\", 0, \"\").items().item().path
if right(dirPath,1)<>\"\\\" then dirPath=dirpath&\"\\\"
ma=inputbox(\"请输入要转换为的编码\",\"\",\"utf-8\")
if ma=\"\" or dirPath=\"\\\" or msgbox(\"在使用前请确认已备份文件夹\"&dirPath,1)=2 then WScript.Quit
\'遍历文件夹下的文件
Set FSO = CreateObject(\"scripting.filesystemobject\")
Set f = FSO.GetFolder(dirPath)
Set fs = f.files
For Each fileN in fs
FN=dirPath&fileN.name&\"\"
if \".txt\"=lcase(right(FN,4)) then Call WriteToFile(FN, ReadFile(FN, CheckCode(FN)), ma)
Next
Set FSO = Nothing
wscript.echo \"全部成功\"
\'检测文件的编码
Function CheckCode (FileUrl)
Dim slz
set slz = CreateObject(\"Adodb.Stream\")
slz.Type = 1
slz.Mode = 3
slz.Open
slz.Position = 0
slz.Loadfromfile FileUrl
Bin=slz.read(2)
if AscB(MidB(Bin,1,1))=&HEF and AscB(MidB(Bin,2,1))=&HBB Then
Codes=\"UTF-8\"
elseif AscB(MidB(Bin,1,1))=&HFF and AscB(MidB(Bin,2,1))=&HFE Then
Codes=\"Unicode\"
else
Codes=\"GB2312\"
end if
slz.Close
set slz = Nothing
CheckCode=Codes
End Function
\'以指定的编码读取文件
Function ReadFile(FileUrl, CharSet)
On Error Resume Next
Dim Str
Set stm = CreateObject(\"Adodb.Stream\")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.loadfromfile FileUrl
Str = stm.readtext
stm.Close
Set stm = Nothing
wscript.echo Str
ReadFile = Str
End Function
\'以指定的编码写文件
Function WriteToFile (FileUrl, Str, CharSet)
On Error Resume Next
Set stm = CreateObject(\"Adodb.Stream\")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush
stm.Close
Set stm = Nothing
End Function
试了下这玩意好像还行 |
|
沪公网安备 31010702007642号 )
发表于 2010-1-19 14:02
五花八门
