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

happybasic

于 2011-03-24 16:13:00 发布

阅读量765

点赞数

分类专栏：学习笔记文章标签：输入法 integer string input timer

本文链接：https://blog.youkuaiyun.com/happybasic/article/details/6274407

版权

学习笔记专栏收录该内容

42 篇文章

订阅专栏

作者利用假期专心开发了一个简拼转换工具的软件，并在今天完成了主体部分。该工具支持3字词的全拼和简拼兼容，对于4字词则采用纯简拼的方式。文中详细记录了使用Basic语言进行开发的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

托3.8节的福.... 放假的人多了，所以昨天的业务比较少。。。终于专心下来写这个软件了，主体部分在今天完工了... 最终决，3字的词，也还全拼和简拼相容，仅4字的保持纯简拼。。。SO, 又多了一段临时的code...

   Dim B As String, NewB As String
   Dim c As String
   Dim l As Integer, i As Integer
            
    Open App.Path & "/3ma.txt" For Input As #1
    Open App.Path & "/3ma_new.ci" For Append As #2
               
         Do
            Input #1, B, c
            
            NewB = ""
            l = Len(c)
            
            For i = 1 To l
                NewB = NewB & ZiToPY(Mid$(c, i, 1))
            Next
            
            If Len(NewB) < 13 Then
               Print #2, NewB; ","; c
            End If
                  
            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

某同学，明天一早准备帮忙了。。。这工作需要你。。。

本文来自优快云博客，转载请标明出处： http://blog.youkuaiyun.com/happybasic/archive/2011/03/24/6274802.aspx