中国DOS联盟

' *==============================================================================*

' * CMD 命令行编码转换工具包括GB2312,UTF-8,Unicode,BIG5...支持拖拽、文件另保存为 *

' * CodeChange.vbs     BY: yongfa365 http://www.yongfa365.com         2007-10-04 *

' * GB2Ue.vbs          BY: fastslz   http://bbs.cn-dos.net            2007-12-03 *

' *==============================================================================*

aCode = "GB2312"

bCode = "Unicode"

Show = "本脚本仅支持"&aCode&"到"&bCode&"的转换，请拖拽单个要转换的文件到此文件上！    "

Usage1 = "语法１：GB2Ue.vbs  （直接替换原文件模式）"

Usage2 = "语法２：GB2Ue.vbs    /Ｙ"

Usage3 = "        如果目标新文件已存在，使用/Ｙ参数后将直接替换而不提示是否改写！  "

Usage4 = "命令行编码转换工具 BY: fastslz"



Set objArgs=WScript.Arguments

Set fso=CreateObject("Scripting.FileSystemObject")

if objArgs.Count=0 Then

   MsgBox Show &vbCrLf&vbCrLf& Usage1 &vbCrLf& Usage2 &vbCrLf& Usage3, vbInformation, Usage4

   Wscript.Quit

end if

if not objArgs.Count < 3 Then

       Options="/y"

       ignoring = StrComp(objArgs(2), Options, vbTextCompare)

       if ignoring = 0 Then

          Sourcefile=objArgs(0)

          Getfile=objArgs(1)

          else

          MsgBox "文件数量或参数太多，拖拽批量处理请用 ANSI2Unicode.vbs     ", vbInformation, "程序意外终止"

          Wscript.Quit

       end if

       else

       if not objArgs.Count < 2 Then

          Sourcefile=objArgs(0)

          Getfile=objArgs(1)

          if fso.FileExists(objArgs(1)) then

             Choice = MsgBox ("待处理文件“"+Sourcefile+"” ==> 目标文件“"+Getfile+"”    "&vbCrLf&"目标文件已存在，是否改写现有文件？“"+objArgs(1)+"”    ",vbQuestion+vbYesNo,"是否改写")

             if Choice = vbYes Then

                Getfile=objArgs(1)

                else

                Wscript.Quit

             end if

          end if

          else

          Sourcefile=objArgs(0)

          Getfile=objArgs(0)

       end if

end if



Call CheckCode (Sourcefile)

Call WriteToFile(Getfile, ReadFile(Sourcefile, aCode), bCode)

Wscript.Quit



Function ReadFile (Sourcefile, CharSet)

    Dim Str

    Set stm = CreateObject("Adodb.Stream")

    stm.Type = 2

    stm.mode = 3

    stm.charset = CharSet

    stm.Open

    stm.loadfromfile Sourcefile

    Str = stm.readtext

    stm.Close

    Set stm = Nothing

    ReadFile = Str

End Function



Function WriteToFile (Getfile, Str, CharSet)

    Set stm = CreateObject("Adodb.Stream")

    stm.Type = 2

    stm.mode = 3

    stm.charset = CharSet

    stm.Open

    stm.WriteText Str

    stm.SaveToFile Getfile,2

    stm.flush

    stm.Close

    Set stm = Nothing

End Function



Function CheckCode (Sourcefile)

    Dim slz

    set slz = CreateObject("Adodb.Stream") 

    slz.Type = 1

    slz.Mode = 3

    slz.Open

    slz.Position = 0

    slz.Loadfromfile Sourcefile

    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

    if not aCode = Codes Then

           MsgBox "待处理文件 “"&Sourcefile&"”"&vbCrLf&"该文件原始编码不是"&aCode&"，本脚本仅支持"&aCode&"到"&bCode&"的转换！    ",vbInformation,"错误终止"

           WScript.Quit

    end if

    slz.Close

    set slz = Nothing

End Function

演示

echo "ABCDE &!@#$ ^<>() %% abcde 测试！"> "处理前.txt"
GB2Ue.vbs "处理前.txt" "处理后.txt" /y
Ue2U8.vbs "处理后.txt"
U82GB.vbs "处理后.txt"
GB2U8.vbs "处理后.txt"
U82Ue.vbs "处理后.txt"
Ue2GB.vbs "处理后.txt"
@echo 经过6次处理 "处理后.txt" 和 "处理前.txt" 仍旧是相同编码

编码查询工具 QueryCode.vbs
http://www.cn-dos.net/forum/viewthread.php?tid=36012&fpage=1&highlight=

[ Last edited by fastslz on 2007-12-9 at 11:24 PM ]

多谢分享，研究一下。

Function WriteToFile (Getfile, Str, CharSet)
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.WriteText Str
stm.SaveToFile Getfile,2
stm.flush
stm.Close
Set stm = Nothing
End Function

果然是这段，嘿嘿～

更新：
加强应用性，避免用户误操作造成不必要的损失，增加判断输入文件编码是否正确功能。

高手，水平太高了，以后来这里好好，好多年不碰dos，手生了不少

下载一个试试~~ 找类似的工具好久了~谢谢

谁有空写一个纯dos下的版本

这两天尝试在dos下浏览邮件
满篇的mime字符令人发愁

CheckCode 这个函数只能判断带BOM的文件

在UCS 编码中有一个叫做"ZERO WIDTH NO-BREAK SPACE"的字符，它的编码是FEFF。而FFFE在UCS中是不存在的字符，所以不应该出现在实际传输中。UCS规范建议我们在传输字节流前，先传输字符"ZERO WIDTH NO-BREAK SPACE"。这样如果接收者收到FEFF，就表明这个字节流是Big-Endian的；如果收到FFFE，就表明这个字节流是Little-Endian的。因此字符"ZERO WIDTH NO-BREAK SPACE"又被称作BOM。

UTF-8不需要BOM来表明字节顺序，但可以用BOM来表明编码方式。字符"ZERO WIDTH NO-BREAK SPACE"的UTF-8编码是EF BB BF。所以如果接收者收到以EF BB BF开头的字节流，就知道这是UTF-8编码了。

Windows就是使用BOM来标记文本文件的编码方式的。

有BOM很多地方会有问题，不喜欢这个BOM

回9楼时匆忙还不注意原来是柳永法(yongfa365)高手哦，看你的Blog受益匪浅，在你的CodeChange.vbs代码中也学到不少

Originally posted by qzwqzw at 2007-12-20 20:01:
谁有空写一个纯dos下的版本

这两天尝试在dos下浏览邮件
满篇的mime字符令人发愁

纯DOS纯CMD的吧？给个思路

好东西，我下来了，谢谢分享

太棒了 真是好东西

谢谢。楼主能不能帮我把转换后扩展名同时改htm。因为我的索爱手机能看到UTF-8格式的htm（看书用的）

[ Last edited by 35799 on 2008-3-7 at 01:46 AM ]

Originally posted by 35799 at 2008-3-7 01:43:
谢谢。楼主能不能帮我把转换后扩展名同时改htm。因为我的索爱手机能看到UTF-8格式的htm（看书用的）

[ Last edited by 35799 on 2008-3-7 at 01:46 AM ]

GB2U8.vbs "处理前.txt" "处理后.htm" /y

是的。行吗

Originally posted by 35799 at 2008-3-7 13:26:
是的。行吗

你连试都没试就提问？试了就知道了

很好，不过要DLL文件的支持。

CMD收发邮件很简单，Telnet到POP3服务器就可以收邮件，Telnet到SMTP服务器就可以发邮件。

太好了，用这个来转换比用记事本方便多了。

太棒了，好东西，感谢了。

太棒了 真是好东西

怎么下载不了呀？？郁闷

积分高于一点怎么也下载不了？

ANSI2Unicode.vbs 能拖文件夹（有多级子文件夹），那就更好了
麻烦改下，好吗

太棒了 真是好东西

真是好东西

下载一个试试~~ 找类似的工具好久了~谢谢

经典收藏

学习了

正需要这个...

多谢分享，研究一下。

好东西，我下来了，谢谢分享

找了好久了！只看到部分代码。
谢谢

很好用。。。。

正好搜索到这个东西 批处理utf-8中文乱码 只能求助了

太棒了 真是好东西

拿来用用

太好了，感谢

果然有强人呀 哈哈

看得不太懂

我在找DOS版，谢谢了

好东西啊，想看一下

太好了,找了好久,要的就是这个了

好东西

新人请教了

哈哈，下了，正是我所需要的，感谢楼主！

不好意思，新手，只有一分加上

什么意思？居然不准我加分？

看来大家是经常遇到文件类型不一致的问题
我遇到的问题是用ByongdCompare生成的报告不能用for解析(包含中文)，中文全是乱码。不知道用这个转换后能不能解决。

謝謝分享~正在尋找~

试试看

谢谢。楼主

我的神啊……终于找到命令行下Unicode转ANSI的方法了……太感谢了！！

高手就是高手，困扰了我一天的问题终于得以解决了。谢

ssssssssssssssssssssssssssss

楼主的代码很不错呀，谢谢

果然好物

感谢分享

很好很强

不知道能不能增加sjis日文编码的转换..

xxxxxxxxxxxxxxxxxxxxxxxxxxx

下载一个试试~~ 找类似的工具好久了~谢谢

來晚了 如此佳作下載收藏是一定要的！