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

最新推荐文章于 2024-05-30 11:26:54 发布

原创最新推荐文章于 2024-05-30 11:26:54 发布 · 535 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#输入法 #integer #string #n2 #编程

学习笔记专栏收录该内容

42 篇文章

订阅专栏

本文介绍了一段VB代码，该代码用于从数据库中提取符合特定条件（即长度为两个字符）的全拼兼容词组，并将其写入指定文件。通过遍历记录集并检查字段长度来实现这一目标。

提取需要兼容全拼的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字同理，略。。。