Xuân Thanh > 23-11-19, 10:47 AM
Function TCVNtoUNICODE(vnStr As String)
Dim c As String, i As Integer
For i = 1 To Len(vnStr)
c = Mid(vnStr, i, 1)
Select Case c
Case "a": c = ChrW$(97)
Case "¸": c = ChrW$(225)
Case "µ": c = ChrW$(224)
Case "¶": c = ChrW$(7843)
Case "·": c = ChrW$(227)
Case "¹": c = ChrW$(7841)
Case "¨": c = ChrW$(259)
Case "¾": c = ChrW$(7855)
Case "»": c = ChrW$(7857)
Case "¼": c = ChrW$(7859)
Case "½": c = ChrW$(7861)
Case "Æ": c = ChrW$(7863)
Case "©": c = ChrW$(226)
Case "Ê": c = ChrW$(7845)
Case "Ç": c = ChrW$(7847)
Case "È": c = ChrW$(7849)
Case "É": c = ChrW$(7851)
Case "Ë": c = ChrW$(7853)
Case "e": c = ChrW$(101)
Case "Ð": c = ChrW$(233)
Case "Ì": c = ChrW$(232)
Case "Î": c = ChrW$(7867)
Case "Ï": c = ChrW$(7869)
Case "Ñ": c = ChrW$(7865)
Case "ª": c = ChrW$(234)
Case "Õ": c = ChrW$(7871)
Case "Ò": c = ChrW$(7873)
Case "Ó": c = ChrW$(7875)
Case "Ô": c = ChrW$(7877)
Case "Ö": c = ChrW$(7879)
Case "o": c = ChrW$(111)
Case "ã": c = ChrW$(243)
Case "ß": c = ChrW$(242)
Case "á": c = ChrW$(7887)
Case "â": c = ChrW$(245)
Case "ä": c = ChrW$(7885)
Case "«": c = ChrW$(244)
Case "è": c = ChrW$(7889)
Case "å": c = ChrW$(7891)
Case "æ": c = ChrW$(7893)
Case "ç": c = ChrW$(7895)
Case "é": c = ChrW$(7897)
Case "¬": c = ChrW$(417)
Case "í": c = ChrW$(7899)
Case "ê": c = ChrW$(7901)
Case "ë": c = ChrW$(7903)
Case "ì": c = ChrW$(7905)
Case "î": c = ChrW$(7907)
Case "i": c = ChrW$(105)
Case "Ý": c = ChrW$(237)
Case "×": c = ChrW$(236)
Case "Ø": c = ChrW$(7881)
Case "Ü": c = ChrW$(297)
Case "Þ": c = ChrW$(7883)
Case "u": c = ChrW$(117)
Case "ó": c = ChrW$(250)
Case "ï": c = ChrW$(249)
Case "ñ": c = ChrW$(7911)
Case "ò": c = ChrW$(361)
Case "ô": c = ChrW$(7909)
Case "": c = ChrW$(432)
Case "ø": c = ChrW$(7913)
Case "õ": c = ChrW$(7915)
Case "ö": c = ChrW$(7917)
Case "÷": c = ChrW$(7919)
Case "ù": c = ChrW$(7921)
Case "y": c = ChrW$(121)
Case "ý": c = ChrW$(253)
Case "ú": c = ChrW$(7923)
Case "û": c = ChrW$(7927)
Case "ü": c = ChrW$(7929)
Case "þ": c = ChrW$(7925)
Case "®": c = ChrW$(273)
Case "A": c = ChrW$(65)
Case "¡": c = ChrW$(258)
Case "¢": c = ChrW$(194)
Case "E": c = ChrW$(69)
Case "£": c = ChrW$(202)
Case "O": c = ChrW$(79)
Case "¤": c = ChrW$(212)
Case "¥": c = ChrW$(416)
Case "I": c = ChrW$(73)
Case "U": c = ChrW$(85)
Case "¦": c = ChrW$(431)
Case "Y": c = ChrW$(89)
Case "§": c = ChrW$(272)
End Select
TCVNtoUNICODE = TCVNtoUNICODE + c
Next i
End Functionledangvan > 23-11-19, 12:45 PM
(23-11-19, 10:47 AM)Xuân Thanh Đã viết: Hàm chuyển từ TCVN3(ABC) sang Unicode
Mã:Function TCVNtoUNICODE(vnStr As String)
Dim c As String, i As Integer
For i = 1 To Len(vnStr)
c = Mid(vnStr, i, 1)
Select Case c
Case "a": c = ChrW$(97)
Case "¸": c = ChrW$(225)
Case "µ": c = ChrW$(224)
Case "¶": c = ChrW$(7843)
Case "·": c = ChrW$(227)
Case "¹": c = ChrW$(7841)
Case "¨": c = ChrW$(259)
Case "¾": c = ChrW$(7855)
Case "»": c = ChrW$(7857)
Case "¼": c = ChrW$(7859)
Case "½": c = ChrW$(7861)
Case "Æ": c = ChrW$(7863)
Case "©": c = ChrW$(226)
Case "Ê": c = ChrW$(7845)
Case "Ç": c = ChrW$(7847)
Case "È": c = ChrW$(7849)
Case "É": c = ChrW$(7851)
Case "Ë": c = ChrW$(7853)
Case "e": c = ChrW$(101)
Case "Ð": c = ChrW$(233)
Case "Ì": c = ChrW$(232)
Case "Î": c = ChrW$(7867)
Case "Ï": c = ChrW$(7869)
Case "Ñ": c = ChrW$(7865)
Case "ª": c = ChrW$(234)
Case "Õ": c = ChrW$(7871)
Case "Ò": c = ChrW$(7873)
Case "Ó": c = ChrW$(7875)
Case "Ô": c = ChrW$(7877)
Case "Ö": c = ChrW$(7879)
Case "o": c = ChrW$(111)
Case "ã": c = ChrW$(243)
Case "ß": c = ChrW$(242)
Case "á": c = ChrW$(7887)
Case "â": c = ChrW$(245)
Case "ä": c = ChrW$(7885)
Case "«": c = ChrW$(244)
Case "è": c = ChrW$(7889)
Case "å": c = ChrW$(7891)
Case "æ": c = ChrW$(7893)
Case "ç": c = ChrW$(7895)
Case "é": c = ChrW$(7897)
Case "¬": c = ChrW$(417)
Case "í": c = ChrW$(7899)
Case "ê": c = ChrW$(7901)
Case "ë": c = ChrW$(7903)
Case "ì": c = ChrW$(7905)
Case "î": c = ChrW$(7907)
Case "i": c = ChrW$(105)
Case "Ý": c = ChrW$(237)
Case "×": c = ChrW$(236)
Case "Ø": c = ChrW$(7881)
Case "Ü": c = ChrW$(297)
Case "Þ": c = ChrW$(7883)
Case "u": c = ChrW$(117)
Case "ó": c = ChrW$(250)
Case "ï": c = ChrW$(249)
Case "ñ": c = ChrW$(7911)
Case "ò": c = ChrW$(361)
Case "ô": c = ChrW$(7909)
Case "": c = ChrW$(432)
Case "ø": c = ChrW$(7913)
Case "õ": c = ChrW$(7915)
Case "ö": c = ChrW$(7917)
Case "÷": c = ChrW$(7919)
Case "ù": c = ChrW$(7921)
Case "y": c = ChrW$(121)
Case "ý": c = ChrW$(253)
Case "ú": c = ChrW$(7923)
Case "û": c = ChrW$(7927)
Case "ü": c = ChrW$(7929)
Case "þ": c = ChrW$(7925)
Case "®": c = ChrW$(273)
Case "A": c = ChrW$(65)
Case "¡": c = ChrW$(258)
Case "¢": c = ChrW$(194)
Case "E": c = ChrW$(69)
Case "£": c = ChrW$(202)
Case "O": c = ChrW$(79)
Case "¤": c = ChrW$(212)
Case "¥": c = ChrW$(416)
Case "I": c = ChrW$(73)
Case "U": c = ChrW$(85)
Case "¦": c = ChrW$(431)
Case "Y": c = ChrW$(89)
Case "§": c = ChrW$(272)
End Select
TCVNtoUNICODE = TCVNtoUNICODE + c
Next i
End Function
P/S : Hàm của OverAC - GPE
Xuân Thanh > 23-11-19, 01:33 PM
(23-11-19, 12:45 PM)ledangvan Đã viết: Mình muốn lấy cái mã của Haquocquan phía trên vì nó có convert theo chiều ngược lại TCVN3 - Unicode và Unicode - TCVN3
Hàm của bạn thấy có mấy chữ nó dịch sang chưa đúng ví dụ : Nội -> Nẫi ; Phú -> Phể ; Lụa -> Lễa ..
Function TCVN3toUNICODE(vnstr As String)
Dim c As String, i As Long
For i = 1 To Len(vnstr)
c = Mid(vnstr, i, 1)
Select Case c
Case "a": c = ChrW$(97)
Case "¸": c = ChrW$(225)
Case "µ": c = ChrW$(224)
Case "¶": c = ChrW$(7843)
Case "·": c = ChrW$(227)
Case "¹": c = ChrW$(7841)
Case "¨": c = ChrW$(259)
Case "¾": c = ChrW$(7855)
Case "»": c = ChrW$(7857)
Case "¼": c = ChrW$(7859)
Case "½": c = ChrW$(7861)
Case "Æ": c = ChrW$(7863)
Case "©": c = ChrW$(226)
Case "Ê": c = ChrW$(7845)
Case "Ç": c = ChrW$(7847)
Case "È": c = ChrW$(7849)
Case "É": c = ChrW$(7851)
Case "Ë": c = ChrW$(7853)
Case "e": c = ChrW$(101)
Case "Ð": c = ChrW$(233)
Case "Ì": c = ChrW$(232)
Case "Î": c = ChrW$(7867)
Case "Ï": c = ChrW$(7869)
Case "Ñ": c = ChrW$(7865)
Case "ª": c = ChrW$(234)
Case "Õ": c = ChrW$(7871)
Case "Ò": c = ChrW$(7873)
Case "Ó": c = ChrW$(7875)
Case "Ô": c = ChrW$(7877)
Case "Ö": c = ChrW$(7879)
Case "o": c = ChrW$(111)
Case "ã": c = ChrW$(243)
Case "ß": c = ChrW$(242)
Case "á": c = ChrW$(7887)
Case "â": c = ChrW$(245)
Case "ä": c = ChrW$(7885)
Case "«": c = ChrW$(244)
Case "è": c = ChrW$(7889)
Case "å": c = ChrW$(7891)
Case "æ": c = ChrW$(7893)
Case "ç": c = ChrW$(7895)
Case "é": c = ChrW$(7897)
Case "¬": c = ChrW$(417)
Case "í": c = ChrW$(7899)
Case "ê": c = ChrW$(7901)
Case "ë": c = ChrW$(7903)
Case "ì": c = ChrW$(7905)
Case "î": c = ChrW$(7907)
Case "i": c = ChrW$(105)
Case "Ý": c = ChrW$(237)
Case "×": c = ChrW$(236)
Case "Ø": c = ChrW$(7881)
Case "Ü": c = ChrW$(297)
Case "Þ": c = ChrW$(7883)
Case "u": c = ChrW$(117)
Case "ó": c = ChrW$(250)
Case "ï": c = ChrW$(249)
Case "ñ": c = ChrW$(7911)
Case "ò": c = ChrW$(361)
Case "ô": c = ChrW$(7909)
Case "": c = ChrW$(432)
Case "ø": c = ChrW$(7913)
Case "õ": c = ChrW$(7915)
Case "ö": c = ChrW$(7917)
Case "÷": c = ChrW$(7919)
Case "ù": c = ChrW$(7921)
Case "y": c = ChrW$(121)
Case "ý": c = ChrW$(253)
Case "ú": c = ChrW$(7923)
Case "û": c = ChrW$(7927)
Case "ü": c = ChrW$(7929)
Case "þ": c = ChrW$(7925)
Case "®": c = ChrW$(273)
Case "A": c = ChrW$(65)
Case "¡": c = ChrW$(258)
Case "¢": c = ChrW$(194)
Case "E": c = ChrW$(69)
Case "£": c = ChrW$(202)
Case "O": c = ChrW$(79)
Case "¤": c = ChrW$(212)
Case "¥": c = ChrW$(416)
Case "I": c = ChrW$(73)
Case "U": c = ChrW$(85)
Case "¦": c = ChrW$(431)
Case "Y": c = ChrW$(89)
Case "§": c = ChrW$(272)
End Select
TCVN3toUNICODE = TCVN3toUNICODE + c
Next i
End Function
Function UNICODEtoTCVN3(vnstr As String)
Dim c As String, i As Long
For i = 1 To Len(vnstr)
c = Mid(vnstr, i, 1)
Select Case c
Case ChrW$(97): c = "a"
Case ChrW$(225): c = "¸"
Case ChrW$(224): c = "µ"
Case ChrW$(7843): c = "¶"
Case ChrW$(227): c = "·"
Case ChrW$(7841): c = "¹"
Case ChrW$(259): c = "¨"
Case ChrW$(7855): c = "¾"
Case ChrW$(7857): c = "»"
Case ChrW$(7859): c = "¼"
Case ChrW$(7861): c = "½"
Case ChrW$(7863): c = "Æ"
Case ChrW$(226): c = "©"
Case ChrW$(7845): c = "Ê"
Case ChrW$(7847): c = "Ç"
Case ChrW$(7849): c = "È"
Case ChrW$(7851): c = "É"
Case ChrW$(7853): c = "Ë"
Case ChrW$(101): c = "e"
Case ChrW$(233): c = "Ð"
Case ChrW$(232): c = "Ì"
Case ChrW$(7867): c = "Î"
Case ChrW$(7869): c = "Ï"
Case ChrW$(7865): c = "Ñ"
Case ChrW$(234): c = "ª"
Case ChrW$(7871): c = "Õ"
Case ChrW$(7873): c = "Ò"
Case ChrW$(7875): c = "Ó"
Case ChrW$(7877): c = "Ô"
Case ChrW$(7879): c = "Ö"
Case ChrW$(111): c = "o"
Case ChrW$(243): c = "ã"
Case ChrW$(242): c = "ß"
Case ChrW$(7887): c = "á"
Case ChrW$(245): c = "â"
Case ChrW$(7885): c = "ä"
Case ChrW$(244): c = "«"
Case ChrW$(7889): c = "è"
Case ChrW$(7891): c = "å"
Case ChrW$(7893): c = "æ"
Case ChrW$(7895): c = "ç"
Case ChrW$(7897): c = "é"
Case ChrW$(417): c = "¬"
Case ChrW$(7899): c = "í"
Case ChrW$(7901): c = "ê"
Case ChrW$(7903): c = "ë"
Case ChrW$(7905): c = "ì"
Case ChrW$(7907): c = "î"
Case ChrW$(105): c = "i"
Case ChrW$(237): c = "Ý"
Case ChrW$(236): c = "×"
Case ChrW$(7881): c = "Ø"
Case ChrW$(297): c = "Ü"
Case ChrW$(7883): c = "Þ"
Case ChrW$(117): c = "u"
Case ChrW$(250): c = "ó"
Case ChrW$(249): c = "ï"
Case ChrW$(7911): c = "ñ"
Case ChrW$(361): c = "ò"
Case ChrW$(7909): c = "ô"
Case ChrW$(432): c = ""
Case ChrW$(7913): c = "ø"
Case ChrW$(7915): c = "õ"
Case ChrW$(7917): c = "ö"
Case ChrW$(7919): c = "÷"
Case ChrW$(7921): c = "ù"
Case ChrW$(121): c = "y"
Case ChrW$(253): c = "ý"
Case ChrW$(7923): c = "ú"
Case ChrW$(7927): c = "û"
Case ChrW$(7929): c = "ü"
Case ChrW$(7925): c = "þ"
Case ChrW$(273): c = "®"
Case ChrW$(65): c = "A"
Case ChrW$(193): c = "¸"
Case ChrW$(192): c = "µ"
Case ChrW$(7842): c = "¶"
Case ChrW$(195): c = "·"
Case ChrW$(7840): c = "¹"
Case ChrW$(258): c = "¡"
Case ChrW$(7854): c = "¾"
Case ChrW$(7856): c = "»"
Case ChrW$(7858): c = "¼"
Case ChrW$(7860): c = "½"
Case ChrW$(7862): c = "Æ"
Case ChrW$(194): c = "¢"
Case ChrW$(7844): c = "Ê"
Case ChrW$(7846): c = "Ç"
Case ChrW$(7848): c = "È"
Case ChrW$(7850): c = "É"
Case ChrW$(7852): c = "Ë"
Case ChrW$(69): c = "E"
Case ChrW$(201): c = "Ð"
Case ChrW$(200): c = "Ì"
Case ChrW$(7866): c = "Î"
Case ChrW$(7868): c = "Ï"
Case ChrW$(7864): c = "Ñ"
Case ChrW$(202): c = "£"
Case ChrW$(7870): c = "Õ"
Case ChrW$(7872): c = "Ò"
Case ChrW$(7874): c = "Ó"
Case ChrW$(7876): c = "Ô"
Case ChrW$(7878): c = "Ö"
Case ChrW$(79): c = "O"
Case ChrW$(211): c = "ã"
Case ChrW$(210): c = "ß"
Case ChrW$(7886): c = "á"
Case ChrW$(213): c = "â"
Case ChrW$(7884): c = "ä"
Case ChrW$(212): c = "¤"
Case ChrW$(7888): c = "è"
Case ChrW$(7890): c = "å"
Case ChrW$(7892): c = "æ"
Case ChrW$(7894): c = "ç"
Case ChrW$(7896): c = "é"
Case ChrW$(416): c = "¥"
Case ChrW$(7898): c = "í"
Case ChrW$(7900): c = "ê"
Case ChrW$(7902): c = "ë"
Case ChrW$(7904): c = "ì"
Case ChrW$(7906): c = "î"
Case ChrW$(73): c = "I"
Case ChrW$(205): c = "Ý"
Case ChrW$(204): c = "×"
Case ChrW$(7880): c = "Ø"
Case ChrW$(296): c = "Ü"
Case ChrW$(7882): c = "Þ"
Case ChrW$(85): c = "U"
Case ChrW$(218): c = "ó"
Case ChrW$(217): c = "ï"
Case ChrW$(7910): c = "ñ"
Case ChrW$(360): c = "ò"
Case ChrW$(7908): c = "ô"
Case ChrW$(431): c = "¦"
Case ChrW$(7912): c = "ø"
Case ChrW$(7914): c = "õ"
Case ChrW$(7916): c = "ö"
Case ChrW$(7918): c = "÷"
Case ChrW$(7920): c = "ù"
Case ChrW$(89): c = "Y"
Case ChrW$(221): c = "ý"
Case ChrW$(7922): c = "ú"
Case ChrW$(7926): c = "û"
Case ChrW$(7928): c = "ü"
Case ChrW$(7924): c = "þ"
Case ChrW$(272): c = "§"
End Select
UNICODEtoTCVN3 = UNICODEtoTCVN3 + c
Next i
End Functionledangvan > 23-11-19, 11:17 PM
(23-11-19, 01:33 PM)Xuân Thanh Đã viết:(23-11-19, 12:45 PM)ledangvan Đã viết: Mình muốn lấy cái mã của Haquocquan phía trên vì nó có convert theo chiều ngược lại TCVN3 - Unicode và Unicode - TCVN3
Hàm của bạn thấy có mấy chữ nó dịch sang chưa đúng ví dụ : Nội -> Nẫi ; Phú -> Phể ; Lụa -> Lễa ..
Đính chính lại. Đây là hai hàm chuyển đổi TCVN3(ABC) sang UNCODE và ngược lại
Mã:Function TCVN3toUNICODE(vnstr As String)
Dim c As String, i As Long
For i = 1 To Len(vnstr)
c = Mid(vnstr, i, 1)
Select Case c
Case "a": c = ChrW$(97)
Case "¸": c = ChrW$(225)
Case "µ": c = ChrW$(224)
Case "¶": c = ChrW$(7843)
Case "·": c = ChrW$(227)
Case "¹": c = ChrW$(7841)
Case "¨": c = ChrW$(259)
Case "¾": c = ChrW$(7855)
Case "»": c = ChrW$(7857)
Case "¼": c = ChrW$(7859)
Case "½": c = ChrW$(7861)
Case "Æ": c = ChrW$(7863)
Case "©": c = ChrW$(226)
Case "Ê": c = ChrW$(7845)
Case "Ç": c = ChrW$(7847)
Case "È": c = ChrW$(7849)
Case "É": c = ChrW$(7851)
Case "Ë": c = ChrW$(7853)
Case "e": c = ChrW$(101)
Case "Ð": c = ChrW$(233)
Case "Ì": c = ChrW$(232)
Case "Î": c = ChrW$(7867)
Case "Ï": c = ChrW$(7869)
Case "Ñ": c = ChrW$(7865)
Case "ª": c = ChrW$(234)
Case "Õ": c = ChrW$(7871)
Case "Ò": c = ChrW$(7873)
Case "Ó": c = ChrW$(7875)
Case "Ô": c = ChrW$(7877)
Case "Ö": c = ChrW$(7879)
Case "o": c = ChrW$(111)
Case "ã": c = ChrW$(243)
Case "ß": c = ChrW$(242)
Case "á": c = ChrW$(7887)
Case "â": c = ChrW$(245)
Case "ä": c = ChrW$(7885)
Case "«": c = ChrW$(244)
Case "è": c = ChrW$(7889)
Case "å": c = ChrW$(7891)
Case "æ": c = ChrW$(7893)
Case "ç": c = ChrW$(7895)
Case "é": c = ChrW$(7897)
Case "¬": c = ChrW$(417)
Case "í": c = ChrW$(7899)
Case "ê": c = ChrW$(7901)
Case "ë": c = ChrW$(7903)
Case "ì": c = ChrW$(7905)
Case "î": c = ChrW$(7907)
Case "i": c = ChrW$(105)
Case "Ý": c = ChrW$(237)
Case "×": c = ChrW$(236)
Case "Ø": c = ChrW$(7881)
Case "Ü": c = ChrW$(297)
Case "Þ": c = ChrW$(7883)
Case "u": c = ChrW$(117)
Case "ó": c = ChrW$(250)
Case "ï": c = ChrW$(249)
Case "ñ": c = ChrW$(7911)
Case "ò": c = ChrW$(361)
Case "ô": c = ChrW$(7909)
Case "": c = ChrW$(432)
Case "ø": c = ChrW$(7913)
Case "õ": c = ChrW$(7915)
Case "ö": c = ChrW$(7917)
Case "÷": c = ChrW$(7919)
Case "ù": c = ChrW$(7921)
Case "y": c = ChrW$(121)
Case "ý": c = ChrW$(253)
Case "ú": c = ChrW$(7923)
Case "û": c = ChrW$(7927)
Case "ü": c = ChrW$(7929)
Case "þ": c = ChrW$(7925)
Case "®": c = ChrW$(273)
Case "A": c = ChrW$(65)
Case "¡": c = ChrW$(258)
Case "¢": c = ChrW$(194)
Case "E": c = ChrW$(69)
Case "£": c = ChrW$(202)
Case "O": c = ChrW$(79)
Case "¤": c = ChrW$(212)
Case "¥": c = ChrW$(416)
Case "I": c = ChrW$(73)
Case "U": c = ChrW$(85)
Case "¦": c = ChrW$(431)
Case "Y": c = ChrW$(89)
Case "§": c = ChrW$(272)
End Select
TCVN3toUNICODE = TCVN3toUNICODE + c
Next i
End Function
Function UNICODEtoTCVN3(vnstr As String)
Dim c As String, i As Long
For i = 1 To Len(vnstr)
c = Mid(vnstr, i, 1)
Select Case c
Case ChrW$(97): c = "a"
Case ChrW$(225): c = "¸"
Case ChrW$(224): c = "µ"
Case ChrW$(7843): c = "¶"
Case ChrW$(227): c = "·"
Case ChrW$(7841): c = "¹"
Case ChrW$(259): c = "¨"
Case ChrW$(7855): c = "¾"
Case ChrW$(7857): c = "»"
Case ChrW$(7859): c = "¼"
Case ChrW$(7861): c = "½"
Case ChrW$(7863): c = "Æ"
Case ChrW$(226): c = "©"
Case ChrW$(7845): c = "Ê"
Case ChrW$(7847): c = "Ç"
Case ChrW$(7849): c = "È"
Case ChrW$(7851): c = "É"
Case ChrW$(7853): c = "Ë"
Case ChrW$(101): c = "e"
Case ChrW$(233): c = "Ð"
Case ChrW$(232): c = "Ì"
Case ChrW$(7867): c = "Î"
Case ChrW$(7869): c = "Ï"
Case ChrW$(7865): c = "Ñ"
Case ChrW$(234): c = "ª"
Case ChrW$(7871): c = "Õ"
Case ChrW$(7873): c = "Ò"
Case ChrW$(7875): c = "Ó"
Case ChrW$(7877): c = "Ô"
Case ChrW$(7879): c = "Ö"
Case ChrW$(111): c = "o"
Case ChrW$(243): c = "ã"
Case ChrW$(242): c = "ß"
Case ChrW$(7887): c = "á"
Case ChrW$(245): c = "â"
Case ChrW$(7885): c = "ä"
Case ChrW$(244): c = "«"
Case ChrW$(7889): c = "è"
Case ChrW$(7891): c = "å"
Case ChrW$(7893): c = "æ"
Case ChrW$(7895): c = "ç"
Case ChrW$(7897): c = "é"
Case ChrW$(417): c = "¬"
Case ChrW$(7899): c = "í"
Case ChrW$(7901): c = "ê"
Case ChrW$(7903): c = "ë"
Case ChrW$(7905): c = "ì"
Case ChrW$(7907): c = "î"
Case ChrW$(105): c = "i"
Case ChrW$(237): c = "Ý"
Case ChrW$(236): c = "×"
Case ChrW$(7881): c = "Ø"
Case ChrW$(297): c = "Ü"
Case ChrW$(7883): c = "Þ"
Case ChrW$(117): c = "u"
Case ChrW$(250): c = "ó"
Case ChrW$(249): c = "ï"
Case ChrW$(7911): c = "ñ"
Case ChrW$(361): c = "ò"
Case ChrW$(7909): c = "ô"
Case ChrW$(432): c = ""
Case ChrW$(7913): c = "ø"
Case ChrW$(7915): c = "õ"
Case ChrW$(7917): c = "ö"
Case ChrW$(7919): c = "÷"
Case ChrW$(7921): c = "ù"
Case ChrW$(121): c = "y"
Case ChrW$(253): c = "ý"
Case ChrW$(7923): c = "ú"
Case ChrW$(7927): c = "û"
Case ChrW$(7929): c = "ü"
Case ChrW$(7925): c = "þ"
Case ChrW$(273): c = "®"
Case ChrW$(65): c = "A"
Case ChrW$(193): c = "¸"
Case ChrW$(192): c = "µ"
Case ChrW$(7842): c = "¶"
Case ChrW$(195): c = "·"
Case ChrW$(7840): c = "¹"
Case ChrW$(258): c = "¡"
Case ChrW$(7854): c = "¾"
Case ChrW$(7856): c = "»"
Case ChrW$(7858): c = "¼"
Case ChrW$(7860): c = "½"
Case ChrW$(7862): c = "Æ"
Case ChrW$(194): c = "¢"
Case ChrW$(7844): c = "Ê"
Case ChrW$(7846): c = "Ç"
Case ChrW$(7848): c = "È"
Case ChrW$(7850): c = "É"
Case ChrW$(7852): c = "Ë"
Case ChrW$(69): c = "E"
Case ChrW$(201): c = "Ð"
Case ChrW$(200): c = "Ì"
Case ChrW$(7866): c = "Î"
Case ChrW$(7868): c = "Ï"
Case ChrW$(7864): c = "Ñ"
Case ChrW$(202): c = "£"
Case ChrW$(7870): c = "Õ"
Case ChrW$(7872): c = "Ò"
Case ChrW$(7874): c = "Ó"
Case ChrW$(7876): c = "Ô"
Case ChrW$(7878): c = "Ö"
Case ChrW$(79): c = "O"
Case ChrW$(211): c = "ã"
Case ChrW$(210): c = "ß"
Case ChrW$(7886): c = "á"
Case ChrW$(213): c = "â"
Case ChrW$(7884): c = "ä"
Case ChrW$(212): c = "¤"
Case ChrW$(7888): c = "è"
Case ChrW$(7890): c = "å"
Case ChrW$(7892): c = "æ"
Case ChrW$(7894): c = "ç"
Case ChrW$(7896): c = "é"
Case ChrW$(416): c = "¥"
Case ChrW$(7898): c = "í"
Case ChrW$(7900): c = "ê"
Case ChrW$(7902): c = "ë"
Case ChrW$(7904): c = "ì"
Case ChrW$(7906): c = "î"
Case ChrW$(73): c = "I"
Case ChrW$(205): c = "Ý"
Case ChrW$(204): c = "×"
Case ChrW$(7880): c = "Ø"
Case ChrW$(296): c = "Ü"
Case ChrW$(7882): c = "Þ"
Case ChrW$(85): c = "U"
Case ChrW$(218): c = "ó"
Case ChrW$(217): c = "ï"
Case ChrW$(7910): c = "ñ"
Case ChrW$(360): c = "ò"
Case ChrW$(7908): c = "ô"
Case ChrW$(431): c = "¦"
Case ChrW$(7912): c = "ø"
Case ChrW$(7914): c = "õ"
Case ChrW$(7916): c = "ö"
Case ChrW$(7918): c = "÷"
Case ChrW$(7920): c = "ù"
Case ChrW$(89): c = "Y"
Case ChrW$(221): c = "ý"
Case ChrW$(7922): c = "ú"
Case ChrW$(7926): c = "û"
Case ChrW$(7928): c = "ü"
Case ChrW$(7924): c = "þ"
Case ChrW$(272): c = "§"
End Select
UNICODEtoTCVN3 = UNICODEtoTCVN3 + c
Next i
End Function
Bạn thử lại xem