输入法继续写之：2字词条全拼编码~~~

将2字词条转成全拼的程序代码

最新推荐文章于 2025-08-23 15:10:28 发布

原创最新推荐文章于 2025-08-23 15:10:28 发布 · 663 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#输入法 #string #input #timer #c

学习笔记专栏收录该内容

42 篇文章

订阅专栏

本文提供了一个简单的VB程序代码，用于将输入的2字词条转换为全拼形式，并通过定时器实现代码执行过程中的交互效果。

将2字词条转成全拼的程序代码... 用完就要被抛弃了。。。突然发现好残忍。。。可怜的code

   Dim B As String, NewB As String
   Dim c As String
            
    Open App.Path & "/2ma.txt" For Input As #1
    Open App.Path & "/2ma_new.txt" For Append As #2
               
         Do
            Input #1, B, c
                  
            NewB = ZiToPY(Left$(c, 1)) & ZiToPY(Right$(c, 1))
            
            Print #2, NewB; ","; c
                  
            If Int(Timer) Mod 2 = 0 Then
               Label_ABC.Caption = "-"
            Else
               Label_ABC.Caption = "|"
            End If
            
            DoEvents
            
         Loop Until EOF(1) = True
                
    Close #2
    Close #1