基本工作都完成了。。。不得不再做做重複編碼分析.... 因為生平最恨沒效率的事,重複的事.... code....
dim bm as string, oldbm as string
dim ci as string, oldci as string
dim js as long
dim n as integer
form5.show
form5.label1.caption = "正在分析編碼..."
set rs = ado.createrecordset("select * from ys_py")
while rs.eof = false
bm = rs.fields(0)
ci = rs.fields(1)
if bm = oldbm then
if ci = oldci then
n = n + 1
msgbox "重複的詞條:" & ci & " - " & bm
end if
end if
oldbm = bm
oldci = ci
js = js + 1: doevents
form5.progressbar1.value = (js / rs.recordcount) * 100
rs.movenext
wend
form5.hide
if n = 0 then
msgbox "未發重複的詞條!"
else
msgbox "共發現" & n & "條重複的詞條!"
end if
還好,五筆沒有重複的編碼,拼音有3條。。。即使只有3條,也必須去除。。。 因為多餘的編碼和花油一樣令人討厭。。。 LatinIME輸入法分析
輸入法的設定在res xml method.xml的標籤中,主要設定兩個屬性 android settingsactivity,輸入法的設定程式入口。android isdefault,這個輸入法是不是系統的預設輸入法。最基本的字母布局由res xml 下面的kbd qwerty.xml,kbd q...
LatinIME輸入法分析
輸入法的設定在res xml method.xml的標籤中,主要設定兩個屬性 android settingsactivity,輸入法的設定程式入口。android isdefault,這個輸入法是不是系統的預設輸入法。最主要的字母布局由res xml 以下的kbd qwerty.xml,kbd q...
輸入法繼續寫之 五筆 拼音詞條互容處理
因為有人反應,某些在五筆中可以打出來的詞語在拼音中無法打出來.也有一些在拼音中可以打出的詞語在五筆中無法打出來.這是因為,五筆和拼音編碼時是分別處理的。所以可能彼此沒有cover到。因此必須首先提取五筆中沒有的拼音詞條和拼音中沒有的五筆詞條.code如下 dim rs1 as recordset d...