重码,一直是输入法必须考虑的。。。所以,在这一步。。不得不分析一下。。考虑到重码不可能避免。。。决定只对10个以上重码进行分析与优化。。因为10个以下选择一下还是比较方便的。
一经分析下来,不得不再说说王永民的伟大了。。。五笔重码>10的仅23条,但拼音却的却有495条之多。。
Dim BM As String, OldBM As String
Dim CI As String, OldCI As String
Dim JS As Long
Dim n As Integer, fg As Integer
n = 1
Form5.Show
Form5.Label1.Caption = "正在分析编码..."
Set rs = ADO.CreateRecordset("SELECT * FROM YS_WN") 'OR YS_PY
While rs.EOF = False
BM = rs.Fields(0)
CI = rs.Fields(1)
If BM = OldBM Then
n = n + 1
Else
Open App.Path & "/wn_code.txt" For Append As #1
If OldBM <> "" and n>10 Then
Print #1, OldBM; ":"; n
End If