输入法继续写之：五笔/拼音词条互容处理~

因为有人反应，某些在五笔中可以打出来的词语在拼音中无法打出来.... 也有一些在拼音中可以打出的词语在五笔中无法打出来...

这是因为，五笔和拼音编码时是分别处理的。。所以可能彼此没有cover到。。因此必须首先提取五笔中没有的拼音词条和拼音中没有的五笔词条... code如下:

       Dim rs1 As Recordset
       Dim BM1 As String
       Dim CI1 As String
       Dim BM As String
       Dim CI As String
       Dim fg As Integer, js As Long

       Set rs1 = ADO.CreateRecordset("SELECT * FROM YS_WB86")
              
       Form5.Show
       Form5.Label1.Caption = "正在处理五笔编码..."
       
       While rs1.EOF = False
       
         fg = 0
       
         BM1 = rs1.Fields(0)
         CI1 = rs1.Fields(1)
    
         Set rs = ADO.CreateRecordset("SELECT * FROM YS_PY where [ZiCi] =  '" + CI1 + "'")
     
         Do While rs.EOF = False
     
           BM = rs.Fields(0)
           CI = rs.Fields(1)
                  
           If CI1 = CI Then
              fg = 1
              Exit Do
           End If
           
           rs.MoveNext
           
         Loop
         
         If fg = 0 Then
         
           Open App.Path & "/wb.txt" For Append As #1
              Print #1, CI1
           Close #1
         
         End If
         
         js = js + 1: DoEvents
         Form5.ProgressBar1.Value = (js / rs1.RecordCount) * 100
         
         rs1.MoveNext
       
       Wend
       
       Form5.Hide