输入法继续写之：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