VFP 愛用者社區

Ruey · Ruey 在星期一九月 08, 2003 8:56 pm 作了第 2 次修改

評語:讓用戶自己建立簡稱表資料的，
自動轉換有時不準確(還有重音字的問題).
"吖八嚓咑妸發旮鉿譏譏哢垃呣拿謳趴七呥仨他哇哇哇夕丫匝咗"
在程式中指的是排列順序中每個拼音的第一個漢字

來源:myf1 夜來香

Ruey · 發表於: 星期一九月 08, 2003 8:51 pm 文章主題:

來源:myf1 真愛無敵

Ruey · 發表於: 星期一九月 08, 2003 8:53 pm 文章主題:

來源:myf1 abiao

Ruey · 發表於: 星期一九月 08, 2003 8:57 pm 文章主題:

用拼音輸入法字典庫實現同音字模糊查詢

在開發各類應用管理系統中，一般都要實現各種查詢功能，如何準確、快速查找到符合條件的記錄，是實現各種查詢功能的重點。系統的實際開發過程中，查詢功能一般都是通過對字元進行比較、判斷等方法來實現。我們開發一個人事管理系統中過程中，系統要具有新的查詢方式，即只要知道一個人姓名的讀音，並不知道每個字的具體寫法，通過檢索資料庫，就能把所有符合這個讀音的記錄內容全部顯示出來。由於漢字存在著大量的同音字，採用常用的字元比較法，如查找一個名叫“李曉軍”的人，資料庫中存在的叫“李小君”的資料就不能查到，利用常用的查詢方法實現不了同音字的查詢功能。為了解決同音字的模糊查詢問題，筆者借用WINDOWS系統下的輸入法生成器，將系統中的拼音輸入法字典庫，生成了一個拼音查詢字典庫，利用這個拼音查詢字典庫，在使用VFP資料庫管理系統編寫的人事管理系統中，輕鬆實現了按語音進行模糊查詢功能，具體思路如下：
---- 一、首先要生成一個拼音字典查詢資料庫
---- 選擇WINDOWS系統的開始—程式—附件—輸入法生成器，進入輸入法生成器視窗，使用滑鼠點擊逆轉換的頁框，點擊打開檔按鈕，選中硬碟WINDOWS\SYSTEM檔夾下的WINPY.MB檔，在碼表原文件中輸入C:\WINPY.TXT，輸入完畢後點擊逆轉換，此時系統對全拼字典庫進行轉換，最後將生成一個純文字檔案，利用這個純文字檔案編寫一段小程式即可生成一個拼音字典查詢資料庫。
---- 二、進入VFP系統，編寫一段生成程式命令為ZH.PRG
---- 程式中的內容如下所列：
---- CREA TABL B1 (NR C(60),HZ C(2),PY1 C(12),PY2 C(12))&&創建一個臨時資料庫
---- USE B1 &&打開生成的資料庫
---- APPE FROM C:\WINPY.TXT SDF
---- &&將利用輸入法生成器生成的字典碼檔WINPY.TXT檔內容追加到資料庫中
---- DELE FOR ASC(SUBS(NR,3,1)) >=128
---- &&在資料庫中刪除全部片語內容，只留下單字 DELE FOR RECN()< 13 &&在資料庫刪除編碼庫的頭檔
---- PACK &&清除打了刪除標記的記錄。
---- REPL HZ WITH SUBS(NR,1,2),PY1 WITH SUBS(NR,3,AT(' ',NR)-2),;
---- PY2 WITH SUBS(NR,AT(' ',NR)+1) ALL
---- &&將漢字與拼音存放在不同的欄位裏，這裏拼音有兩個欄位，其中有一個為同音字。
---- REPL NR1 WITH ‘s’+SUBS(NR1,3) FOR “sh”$NR1
---- &&為了照顧南方口音的人員使用，可將全部zh,ch,sh替換成z,c,s
---- REPL NR1 WITH ‘c’+SUBS(NR1,3) FOR “ch”$NR1
---- REPL NR1 WITH ‘z’+SUBS(NR1,3) FOR “zh”$NR1
---- REPL NR2 WITH ‘s’+SUBS(NR2,3) FOR “sh”$NR2
---- REPL NR2 WITH ‘c’+SUBS(NR2,3) FOR “ch”$NR2
---- REPL NR2 WITH ‘z’+SUBS(NR2,3) FOR “zh”$NR2
---- COPY TO PYZDK FIEL HZ,PY1,PY2 &&生成一個拼音查詢資料庫
---- USE &&關閉打開的資料庫
---- ERASE 'B1.DBF' &&刪除生成的臨過資料庫
---- 在VFP中命令視窗中，執行上面這段程式系統將自動生成一個拼音查詢庫，並將這個資料庫命名為PYZDK.DBF。
---- 三、新建一個表單
---- 在資料環境中加入“人員情況表”和“PYZDK”，兩個資料庫，在人員情況表中存在需要有查詢的人員姓名欄位，欄位名為NAME，標誌位元欄位，欄位名為BZW。
---- 在表單上新建一個LABEL1物件用來提示“請輸入要查詢的姓名”；一個文本框用來輸入要查詢的字元內容；一個表格對像，用來顯示人員情況表資料庫中的內容，兩個命令按鈕，COMMAND2用來執行查詢過程檔，COMMAND1用來退出查詢窗口。
---- COMMAND1命令按鈕屬性設置如下：
COMMAND1.CAPTION=’退出’
在COMMAND1命令按鈕的.CLICK事件中寫入代碼
THISFORM.RELEASE
COMMAND2命令按鈕屬性設置如下：
COMMAND2.CAPTION＝’開始查詢’
在COMMAND2命令按鈕的CLICK事件中寫入代碼：
IF THIS.CAPTION='開始查詢'
THIS.CAPTION='恢復資料'
SRNR=ALLT(THISFORM.TEXT1.value)
ZDD=LEN(SRNR)/2
DIME HH(100)
HH=''
FOR I=1 TO LEN(SRNR)/2
ABC=SUBS(SRNR,I*2-1,2)
SELE PYZDK
SET FILT TO
LOCA FOR ABC$HZ
PYNR1=PY1
PYNR2=PY2
IF PYNR2< >' '
SET FILT TO PY1=PYNR1 OR PY2=PYNR2
ELSE
SET FILT TO PY1=PYNR1
ENDIF
GO TOP
DO WHIL NOT EOF()
HH(I)=HH(I)+HZ
SKIP
ENDDO
ENDFOR
SELE 人員情況表
SET FILT TO
REPL BZW WITH '' ALL
GO TOP
DO WHIL NOT EOF()
JSQ=0
FOR I=1 TO LEN(ALLT(NAME))/2
IF SUBS(YXMM,I*2-1,2)$HH(I)
JSQ=JSQ+1
ENDIF
ENDFOR
IF JSQ=LEN(ALLT(NAME))/2 OR JSQ >=ZDD
REPL BZW WITH '*'
ENDIF
SKIP
ENDDO
SET FILT TO BZW="*"
THISFORM.REFRESH
ELSE
THIS.CAPTION='開始查詢'
SELE 人員情況表
SET FILT TO
GO TOP
THISFORM.REFRESH
ENDIF
---- 全部設置完畢後，執行這個程式，在文本框中輸入要查詢的關鍵字，點擊查詢命令按鈕，這時表格中顯示的將是符合查詢關鍵字的全部內容，再次點擊這個命令按鈕，表格中將恢復顯示全部資料內容，點擊退出系統命令按鈕，將退出系統。
---- 四、查詢程式實現的原理
---- 在系統中提供的編輯框中輸入要查詢的關鍵字，如果在一個人員資料庫中查詢一個姓名音為“李曉軍”的人員，首先在生成的拼音查詢資料庫中找輸入第一個漢字在字典庫中的位置，利用這個漢字的讀音，對字典庫記錄內容進行過濾，這樣字典庫中只有符合這個漢字讀音的全部漢字，利用一個迴圈，將全部同音字相加生成一個字串送到一個變數中，繼續對另外輸入的漢字進行同樣的處理，最後根據輸入漢字的多少，生成多個字串變數。生成字串變數後，開始檢索你要查詢的資料庫，將資料庫中每人的姓名拆開分別與生成的字串進行判斷，只有當資料庫中一個人的姓名全部字元都能在相應的字串中查找到，那麼這條記錄就符合查找的條件，打上一個標識，比較下一條記錄，迴圈到資料庫的結尾，這時就可以將所有做了查詢標記的資料庫內容顯示出來，即實現了按語音模糊查詢的方法。
---- 上面簡要介紹了在VFP系統中，實現按語音模糊查詢的一種方法，在程式中並沒有考慮容錯性，在這裏只是提供了一種思路，讀者根據以上實現語音查詢的原理，根據實際工作的需要實現不同形式的語音模糊查詢方式。

Ruey · 發表於: 星期一九月 08, 2003 9:03 pm 文章主題:

來源:myf1 雪心