 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 1 樓
|
 發表於: 星期四 三月 27, 2003 9:51 pm 文章主題: 如何使用VFP抓出中文字的注音碼. |
 |
|
以前我在VFP論壇問這個問題, 一直沒人回答, 可能大家都不會, 但有一天我在瀏覽網站時, 發現了一個介紹中文輸入法的學術網站, 突然心中有一個念頭, 為何要一直局限在使用API的方式來抓出注音輸入法呢? , 那就把它利用VFP的功能.DBF, 對! 就是產生一個中文字和注音碼對照的TABLE , 利用locate 就可以找到資料了, 以下是我的程式碼, 請參考看看.
| 代碼: |
func phonetic &&--傳回注音英文對照字, 1=各中文中取頭一碼, 2=全部碼
lpara mword , mfunc
if type('mfunc')#'N'
mfunc = 1
endif
local mret, i
mret = ''
mword= trim(mword)
for i=1 to len(mword)
*if mfunc = 1
if asc( subs( mword,i,1))>=128 &&--中文字
mret = mret + trim(phonetica( subs( mword,i,2), mfunc))
i=i+1
endif
*endif
next
return mret
**************
func phonetica
lpara mword, mfunc
local msele , mret
msele = select()
select phonetic1, phonetic from phonetic where word like '%'+mword+'%' into cursor zphonetic
mret = iif(mfunc=1, phonetic1, phonetic )
if !empty( msele )
sele (msele)
endif
return mret
|
garfield 在 星期一 九月 08, 2003 7:53 pm 作了第 1 次修改 |
|
| 回頂端 |
|
 |
guku1101
註冊時間: 2006-07-03
文章: 84
來自: 高雄
第 2 樓
|
| 發表於: 星期二 十二月 22, 2009 3:04 pm 文章主題: |
|
|
請問前輩您那個資料庫如何產生出來的~
_________________
BB |
|
| 回頂端 |
|
|
yang1032
註冊時間: 2004-06-19
文章: 58
第 3 樓
|
| 發表於: 星期日 一月 24, 2010 5:53 pm 文章主題: |
|
|
| 見http://vfp.sunyear.com.tw/viewtopic.php?t=4470&highlight= |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 4 樓
|
| 發表於: 星期一 一月 25, 2010 9:41 am 文章主題: |
|
|
sorry 忘了回信,
我記得是去 http://input.cpatch.org/ 下載中文字庫,
但這個網站目前已經關閉.
如果要抓注音碼,還是yang1032所提供的比較好.
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
