- Dim a() As String, b() As String, c As String, d As String
- a = Split("Ã@á@À@à @Ả@ả@Ã@ã@Ạ@ạ@Ä‚@ă@Ắ@ắ@Ằ@ằ@Ẳ@ẳ@Ẵ@ẵ@Ặ@ặ@Â@â@Ấ@ấ@Ầ@ầ@Ẩ@ẩ@Ẫ@ẫ@Ậ@áº@Ä@Ä‘@É@é@È@è@Ẻ@ẻ@Ẽ@ẽ@Ẹ@ẹ@Ê@ê@Ế@ế@Ề@á»@Ể@ể@Ễ@á»…@Ệ@ệ@Ã@Ã@ÃŒ@ì@Ỉ@ỉ@Ĩ@Ä©@Ị@ị@Ó@ó@Ã’@ò@Ỏ@á»@Õ@õ@Ọ@á»@Ô@ô@á»@ố@á»’@ồ@á»”@ổ@á»–@á»—@Ộ@á»™@Æ @Æ¡@Ớ@á»›@Ờ@á»@Ở@ở@á» @ỡ@Ợ@ợ@Ú@ú@Ù@ù@Ủ@á»§@Ũ@Å©@Ụ@ụ@Ư@ư@Ứ@ứ@Ừ@ừ@Ử@á»@á»®@ữ@á»°@á»±@Ã@ý@Ỳ@ỳ@á»¶@á»·@Ỹ@ỹ@á»´@ỵ", "@")
- c = "Á@á@À@à@Ả@ả@Ã@ã@Ạ@ạ@Ă@ă@Ắ@ắ@Ằ@ằ@Ẳ@ẳ@Ẵ@ẵ@Ặ@ặ@Â@â@Ấ@ấ@Ầ@ầ@Ẩ@ẩ@Ẫ@ẫ@Ậ@ậ@Đ@đ@É@é@È@è@Ẻ@ẻ@Ẽ@ẽ@Ẹ@ẹ@Ê@ê@Ế@ế@Ề@ề@Ể@ể@Ễ@ễ@Ệ@ệ@Í@í@Ì@ì@Ỉ@ỉ@Ĩ@ĩ@Ị@ị@Ó@ó@Ò@ò@Ỏ@ỏ@Õ@õ@Ọ@ọ@Ô@ô@Ố@ố@Ồ@ồ@Ổ@ổ@Ỗ@ỗ@Ộ@ộ@Ơ@ơ@Ớ@ớ@Ờ@ờ@Ở@ở"
- d = "@Ỡ@ỡ@Ợ@ợ@Ú@ú@Ù@ù@Ủ@ủ@Ũ@ũ@Ụ@ụ@Ư@ư@Ứ@ứ@Ừ@ừ@Ử@ử@Ữ@ữ@Ự@ự@Ý@ý@Ỳ@ỳ@Ỷ@ỷ@Ỹ@ỹ@Ỵ@ỵ"
- b = Split(c & d, "@")
Tác giả: ledoninh
Mô tả: Chuyển đổi giữa Unicode (1252) và UTF-8
Bữa trước, mình đọc được 1 câu hỏi về vấn đề này, nhưng không được phép trả lời (diễn đàn tạm chuyển chỗ). Bây giờ gửi lên đây 1 hàm mà mình lập ra cho ASP của mình (VBScript, cái chính là replace chữ nào thành chữ nào thôi).
Mã: Chọn hết
- Dim a(133),b(133), i
- a(0)="Ã"
- a(1)="á"
- a(2)="À"
- a(3)="Ã "
- a(4)="Ả"
- a(5)="ả"
- a(6)="Ã"
- a(7)="ã"
- a(8)="Ạ"
- a(9)="ạ"
- a(10)="Ä‚"
- a(11)="ă"
- a(12)="Ắ"
- a(13)="ắ"
- a(14)="Ằ"
- a(15)="ằ"
- a(16)="Ẳ"
- a(17)="ẳ"
- a(18)="Ẵ"
- a(19)="ẵ"
- a(20)="Ặ"
- a(21)="ặ"
- a(22)="Â"
- a(23)="â"
- a(24)="Ấ"
- a(25)="ấ"
- a(26)="Ầ"
- a(27)="ầ"
- a(28)="Ẩ"
- a(29)="ẩ"
- a(30)="Ẫ"
- a(31)="ẫ"
- a(32)="Ậ"
- a(33)="áº"
- a(34)="Ä"
- a(35)="Ä‘"
- a(36)="É"
- a(37)="é"
- a(38)="È"
- a(39)="è"
- a(40)="Ẻ"
- a(41)="ẻ"
- a(42)="Ẽ"
- a(43)="ẽ"
- a(44)="Ẹ"
- a(45)="ẹ"
- a(46)="Ê"
- a(47)="ê"
- a(48)="Ế"
- a(49)="ế"
- a(50)="Ề"
- a(51)="á»"
- a(52)="Ể"
- a(53)="ể"
- a(54)="Ễ"
- a(55)="á»…"
- a(56)="Ệ"
- a(57)="ệ"
- a(58)="Ã"
- a(59)="Ã"
- a(60)="Ì"
- a(61)="ì"
- a(62)="Ỉ"
- a(63)="ỉ"
- a(64)="Ĩ"
- a(65)="Ä©"
- a(66)="Ị"
- a(67)="ị"
- a(68)="Ó"
- a(69)="ó"
- a(70)="Ã’"
- a(71)="ò"
- a(72)="Ỏ"
- a(73)="á»"
- a(74)="Õ"
- a(75)="õ"
- a(76)="Ọ"
- a(77)="á»"
- a(78)="Ô"
- a(79)="ô"
- a(80)="á»"
- a(81)="ố"
- a(82)="á»’"
- a(83)="ồ"
- a(84)="á»”"
- a(85)="ổ"
- a(86)="á»–"
- a(87)="á»—"
- a(88)="Ộ"
- a(89)="á»™"
- a(90)="Æ "
- a(91)="Æ¡"
- a(92)="Ớ"
- a(93)="á»›"
- a(94)="Ờ"
- a(95)="á»"
- a(96)="Ở"
- a(97)="ở"
- a(98)="á» "
- a(99)="ỡ"
- a(100)="Ợ"
- a(101)="ợ"
- a(102)="Ú"
- a(103)="ú"
- a(104)="Ù"
- a(105)="ù"
- a(106)="Ủ"
- a(107)="á»§"
- a(108)="Ũ"
- a(109)="Å©"
- a(110)="Ụ"
- a(111)="ụ"
- a(112)="Ư"
- a(113)="ư"
- a(114)="Ứ"
- a(115)="ứ"
- a(116)="Ừ"
- a(117)="ừ"
- a(118)="Ử"
- a(119)="á»"
- a(120)="á»®"
- a(121)="ữ"
- a(122)="á»°"
- a(123)="á»±"
- a(124)="Ã"
- a(125)="ý"
- a(126)="Ỳ"
- a(127)="ỳ"
- a(128)="á»¶"
- a(129)="á»·"
- a(130)="Ỹ"
- a(131)="ỹ"
- a(132)="á»´"
- a(133)="ỵ"
- b(0)="Á"
- b(1)="á"
- b(2)="À"
- b(3)="à"
- b(4)="Ả"
- b(5)="ả"
- b(6)="Ã"
- b(7)="ã"
- b(8)="Ạ"
- b(9)="ạ"
- b(10)="Ă"
- b(11)="ă"
- b(12)="Ắ"
- b(13)="ắ"
- b(14)="Ằ"
- b(15)="ằ"
- b(16)="Ẳ"
- b(17)="ẳ"
- b(18)="Ẵ"
- b(19)="ẵ"
- b(20)="Ặ"
- b(21)="ặ"
- b(22)="Â"
- b(23)="â"
- b(24)="Ấ"
- b(25)="ấ"
- b(26)="Ầ"
- b(27)="ầ"
- b(28)="Ẩ"
- b(29)="ẩ"
- b(30)="Ẫ"
- b(31)="ẫ"
- b(32)="Ậ"
- b(33)="ậ"
- b(34)="Đ"
- b(35)="đ"
- b(36)="É"
- b(37)="é"
- b(38)="È"
- b(39)="è"
- b(40)="Ẻ"
- b(41)="ẻ"
- b(42)="Ẽ"
- b(43)="ẽ"
- b(44)="Ẹ"
- b(45)="ẹ"
- b(46)="Ê"
- b(47)="ê"
- b(48)="Ế"
- b(49)="ế"
- b(50)="Ề"
- b(51)="ề"
- b(52)="Ể"
- b(53)="ể"
- b(54)="Ễ"
- b(55)="ễ"
- b(56)="Ệ"
- b(57)="ệ"
- b(58)="Í"
- b(59)="í"
- b(60)="Ì"
- b(61)="ì"
- b(62)="Ỉ"
- b(63)="ỉ"
- b(64)="Ĩ"
- b(65)="ĩ"
- b(66)="Ị"
- b(67)="ị"
- b(68)="Ó"
- b(69)="ó"
- b(70)="Ò"
- b(71)="ò"
- b(72)="Ỏ"
- b(73)="ỏ"
- b(74)="Õ"
- b(75)="õ"
- b(76)="Ọ"
- b(77)="ọ"
- b(78)="Ô"
- b(79)="ô"
- b(80)="Ố"
- b(81)="ố"
- b(82)="Ồ"
- b(83)="ồ"
- b(84)="Ổ"
- b(85)="ổ"
- b(86)="Ỗ"
- b(87)="ỗ"
- b(88)="Ộ"
- b(89)="ộ"
- b(90)="Ơ"
- b(91)="ơ"
- b(92)="Ớ"
- b(93)="ớ"
- b(94)="Ờ"
- b(95)="ờ"
- b(96)="Ở"
- b(97)="ở"
- b(98)="Ỡ"
- b(99)="ỡ"
- b(100)="Ợ"
- b(101)="ợ"
- b(102)="Ú"
- b(103)="ú"
- b(104)="Ù"
- b(105)="ù"
- b(106)="Ủ"
- b(107)="ủ"
- b(108)="Ũ"
- b(109)="ũ"
- b(110)="Ụ"
- b(111)="ụ"
- b(112)="Ư"
- b(113)="ư"
- b(114)="Ứ"
- b(115)="ứ"
- b(116)="Ừ"
- b(117)="ừ"
- b(118)="Ử"
- b(119)="ử"
- b(120)="Ữ"
- b(121)="ữ"
- b(122)="Ự"
- b(123)="ự"
- b(124)="Ý"
- b(125)="ý"
- b(126)="Ỳ"
- b(127)="ỳ"
- b(128)="Ỷ"
- b(129)="ỷ"
- b(130)="Ỹ"
- b(131)="ỹ"
- b(132)="Ỵ"
- b(133)="ỵ"
- Function ctoutf8(vnstr)
- If IsNull(vnstr) then
- ctoutf8=" "
- exit function
- end if
- For i=0 to 133
- vnstr=Replace(vnstr,b(i),a(i))
- Next
- ctoutf8=vnstr
- End function