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