欢迎光临

木子屋

标题: 批量编码转换包括gb2312,utf-8,unicode,支持拖动,VBS实现

作者: dnawo

日期: 2008-01-09 01:19 AM

分类: 脚本语言

内容: 复制内容到剪贴板 程序代码'/*=========================================================================
' * Intro 把要转换的文件拖到这个文件上，选择源编码与目标编码进行编码批量转换
' * FileName CodeChange.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/CodeChange.vbs.html
' * LastModify 2007-10-04 14:29:44
' *==========================================================================*/
Set objArgs = WScript.Arguments
If objArgs.Count>0 Then
CodeI = InputBox("您所拖动的文件的编码是：", "第一步，共两步", "gb2312")
CodeII = InputBox("您要将第一步的编码转换为：", "第二步，共两步", "utf-8")
If CodeI<>"" And CodeII<>"" Then
For I = 0 To objArgs.Count - 1
FileUrl = objArgs(I)
Call WriteToFile(FileUrl, ReadFile(FileUrl, CodeI), CodeII)
Next
Else
MsgBox "输入不合法，退出"
End If
Else
MsgBox "请将您要转换的“相同编码的文件”拖到这个文件上"&vbCrLf&"程序会根据您的输入转换这
些编码", vbInformation, "柳永法温馨提示："
End If
'-------------------------------------------------
'函数名称:ReadFile
'作用:利用AdoDb.Stream对象来读取各种格式的文本文件
'----------------------------------------------------
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
'-------------------------------------------------
'函数名称:WriteToFile
'作用:利用AdoDb.Stream对象来写入各种格式的文本文件
'参数:FileUrl-文件相对路径;Str-文件内容;CharSet-编码格式(utf-8,gb2312.....)
'----------------------------------------------------
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

+ 查看当前日志评论 (0)

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.772 ms

返回

标题: 批量编码转换包括gb2312,utf-8,unicode,支持拖动,VBS实现

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.772 ms

返回

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.803 ms

返回