IME繼續寫之：重複編碼分析~~~

基本工作都完成了。。。不得不再做做重複編碼分析....  因為生平最恨沒效率的事，重複的事....  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條，也必須去除。。。　因為多餘的編碼和花油一樣令人討厭。。。