[文本处理] 批处理怎样把TXT格式的文本转换成SBK的？

yi12133

问题很简单，比如有一个TXT格式的文本。
怎么用批处理把它转换成SBK格式，要求编码是Unicode的。

defanive

找sed帮忙吧，貌似自带的命令没有转编码的功能。。。

fastslz

' *==============================================================================*
' * 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 *
' *==============================================================================*
Show = "本程序仅支持GB2312到Unicode的转换，请拖拽单个要转换的文件到此文件上！    "
Usage1 = "语法１：GB2Ue.vbs [驱动器][目录][文件名] （直接替换原文件模式）"
Usage2 = "语法２：GB2Ue.vbs [驱动器][目录][文件名]  [目标驱动器][目录][新名称]  /Ｙ"
Usage3 = "        如果目标新文件已存在，使用/Ｙ参数后将直接替换而不提示是否改写！  "
Usage4 = "命令行编码转换工具 BY: fastslz"
aCode = "GB2312"
bCode = "Unicode"

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 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
复制代码

namejm

原帖由 defanive 于 2009-4-12 16:21 发表
找sed帮忙吧，貌似自带的命令没有转编码的功能。。。

　　有的有的，CMD窗口下祭出 /? 大法，查询：cmd /?，找到一个很有用的参数：

/U      使向内部管道或文件命令的输出成为 Unicode

　　如果要用for读取Unicode编码格式文本，可以配合more或type来处理。

　　楼主的图片在QQ空间里，论坛里显示不了，不知道楼主指的SBK是啥玩意，只好给出这些提示，请自行测试。

fastslz

SBK是电子书，也就是Unicode文本文件。
GB2312转Unicode用cmd /u /c是比较方便，只是用在批处理上语法对新手来说不太容易掌握（主要是双引号“”）

@echo off
md Unicode 2>nul
for /r %%i in (*.vbs) do cmd /u /c "type "%%i">"Unicode\%%~ni.x""
复制代码

zqz0012005

CMD输出的Unicode有兼容性问题。用一般工具打开会显示乱码，必须用可以选择编码的工具如word才能看。

Batcher

C:\Test>type a.txt 45872635481020326585 [email]Batcher@bbs.bathome.net[/email] C:\Test>type test.bat @echo off cmd /u /c "type a.txt>a_u.txt" C:\Test>test.bat

测试环境：WinXP SP2 Pro EN
测试结果：用记事本打开转换以后Unicode编码文件a_u.txt未出现乱码

貂蝉兄能否给个出现乱码的例子学习一下？

Batcher

还没有见过有人用sed进行ANSI2UNICODE操作呢，能否给个例子学习一下？

zqz0012005

你试试cmd /u /c "type C:\boot.ini>u.txt"

我记得我以前探讨过这个问题，找到了：
http://bbs.verybat.org/viewthread.php?tid=11219&fromuid=37