求Big2Gb(繁体转简体)的vb程式。

Question

我在网络上下载了几个程序，但是不好用，有时候会转换错误。
比如"鳳"转成"凤"字.

Answer 1

如果你使用繁体，就看一下这个代码：http://59.120.3.37/howto/400/data/gb_big5.zip
请参考目录里的 CodePage.mdb。对照表里的两种内码对照关系，如以『阿』为例，其相关属性列表如下种类 Big5 GB 备注 
内码 AAFC B0A2 　 
第一位数值 val("&Hxx") 171 176 　 
第二位数值 val("&Hyy") 252 162 　 
全字数值 val("&Hxxyy") -21764 -20318 　 
简体中文对照表 (tbl936) 的索引值 　 1411 　 
繁体中文对照表 (tbl950) 1567 　 (注一) 以 Big5 观点来看，『阿』为例，一、首先取出第一位数值及第二位数值；
二、其次依据第一、第二位数值，找出繁体中文对照表 (tbl950) 里的『阿』字简体中文的索引值为 1567，则在同一记录 (Record)里的内码字段 (=code)，找到『阿』字简体中文的内码为 "B0A2"；ORDERNO CODE 
1567 B0A2 三、利用 Chr(B0A2) 函数反转其字为简体中文的『阿』字。

Answer 2

用我的这个，百分百好用。别忘了加分。。我难得回答问题的：）Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long'简转繁
Public Function JToF(ByVal Str As String) As String
    Dim STlen As Long
    Dim STf As String
    STlen = lstrlen(Str)
    STf = Space(STlen)
    LCMapString &H804, &H4000000, Str, STlen, STf, STlen
    JToF = STf
End Function'繁转简
Public Function FToJ(ByVal Str As String) As String
    Dim STlen As Long
    Dim STj As String
    STlen = lstrlen(Str)
    STj = Space(STlen)
    LCMapString &H804, &H2000000, Str, STlen, STj, STlen
    FToJ = STj
End Function

Answer 3

直接用word里的工具转换。将要转换的文字复制到word里，然后选择工具-语言转换工具那里选择，但字符集要用unicode来保存。这样无论简体变繁体还是繁体变简体都能支持。还要选上包括词汇，这样有些台湾用语中的词汇会和简体中的对应转换过来。