mdl_unicode.bas

Japanese-Vietnamese Dictionary - Jack Nguyen

                    End Select
                    
                Case "3"

                    Select Case sPreChar

                            'a
                        Case "a": sVniStr = sPreText & ChrW$(&H1EA3) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "A": sVniStr = sPreText & ChrW$(&H1EA2) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HE2): sVniStr = sPreText & ChrW$(&H1EA9) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HC2): sVniStr = sPreText & ChrW$(&H1EA8) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H103): sVniStr = sPreText & ChrW$(&H1EB3) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H102): sVniStr = sPreText & ChrW$(&H1EB2) & Right$(sVniStr, Len(sVniStr) - i)

                            'e
                        Case "e": sVniStr = sPreText & ChrW$(&H1EBB) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "E": sVniStr = sPreText & ChrW$(&H1EBA) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HEA): sVniStr = sPreText & ChrW$(&H1EC3) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HCA): sVniStr = sPreText & ChrW$(&H1EC2) & Right$(sVniStr, Len(sVniStr) - i)

                            'i
                        Case "i": sVniStr = sPreText & ChrW$(&H1EC9) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "I": sVniStr = sPreText & ChrW$(&H1EC8) & Right$(sVniStr, Len(sVniStr) - i)

                            'o
                        Case "o": sVniStr = sPreText & ChrW$(&H1ECF) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "O": sVniStr = sPreText & ChrW$(&H1ECE) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HF4): sVniStr = sPreText & ChrW$(&H1ED5) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HD4): sVniStr = sPreText & ChrW$(&H1ED4) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1A1): sVniStr = sPreText & ChrW$(&H1EDF) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1A0): sVniStr = sPreText & ChrW$(&H1EDE) & Right$(sVniStr, Len(sVniStr) - i)

                            'u
                        Case "u": sVniStr = sPreText & ChrW$(&H1EE7) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "U": sVniStr = sPreText & ChrW$(&H1EE6) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1B0): sVniStr = sPreText & ChrW$(&H1EED) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1AF): sVniStr = sPreText & ChrW$(&H1EEC) & Right$(sVniStr, Len(sVniStr) - i)

                            'y
                        Case "y": sVniStr = sPreText & ChrW$(&H1EF7) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "Y": sVniStr = sPreText & ChrW$(&H1EF6) & Right$(sVniStr, Len(sVniStr) - i)
                    End Select
                                        
                Case "4"

                    Select Case sPreChar

                            'a
                        Case "a": sVniStr = sPreText & ChrW$(&HE3) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "A": sVniStr = sPreText & ChrW$(&HC3) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HE2): sVniStr = sPreText & ChrW$(&H1EAB) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HC2): sVniStr = sPreText & ChrW$(&H1EAA) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H103): sVniStr = sPreText & ChrW$(&H1EB5) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H102): sVniStr = sPreText & ChrW$(&H1EB4) & Right$(sVniStr, Len(sVniStr) - i)

                            'e
                        Case "e": sVniStr = sPreText & ChrW$(&H1EBD) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "E": sVniStr = sPreText & ChrW$(&H1EBC) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HEA): sVniStr = sPreText & ChrW$(&H1EC5) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HCA): sVniStr = sPreText & ChrW$(&H1EC4) & Right$(sVniStr, Len(sVniStr) - i)

                            'i
                        Case "i": sVniStr = sPreText & ChrW$(&H129) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "I": sVniStr = sPreText & ChrW$(&H128) & Right$(sVniStr, Len(sVniStr) - i)

                            'o
                        Case "o": sVniStr = sPreText & ChrW$(&HF5) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "O": sVniStr = sPreText & ChrW$(&HD5) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HF4): sVniStr = sPreText & ChrW$(&H1ED7) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HD4): sVniStr = sPreText & ChrW$(&H1ED6) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1A1): sVniStr = sPreText & ChrW$(&H1EE1) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1A0): sVniStr = sPreText & ChrW$(&H1EE0) & Right$(sVniStr, Len(sVniStr) - i)

                            'u
                        Case "u": sVniStr = sPreText & ChrW$(&H169) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "U": sVniStr = sPreText & ChrW$(&H168) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1B0): sVniStr = sPreText & ChrW$(&H1EEF) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1AF): sVniStr = sPreText & ChrW$(&H1EEE) & Right$(sVniStr, Len(sVniStr) - i)

                            'y
                        Case "y": sVniStr = sPreText & ChrW$(&H1EF9) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "Y": sVniStr = sPreText & ChrW$(&H1EF8) & Right$(sVniStr, Len(sVniStr) - i)
                    End Select
                                        
                Case "5"

                    Select Case sPreChar

                            'a
                        Case "a": sVniStr = sPreText & ChrW$(&H1EA1) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "A": sVniStr = sPreText & ChrW$(&H1EA0) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HE2): sVniStr = sPreText & ChrW$(&H1EAD) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HC2): sVniStr = sPreText & ChrW$(&H1EAC) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H103): sVniStr = sPreText & ChrW$(&H1EB7) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H102): sVniStr = sPreText & ChrW$(&H1EB6) & Right$(sVniStr, Len(sVniStr) - i)

                            'e
                        Case "e": sVniStr = sPreText & ChrW$(&H1EB9) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "E": sVniStr = sPreText & ChrW$(&H1EB8) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HEA): sVniStr = sPreText & ChrW$(&H1EC7) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HCA): sVniStr = sPreText & ChrW$(&H1EC6) & Right$(sVniStr, Len(sVniStr) - i)

                            'i
                        Case "i": sVniStr = sPreText & ChrW$(&H1ECB) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "I": sVniStr = sPreText & ChrW$(&H1ECA) & Right$(sVniStr, Len(sVniStr) - i)

                            'o
                        Case "o": sVniStr = sPreText & ChrW$(&H1ECD) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "O": sVniStr = sPreText & ChrW$(&H1ECC) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HF4): sVniStr = sPreText & ChrW$(&H1ED9) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&HD4): sVniStr = sPreText & ChrW$(&H1ED8) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1A1): sVniStr = sPreText & ChrW$(&H1EE3) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1A0): sVniStr = sPreText & ChrW$(&H1EE2) & Right$(sVniStr, Len(sVniStr) - i)

                            'u
                        Case "u": sVniStr = sPreText & ChrW$(&H1EE5) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "U": sVniStr = sPreText & ChrW$(&H1EE4) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1B0): sVniStr = sPreText & ChrW$(&H1EF1) & Right$(sVniStr, Len(sVniStr) - i)

                        Case ChrW$(&H1AF): sVniStr = sPreText & ChrW$(&H1EF0) & Right$(sVniStr, Len(sVniStr) - i)

                            'y
                        Case "y": sVniStr = sPreText & ChrW$(&H1EF5) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "Y": sVniStr = sPreText & ChrW$(&H1EF4) & Right$(sVniStr, Len(sVniStr) - i)
                    End Select
                                        
                Case "6"

                    Select Case sPreChar

                            'a
                        Case "a": sVniStr = sPreText & ChrW$(&HE2) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "A": sVniStr = sPreText & ChrW$(&HC2) & Right$(sVniStr, Len(sVniStr) - i)

                            'e
                        Case "e": sVniStr = sPreText & ChrW$(&HEA) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "E": sVniStr = sPreText & ChrW$(&HCA) & Right$(sVniStr, Len(sVniStr) - i)

                            'o
                        Case "o": sVniStr = sPreText & ChrW$(&HF4) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "O": sVniStr = sPreText & ChrW$(&HD4) & Right$(sVniStr, Len(sVniStr) - i)
                    End Select
                    
                Case "7"

                    Select Case sPreChar

                            'o
                        Case "o": sVniStr = sPreText & ChrW$(&H1A1) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "O": sVniStr = sPreText & ChrW$(&H1A0) & Right$(sVniStr, Len(sVniStr) - i)

                            'u
                        Case "u": sVniStr = sPreText & ChrW$(&H1B0) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "U": sVniStr = sPreText & ChrW$(&H1AF) & Right$(sVniStr, Len(sVniStr) - i)
                    End Select
                    
                Case "8"

                    Select Case sPreChar

                            'a
                        Case "a": sVniStr = sPreText & ChrW$(&H103) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "A": sVniStr = sPreText & ChrW$(&H102) & Right$(sVniStr, Len(sVniStr) - i)
                    End Select
                    
                Case "9"

                    Select Case sPreChar

                            'd
                        Case "d": sVniStr = sPreText & ChrW$(&H111) & Right$(sVniStr, Len(sVniStr) - i)

                        Case "D": sVniStr = sPreText & ChrW$(&H110) & Right$(sVniStr, Len(sVniStr) - i)
                    End Select
                        
            End Select

        Next i
    Next j

    VniStrToUni = sVniStr
End Function