用LISP可不可以实现,将繁体字改为简体字.两者可互换.

lohas1118

用LISP可不可以实现,将繁体字改为简体字.两者可互换.

用LISP可不可以实现,将繁体字改为简体字.两者可互换.

e2002

似乎有写过,找不到了
你看看网上有没有

lohas1118

e2002 发表于 2012-2-16 11:34
似乎有写过,找不到了
你看看网上有没有

谢谢,我找找看

lohas1118

哎,找了好久都找不到.还有人有吗?

meja

这涉及到字体，字库，内码转换，有也是要钱，没意思

lohas1118

哎，没钱难办事啊

yyxuxyy

台湾有的卖，价值1.5w 人民币
要不要

拨片包

很简单啊，用vba调用word转换


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

lohas1118

yyxuxyy 发表于 2012-2-26 21:11
台湾有的卖，价值1.5w 人民币
要不要

这么贵哦，[em0]  
论坛上有牛人以前用LISP写过，但好像失传了。[em0]

lohas1118

拨片包 发表于 2012-2-27 10:15
很简单啊，用vba调用word转换

小弟愚昧，不知道如何使用，还望指教