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

来源：互联网发布：淘宝宝贝降权怎么办编辑：程序博客网时间：2024/04/29 19:50

托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

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

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/happybasic/archive/2011/03/24/6274802.aspx