kk_lee69 发表于 2011-8-20 10:21:27

求助 如何轉換 簡體跟繁體的字串.......簡繁互換的問題...

在資料庫的處理中...經常可見 簡繁體的互換.......
商用軟體 通常利用下面的表....來做互換的動作......

可以用利用 AUTOIT再配合下面的表....來做簡繁互換的動作嗎??
甚至於轉換成 UNICODE 的格式......

請高手舉個例子學習一下   感謝!!


BIG5Order=$2020
BIG5Order=$A3AC
BIG5Order=$A1A2
BIG5Order=$A1A3
BIG5Order=$2020
BIG5Order=$A1A4
BIG5Order=$A3BB
BIG5Order=$A3BA
BIG5Order=$A3BF
BIG5Order=$A3A1
BIG5Order=$A1C3
BIG5Order=$A9A9
BIG5Order=$A1A7
BIG5Order=$A3AC
BIG5Order=$2020
BIG5Order=$A3AE
BIG5Order=$2020
BIG5Order=$A3BB
BIG5Order=$A3BA
BIG5Order=$A3BF
BIG5Order=$2020
BIG5Order=$A9A7
BIG5Order=$A9A5
BIG5Order=$A9A6
BIG5Order=$A9A4
BIG5Order=$2020
BIG5Order=$A3DF
BIG5Order=$2020
BIG5Order=$2020
BIG5Order=$A3A8
BIG5Order=$A3A9
BIG5Order=$A1D0
BIG5Order=$2020
BIG5Order=$A3FB
BIG5Order=$A3FD
BIG5Order=$2020

happytc 发表于 2011-8-20 11:20:43

本帖最后由 happytc 于 2011-8-20 11:26 编辑

kk_lee69兄,幫看看附件,我用軟件轉簡體中文件為繁體中文的,有那裡不對的地方?

若有可能,能否幫忙改在你們那邊的常用語,先謝了

pusofalse 发表于 2011-8-20 12:34:31

3mile兄的强帖:中文内码转换UDF,方便调用。

happytc 发表于 2011-8-20 13:00:48

回复 3# pusofalse


    这个转容易,不容易的是用词的不同的转换。比如象服务器→伺服器之类的

netegg 发表于 2011-8-20 16:17:43

回复 4# happytc
楼主说的是字形,似乎没涉及字义,那样的话,只能自己做字典了

kk_lee69 发表于 2011-8-20 16:23:48

附上 修改過的 繁體語意的檔案...................

kk_lee69 发表于 2011-8-20 18:02:53

能調用WORD 做轉換嗎??如果可以的話 語意也會被轉換的

kk_lee69 发表于 2011-8-20 18:03:01

能調用WORD 做轉換嗎??如果可以的話 語意也會被轉換的

easefull 发表于 2011-8-21 12:53:28

语义转换,似乎是个大工程啊.关注一下.

3mile 发表于 2011-8-21 13:12:27

如果做地区词意的转换
1.需要先做准确的中文分词
2.建立地区词字典
3.设立地区词转换优先级......
呜呼,非吾辈之所能.

happytc 发表于 2011-8-22 05:57:32

回复 6# kk_lee69


    非常感谢,已经把这个文件加入到Live Capture软件的语言文件里了,并且把你设置为翻译者了。再次感谢

kk_lee69 发表于 2011-8-23 22:51:49

我還是覺得應該可以利用WORD 的簡繁互換功能 當做轉換的工具.....可惜 找不到相關的資料....等待高手出現^^

kk_lee69 发表于 2011-8-23 23:24:19

YA !!終於測試出來了....把小小的心得 跟大家分享......希望 拋磚 可以引玉 出來 ....^^

輸入繁體字.....轉換成簡體....在秀出來#include <array.au3>
#include <Word.au3>

$oWordApp = _WordCreate()
$oDoc = _WordDocGetCollection ($oWordApp, 0)
$oDoc.Range.insertAfter ("工廠有一台電腦")
$oDoc.Range.TCSCConverter (1, True, True) ;1為繁體轉簡體 0為簡體轉繁體
$oWordContent = $oDoc.Content
$TextDoc = $oWordContent.Text
MsgBox( 1 ," Hop, the Text is : ", $TextDoc )
_WordQuit ($oWordApp,0)

happytc 发表于 2011-8-23 23:57:26

回复 13# kk_lee69

kk_lee69兄,不是3楼已经给你了最au3的方法嘛

你这个代码,得安装了ms office的机子才能行吧

happytc 发表于 2011-8-23 23:59:24

看了‘新同文堂’的js代码,也是繁简转换的,也是3楼的方法+一个常用词对应库(非常小的一个库)
页: [1] 2
查看完整版本: 求助 如何轉換 簡體跟繁體的字串.......簡繁互換的問題...