输入法继续写之：五笔容错处理~

因为五笔难学，所以特别对某些字进行容错。。这样可以明显提高输入效率。。

例如：张　五笔全码是XTAY ... 但是XTA也没有其它的字，所以给予容错处理...你输入XTA也可以打出张字。。。当然了，张字的二级简码是XT... 这里只是举例一下。。。

要进行此项处理，首先得提取所有单字4码的词条, code如下：

   Dim BM As String   Dim CI As String   Dim JS As Long, n As Long       Form5.Show       Form5.Label1.Caption = "正在分析编码..."           Set rs = ADO.CreateRecordset("SELECT * FROM YS_WB86")              n = rs.RecordCount            While rs.EOF = False              BM = rs.Fields(0)         CI = rs.Fields(1)                          If Len(BM) = 4 And Len(CI) = 1 Then                           Open App.Path & "/3machk.txt" For Append As #1                 Print #1, Left$(BM, 3); ","; CI            Close #1                  End If                  JS = JS + 1: DoEvents         Form5.ProgressBar1.Value = (JS / n) * 100                  rs.MoveNext                Wend              Form5.Hide

第二步，检查这些词条的前3码是否有别的字，code如下:

   Dim BM As String, diyBM As String   Dim CI As String, diyCI As String   Dim fgDiyCiAlreadyExist As Integer           '载入要分析的词条文件    Open App.Path & "/3machk.txt" For Input As #2                        Do                     Input #2, diyBM, diyCI                        Set rs = ADO.CreateRecordset("SELECT * FROM YS_WB86 where [BianMa] =  '" + diyBM + "'")                        '分析编码是否已经存在            Do While rs.EOF = False                    BM = rs.Fields(0)               CI = rs.Fields(1)                        '如果编码已存在               If BM = diyBM Then                  fgDiyCiAlreadyExist = 1       '完了，编码已经存在               End If                        rs.MoveNext                     Loop            '如果不存在，则可添加            If fgDiyCiAlreadyExist = 0 Then                           Label3.Caption = " “" & diyBM & "”可加为容错码..."                           Open App.Path & "/3ma.txt" For Append As #1                  Print #1, diyBM; ","; diyCI               Close #1                           Else               Label3.Caption = " “" & diyBM & "”已存在，跳过..."            End If                        fgDiyCiAlreadyExist = 0       '清0，为下一次比较作准备            DoEvents                     Loop Until EOF(2) = True                    Close #2