|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
- Set objArgs = WScript.Arguments
- For I = 0 To objArgs.Count - 1
- FileUrl = objArgs(I)
- Call WriteToFile(FileUrl, ReadFile(FileUrl, "UTF-8"), "Unicode")
- Next
- Function ReadFile(FileUrl, CharSet)
- 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
- ReadFile = Str
- End Function
- Function WriteToFile (FileUrl, Str, CharSet)
- 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
复制代码 由于一些因素,需要转换编码这是网站上抓的 (http://younglab.blog.51cto.com/416652/252990)
他需要另外用BAT调用
恳求大神会VB的,帮个忙转成DLL调用
拜托拜托
|
|