|
|
发表于 2010-12-24 00:24:41
|
显示全部楼层
VBS完全能够搞定啊,干吗还要麻烦别的软件?
把编码格式转换函数稍微改进一下即可。(这个函数如果你们没见过,那可能是我以前自己写的)- Const adTypeBinary = 1
- Const adTypeText = 2
- Const adSaveCreateOverWrite = 2
- ConvCharSet "C:\boot.ini", "gbk", "utf-8"
- Function ConvCharSet(sFileName, srcCharSet, dstCharSet)
- Dim ADOStrm
- Dim text
- Dim binData
- Set ADOStrm = CreateObject("ADODB.Stream")
- ADOStrm.CharSet = srcCharSet
- ADOStrm.Type = adTypeText
- ADOStrm.Open
- ADOStrm.LoadFromFile sFileName
- text = ADOStrm.ReadText(-1)
- ADOStrm.Position = 0
- ADOStrm.CharSet = dstCharSet
- ADOStrm.WriteText text
- ADOStrm.SetEOS
- if 1 then
- ADOStrm.Position = 0
- ADOStrm.Type = adTypeBinary
- ADOStrm.Position = 3
- binData = ADOStrm.Read(-1)
- ADOStrm.Position = 0
- ADOStrm.Write binData
- ADOStrm.SetEOS
- end if
- ADOStrm.SaveToFile sFileName & "_" & dstCharSet, adSaveCreateOverWrite
- ADOStrm.Close
- Set ADOStrm = Nothing
- ConvCharSet = text
- End Function
复制代码 |
评分
-
查看全部评分
|