输入法继续写之：不同长度词条编码统计...

五笔基本定案... 至于，拼音... 昨天的单字全拼+词组简拼的数据库基本处理完了... 剩下的就是编码分析了... 因为是临时性的code,  用完后，就不会再呆在程序中... 就放这里了供参观了...

   Dim B As String
   Dim c As String
   Dim n1 As Integer
   Dim n2 As Integer
   
   Dim s1 As Long
   Dim s2 As Long
   Dim s3 As Long
   Dim s4 As Long
   Dim s5 As Long

      Set rs = ADO.CreateRecordset("SELECT *  FROM YS_PY")
      While rs.EOF = False  '如果EOF为真，则表示"游标"已经在最后一条记录后面；否则表示未到
            
            B = rs.Fields(0)
            c = rs.Fields(1)
            
            n1 = Len(B)
            n2 = Len(c)
            Select Case n2
               Case 1
                 s1 = s1 + 1
               Case 2
                 s2 = s2 + 1
               Case 3
                 s3 = s3 + 1
               Case 4
                 s4 = s4 + 1
               Case Else
                 s5 = s5 + 1
            End Select
                                  
            rs.MoveNext     '使"游标"后移
                
      Wend
            
      MsgBox "单字词条:" & s1 & " 条" & vbCrLf & _
             "双字词条:" & s2 & " 条" & vbCrLf & _
             "三字词条:" & s3 & " 条" & vbCrLf & _
             "四字词条:" & s4 & " 条" & vbCrLf & _
             "四字以上:" & s5 & " 条"

结果一出来，才觉得2字词组部分的容错输入处理太重要了... 因为2字的词条实在太多了...

 

因为一定是n多人，特别是还不熟悉本输入法的人来说.... 有哪些二字词组可以用简拼，根本不知道。。完全可以so所以对于2字词条必须要容错了....  想一想，2字词条还是得全拼与简拼互容比较好... 至于3，4字的，哈哈我想... 一定是简拼比全拼划算了... 没人去全拼吧。。

休息片刻.. 一会继续吧。。。