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

托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