Function GetEng() As String     '读取英文部分
    GetEng = ""
    Dim tmp As Byte
before:
    Get 1, Pointer, tmp
    Pointer = Pointer + 1
    If tmp = 13 Or tmp=10 or tmp = 124 Then   '124是|符，13 10是换行
        If GetEng <> "" Then Exit Function
    Else
        GetEng = GetEng & Chr(tmp)
    End If
    GoTo before
End Function



Function GetChn() As String     '读取中文部分
    GetChn = ""
    Dim tmp As Byte
before:
    Get 1, Pointer, tmp
    Pointer = Pointer + 1
    If tmp = 13 Or tmp=10 or tmp = 124 Then
        If GetChn <> "" Then Exit Function
    Else if tmp<>32         '丢弃空格符
        GetChn = GetChn & Chr(tmp)
    End If
    GoTo before
End Function