急：在VB中實現將數據內容繁簡體轉化問題（謝謝）

Question

急：在VB中實現將用戶錄入的資料進行繁簡體轉化問題（謝謝）
注：可能在用戶錄入的一行數據中，有可能是簡體字，也可能有繁體字，現要求把這行數據的所有繁體字轉化為簡體，簡體字不變。（微軟的Word就可以做到，怎樣在VB程式中做到呢）

Answer 1

vb6Private 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 2

vb.net        Dim strSimplifiedChinese, strTraditionalChinese As String
        strSimplifiedChinese = "我是中国人！"
        strTraditionalChinese = StrConv(strSimplifiedChinese, VbStrConv.TraditionalChinese) '简转繁        Console.Write(strTraditionalChinese)
        strSimplifiedChinese = StrConv(strTraditionalChinese, VbStrConv.SimplifiedChinese) '繁转简
        Console.Write(strSimplifiedChinese)

Answer 3

我晕，误以为这是.net版了。
后面这.net的可以无视之。

Answer 4

要分ANSI和Unicode,基本上使用码表映射会比较保险一些.LCMapString,在繁体环境当中使用会有一些问题.
ANSI版的,我有上传过一份资源,是一个DLL(http://download.csdn.net/source/752666).Unicode的,我只有码表,以前针对数据库,Word,Excel和Access有做过转换程序.

Answer 5

'你的這個繁簡體轉化的DLL我下載不了，因為我的分不夠，你能否發一份給，謝謝（[email protected])
'我是數據表中的繁體字段數據，類型為nvarchar(255)，用VB6.0獲取後，再轉為簡體的字段數據，類型也是'nvarchar(255)
'可不可以直接在數據中轉化呢？

Answer 6

邮件已经发了.其中包含了一个可以通过数据库进行简繁转换的.
CREATE TABLE [dbo].[ietrandata](
[uid] [numeric](18, 0) IDENTITY(1,1) NOT NULL,
[cht_i] [varbinary](2) NOT NULL CONSTRAINT [DF_ietrandata_cht_i]  DEFAULT ((0)),
[chs_i] [varbinary](2) NOT NULL CONSTRAINT [DF_ietrandata_chs_i]  DEFAULT ((0)),
[cht_c] [varchar](2) COLLATE Chinese_Taiwan_Stroke_BIN NOT NULL CONSTRAINT [DF_ietrandata_cht_c]  DEFAULT (''),
[chs_c] [varchar](2) COLLATE Chinese_PRC_Stroke_BIN NOT NULL CONSTRAINT [DF_ietrandata_chs_c]  DEFAULT (''),
[chss_i] [varbinary](2) NOT NULL CONSTRAINT [DF_ietrandata_chss_i]  DEFAULT ((0)),
[chss_c] [varchar](2) COLLATE Chinese_PRC_Stroke_BIN NOT NULL CONSTRAINT [DF_ietrandata_chss_c]  DEFAULT (''),
[chst_i] [varbinary](2) NOT NULL CONSTRAINT [DF_ietrandata_chst_i]  DEFAULT ((0)),
[chst_c] [varchar](2) COLLATE Chinese_PRC_Stroke_BIN NOT NULL CONSTRAINT [DF_ietrandata_chst_c]  DEFAULT (''),
[u_i] [varbinary](2) NOT NULL CONSTRAINT [DF_ietrandata_u_i]  DEFAULT ((0)),
[u_c] [nvarchar](1) NOT NULL CONSTRAINT [DF_ietrandata_u_c]  DEFAULT ('')
) ON [PRIMARY]
_I:Binary值
_C:varchar值cht:繁体
chs:简体u:Unicodechss:GBK简体
chst:GBK繁体

Answer 7

同意用
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 LongPrivate Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long但是在98下，这2个不行的，需要自己按字对照，一一进行转换。

Answer 8

To fangmanhua8888,简体环境下,Win2000以上操作系统都支持.由于简体当中有GBK库,同时包含了简体字和繁体字,所以几乎所有BIG5码都在其中有对应,但是反过来,BIG5当中仅只有GBK的繁体字,那样对于很大一部分简体字在做转换的时候中就已经被无效符号填充了(一般是问号).

Answer 9

老大，您這種方法可不可以把簡體下的那個字體COPY到繁體下，可以轉化嗎？