IME繼續寫之：五筆/拼音詞條互容處理~

因為有人反應，某些在五筆中可以打出來的詞語在拼音中無法打出來.... 也有一些在拼音中可以打出的詞語在五筆中無法打出來...

這是因為，五筆和拼音編碼時是分別處理的。。所以可能彼此沒有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