输入法継续写之：2, 3字词条提取~~~

最新推荐文章于 2022-02-24 16:29:37 发布

happybasic

最新推荐文章于 2022-02-24 16:29:37 发布

阅读量496

点赞数

分类专栏：软件作品文章标签：输入法 integer string n2 编程

本文链接：https://blog.csdn.net/happybasic/article/details/6274400

版权

软件作品专栏收录该内容

16 篇文章 0 订阅

订阅专栏

提取需要兼容全拼的2字词组，又是临时程code.... 用code产生code, 用code为code服务... 也许，这就是编程的乐趣吧。。。

   Dim B As String
   Dim C As String
   Dim n1 As Integer
   Dim n2 As Integer

      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)
            If n2 = 2 Then
            
               Open App.Path & "/2ma.txt" For Append As #1
                  Print #1, B; ","; C
               Close #1
               
               Label_ABC.Caption = "-"
               
            Else
               Label_ABC.Caption = "|"
            End If
            
            DoEvents
                                  
            rs.MoveNext     '使"游标"后移
                
      Wend
            
      MsgBox "词条处理完成！"

3字同理，略。。。