ASCII 转换

在这里插入代码片

Option Explicit On

Public Class ASCICHANGE
Public Function DetectHEXtoCHARASCII(ByRef chrDATA As String, ByRef HexDATA As String, ByRef byteDATA As Byte)
If HexDATA = “0” Then chrDATA = “NUL” '空字符
If HexDATA = “1” Then chrDATA = “SOH” '标题起始 (Ctrl/A)
If HexDATA = “2” Then chrDATA = “STX” '文本起始 (Ctrl/B)
If HexDATA = “3” Then chrDATA = “ETX” '文本结束 (Ctrl/C)
If HexDATA = “4” Then chrDATA = “EOT” '传输结束 (Ctrl/D)
If HexDATA = “5” Then chrDATA = “ENQ” '询问 (Ctrl/E)
If HexDATA = “6” Then chrDATA = “ACK” '认可 (Ctrl/F)
If HexDATA = “7” Then chrDATA = “BEL” '铃 (Ctrl/G)
If HexDATA = “8” Then chrDATA = “BS” '退格 (Ctrl/H)
If HexDATA = “9” Then chrDATA = “HT” '水平制表栏 (Ctrl/I)
If HexDATA = “0A” Then chrDATA = “LF” '换行 (Ctrl/J)
If HexDATA = “0B” Then chrDATA = “VT” '垂直制表栏 (Ctrl/K)
If HexDATA = “0C” Then chrDATA = “FF” '换页 (Ctrl/L)
If HexDATA = “0D” Then chrDATA = “CR” '回车 (Ctrl/M)
If HexDATA = “0E” Then chrDATA = “SO” '移出 (Ctrl/N)
If HexDATA = “0F” Then chrDATA = “SI” '移入 (Ctrl/O)
If HexDATA = “10” Then chrDATA = “DLE” '数据链接丢失 (Ctrl/P)
If HexDATA = “11” Then chrDATA = “DC1” '设备控制 1 (Ctrl/Q)
If HexDATA = “12” Then chrDATA = “DC2” '设备控制 2 (Ctrl/Q)
If HexDATA = “13” Then chrDATA = “DC3” '设备控制 3 (Ctrl/Q)
If HexDATA = “14” Then chrDATA = “DC4” '设备控制 4 (Ctrl/Q)
If HexDATA = “15” Then chrDATA = “NAK” '否定接受 (Ctrl/U)
If HexDATA = “16” Then chrDATA = “SYN” '同步闲置符 (Ctrl/V)
If HexDATA = “17” Then chrDATA = “ETB” '传输块结束 (Ctrl/W)
If HexDATA = “18” Then chrDATA = “CAN” '取消 (Ctrl/X)
If HexDATA = “19” Then chrDATA = “EM” '媒体结束 (Ctrl/Y)
If HexDATA = “1A” Then chrDATA = “SUB” '替换 (Ctrl/Z)
If HexDATA = “1B” Then chrDATA = “ESC” '换码符
If HexDATA = “1C” Then chrDATA = “FS” '文件分隔符
If HexDATA = “1D” Then chrDATA = “GS” '组分隔符
If HexDATA = “1E” Then chrDATA = “RS” '记录分隔符
If HexDATA = “1F” Then chrDATA = “US” '单位分隔符
If HexDATA = “20” Then chrDATA = “SP” ‘空格
If HexDATA = “21” Then chrDATA = “!”
If HexDATA = “22” Then chrDATA = “”“”
If HexDATA = “23” Then chrDATA = “#”
If HexDATA = “24” Then chrDATA = “KaTeX parse error: Expected 'EOF', got '&' at position 90: …hen chrDATA = "&̲" If He…” Then HexDATA = “24” : byteDATA = 36
If chrDATA = “%” Then HexDATA = “25” : byteDATA = 37
If chrDATA = “&” Then HexDATA = “26” : byteDATA = 38
If chrDATA = "’" Then HexDATA = “27” : byteDATA = 39
If chrDATA = “(” Then HexDATA = “28” : byteDATA = 40
If chrDATA = “)” Then HexDATA = “29” : byteDATA = 41
If chrDATA = “*” Then HexDATA = “2A” : byteDATA = 42
If chrDATA = “+” Then HexDATA = “2B” : byteDATA = 43
If chrDATA = “,” Then HexDATA = “2C” : byteDATA = 44
If chrDATA = “-” Then HexDATA = “2D” : byteDATA = 45
If chrDATA = “.” Then HexDATA = “2E” : byteDATA = 46
If chrDATA = “/” Then HexDATA = “2F” : byteDATA = 47
If chrDATA = “0” Then HexDATA = “30” : byteDATA = 48
If chrDATA = “1” Then HexDATA = “31” : byteDATA = 49
If chrDATA = “2” Then HexDATA = “32” : byteDATA = 50
If chrDATA = “3” Then HexDATA = “33” : byteDATA = 51
If chrDATA = “4” Then HexDATA = “34” : byteDATA = 52
If chrDATA = “5” Then HexDATA = “35” : byteDATA = 53
If chrDATA = “6” Then HexDATA = “36” : byteDATA = 54
If chrDATA = “7” Then HexDATA = “37” : byteDATA = 55
If chrDATA = “8” Then HexDATA = “38” : byteDATA = 56
If chrDATA = “9” Then HexDATA = “39” : byteDATA = 57
If chrDATA = “:” Then HexDATA = “3A” : byteDATA = 58
If chrDATA = “;” Then HexDATA = “3B” : byteDATA = 59
If chrDATA = “<” Then HexDATA = “3C” : byteDATA = 60
If chrDATA = “=” Then HexDATA = “3D” : byteDATA = 61
If chrDATA = “>” Then HexDATA = “3E” : byteDATA = 62
If chrDATA = “?” Then HexDATA = “3F” : byteDATA = 63
If chrDATA = “@” Then HexDATA = “40” : byteDATA = 64
If chrDATA = “A” Then HexDATA = “41” : byteDATA = 65
If chrDATA = “B” Then HexDATA = “42” : byteDATA = 66
If chrDATA = “C” Then HexDATA = “43” : byteDATA = 67
If chrDATA = “D” Then HexDATA = “44” : byteDATA = 68
If chrDATA = “E” Then HexDATA = “45” : byteDATA = 69
If chrDATA = “F” Then HexDATA = “46” : byteDATA = 70
If chrDATA = “G” Then HexDATA = “47” : byteDATA = 71
If chrDATA = “H” Then HexDATA = “48” : byteDATA = 72
If chrDATA = “I” Then HexDATA = “49” : byteDATA = 73
If chrDATA = “J” Then HexDATA = “4A” : byteDATA = 74
If chrDATA = “K” Then HexDATA = “4B” : byteDATA = 75
If chrDATA = “L” Then HexDATA = “4C” : byteDATA = 76
If chrDATA = “M” Then HexDATA = “4D” : byteDATA = 77
If chrDATA = “N” Then HexDATA = “4E” : byteDATA = 78
If chrDATA = “O” Then HexDATA = “4F” : byteDATA = 79
If chrDATA = “P” Then HexDATA = “50” : byteDATA = 80
If chrDATA = “Q” Then HexDATA = “51” : byteDATA = 81
If chrDATA = “R” Then HexDATA = “52” : byteDATA = 82
If chrDATA = “S” Then HexDATA = “53” : byteDATA = 83
If chrDATA = “T” Then HexDATA = “54” : byteDATA = 84
If chrDATA = “U” Then HexDATA = “55” : byteDATA = 85
If chrDATA = “V” Then HexDATA = “56” : byteDATA = 86
If chrDATA = “W” Then HexDATA = “57” : byteDATA = 87
If chrDATA = “X” Then HexDATA = “58” : byteDATA = 88
If chrDATA = “Y” Then HexDATA = “59” : byteDATA = 89
If chrDATA = “Z” Then HexDATA = “5A” : byteDATA = 90
If chrDATA = “[” Then HexDATA = “5B” : byteDATA = 91
If chrDATA = “” Then HexDATA = “5C” : byteDATA = 92
If chrDATA = “]” Then HexDATA = “5D” : byteDATA = 93
If chrDATA = “^” Then HexDATA = “5E” : byteDATA = 94
If chrDATA = “_” Then HexDATA = “5F” : byteDATA = 95
If chrDATA = “" Then HexDATA = "60" : byteDATA = 96 If chrDATA = "a" Then HexDATA = "61" : byteDATA = 97 If chrDATA = "b" Then HexDATA = "62" : byteDATA = 98 If chrDATA = "c" Then HexDATA = "63" : byteDATA = 99 If chrDATA = "d" Then HexDATA = "64" : byteDATA = 100 If chrDATA = "e" Then HexDATA = "65" : byteDATA = 101 If chrDATA = "f" Then HexDATA = "66" : byteDATA = 102 If chrDATA = "g" Then HexDATA = "67" : byteDATA = 103 If chrDATA = "h" Then HexDATA = "68" : byteDATA = 104 If chrDATA = "i" Then HexDATA = "69" : byteDATA = 105 If chrDATA = "j" Then HexDATA = "6A" : byteDATA = 106 If chrDATA = "k" Then HexDATA = "6B" : byteDATA = 107 If chrDATA = "l" Then HexDATA = "6C" : byteDATA = 108 If chrDATA = "m" Then HexDATA = "6D" : byteDATA = 109 If chrDATA = "n" Then HexDATA = "6E" : byteDATA = 110 If chrDATA = "o" Then HexDATA = "6F" : byteDATA = 111 If chrDATA = "p" Then HexDATA = "70" : byteDATA = 112 If chrDATA = "q" Then HexDATA = "71" : byteDATA = 113 If chrDATA = "r" Then HexDATA = "72" : byteDATA = 114 If chrDATA = "s" Then HexDATA = "73" : byteDATA = 115 If chrDATA = "t" Then HexDATA = "74" : byteDATA = 116 If chrDATA = "u" Then HexDATA = "75" : byteDATA = 117 If chrDATA = "v" Then HexDATA = "76" : byteDATA = 118 If chrDATA = "w" Then HexDATA = "77" : byteDATA = 119 If chrDATA = "x" Then HexDATA = "78" : byteDATA = 120 If chrDATA = "y" Then HexDATA = "79" : byteDATA = 121 If chrDATA = "z" Then HexDATA = "7A" : byteDATA = 122 If chrDATA = "{" Then HexDATA = "7B" : byteDATA = 123 If chrDATA = "|" Then HexDATA = "7C" : byteDATA = 124 If chrDATA = "}" Then HexDATA = "7D" : byteDATA = 125 If chrDATA = "~" Then HexDATA = "7E" : byteDATA = 126 If chrDATA = "DEL" Then HexDATA = "7F" : byteDATA = 127 If chrDATA = "IND" Then HexDATA = "84" : byteDATA = 132 If chrDATA = "NEL" Then HexDATA = "85" : byteDATA = 133 If chrDATA = "SSA" Then HexDATA = "86" : byteDATA = 134 If chrDATA = "ESA" Then HexDATA = "87" : byteDATA = 135 If chrDATA = "HTS" Then HexDATA = "88" : byteDATA = 136 If chrDATA = "HTJ" Then HexDATA = "89" : byteDATA = 137 If chrDATA = "VTS" Then HexDATA = "8A" : byteDATA = 138 If chrDATA = "PLD" Then HexDATA = "8B" : byteDATA = 139 If chrDATA = "PLU" Then HexDATA = "8C" : byteDATA = 140 If chrDATA = "RI" Then HexDATA = "8D" : byteDATA = 141 If chrDATA = "SS2" Then HexDATA = "8E" : byteDATA = 142 If chrDATA = "SS3" Then HexDATA = "8F" : byteDATA = 143 If chrDATA = "DCS" Then HexDATA = "90" : byteDATA = 144 If chrDATA = "PU1" Then HexDATA = "91" : byteDATA = 145 If chrDATA = "PU2" Then HexDATA = "92" : byteDATA = 146 If chrDATA = "STS" Then HexDATA = "93" : byteDATA = 147 If chrDATA = "CCH" Then HexDATA = "94" : byteDATA = 148 If chrDATA = "MW" Then HexDATA = "95" : byteDATA = 149 If chrDATA = "SPA" Then HexDATA = "96" : byteDATA = 150 If chrDATA = "EPA" Then HexDATA = "97" : byteDATA = 151 If chrDATA = "CSI" Then HexDATA = "9B" : byteDATA = "155" If chrDATA = "ST" Then HexDATA = "9C" : byteDATA = "156" If chrDATA = "OSC" Then HexDATA = "9D" : byteDATA = 157 If chrDATA = "PM" Then HexDATA = "9E" : byteDATA = 158 If chrDATA = "APC" Then HexDATA = "9F" : byteDATA = 159 If chrDATA = "¡" Then HexDATA = "A1" : byteDATA = 161 If chrDATA = "¢" Then HexDATA = "A2" : byteDATA = 162 If chrDATA = "£" Then HexDATA = "A3" : byteDATA = 163 If chrDATA = "¥" Then HexDATA = "A5" : byteDATA = 165 If chrDATA = "§" Then HexDATA = "A7" : byteDATA = 167 If chrDATA = "¤" Then HexDATA = "A8" : byteDATA = 168 If chrDATA = "©" Then HexDATA = "A9" : byteDATA = 169 If chrDATA = "ª" Then HexDATA = "AA" : byteDATA = 170 If chrDATA = "«" Then HexDATA = "AB" : byteDATA = 171 If chrDATA = "°" Then HexDATA = "B0" : byteDATA = 176 If chrDATA = "±" Then HexDATA = "B1" : byteDATA = 177 If chrDATA = "²" Then HexDATA = "B2" : byteDATA = 178 If chrDATA = "³" Then HexDATA = "B3" : byteDATA = 179 If chrDATA = "µ" Then HexDATA = "B5" : byteDATA = 181 If chrDATA = "¶" Then HexDATA = "B6" : byteDATA = 182 If chrDATA = "·" Then HexDATA = "B7" : byteDATA = 183 If chrDATA = "¹" Then HexDATA = "B9" : byteDATA = 185 If chrDATA = "º" Then HexDATA = "BA" : byteDATA = 186 If chrDATA = "»" Then HexDATA = "BB" : byteDATA = 187 If chrDATA = "¼" Then HexDATA = "BC" : byteDATA = 188 If chrDATA = "½" Then HexDATA = "BD" : byteDATA = 189 If chrDATA = "¿" Then HexDATA = "BF" : byteDATA = 191 If chrDATA = "À" Then HexDATA = "C0" : byteDATA = 192 If chrDATA = "Á" Then HexDATA = "C1" : byteDATA = 193 If chrDATA = "Â" Then HexDATA = "C2" : byteDATA = 194 If chrDATA = "Ã" Then HexDATA = "C3" : byteDATA = 195 If chrDATA = "Ä" Then HexDATA = "C4" : byteDATA = 196 If chrDATA = "Å" Then HexDATA = "C5" : byteDATA = 197 If chrDATA = "Æ" Then HexDATA = "C6" : byteDATA = 198 If chrDATA = "Ç" Then HexDATA = "C7" : byteDATA = 199 If chrDATA = "È" Then HexDATA = "C8" : byteDATA = 200 If chrDATA = "É" Then HexDATA = "C9" : byteDATA = 201 If chrDATA = "Ê" Then HexDATA = "CA" : byteDATA = 202 If chrDATA = "Ë" Then HexDATA = "CB" : byteDATA = 203 If chrDATA = "Ì" Then HexDATA = "CC" : byteDATA = 204 If chrDATA = "Í" Then HexDATA = "CD" : byteDATA = 205 If chrDATA = "Î" Then HexDATA = "CE" : byteDATA = 206 If chrDATA = "Ï" Then HexDATA = "CF" : byteDATA = 207 If chrDATA = "Ñ" Then HexDATA = "D1" : byteDATA = 209 If chrDATA = "Ò" Then HexDATA = "D2" : byteDATA = 210 If chrDATA = "Ó" Then HexDATA = "D3" : byteDATA = 211 If chrDATA = "Ô" Then HexDATA = "D4" : byteDATA = 212 If chrDATA = "Õ" Then HexDATA = "D5" : byteDATA = 213 If chrDATA = "Ö" Then HexDATA = "D6" : byteDATA = 214 If chrDATA = "OE" Then HexDATA = "D7" : byteDATA = 215 If chrDATA = "Ø" Then HexDATA = "D8" : byteDATA = 216 If chrDATA = "Ù" Then HexDATA = "D9" : byteDATA = 217 If chrDATA = "Ú" Then HexDATA = "DA" : byteDATA = 218 If chrDATA = "Û" Then HexDATA = "DB" : byteDATA = 219 If chrDATA = "Ü" Then HexDATA = "DC" : byteDATA = 220 If chrDATA = "Y" Then HexDATA = "DD" : byteDATA = 221 If chrDATA = "ß" Then HexDATA = "DF" : byteDATA = 223 If chrDATA = "à" Then HexDATA = "E0" : byteDATA = 224 If chrDATA = "á" Then HexDATA = "E1" : byteDATA = 225 If chrDATA = "â" Then HexDATA = "E2" : byteDATA = 226 If chrDATA = "ã" Then HexDATA = "E3" : byteDATA = 227 If chrDATA = "ä" Then HexDATA = "E4" : byteDATA = 228 If chrDATA = "å" Then HexDATA = "E5" : byteDATA = 229 If chrDATA = "æ" Then HexDATA = "E6" : byteDATA = 230 If chrDATA = "ç" Then HexDATA = "E7" : byteDATA = 231 If chrDATA = "è" Then HexDATA = "E8" : byteDATA = 232 If chrDATA = "é" Then HexDATA = "E9" : byteDATA = 233 If chrDATA = "ê" Then HexDATA = "EA" : byteDATA = 234 If chrDATA = "ë" Then HexDATA = "EB" : byteDATA = 235 If chrDATA = "ì" Then HexDATA = "EC" : byteDATA = 236 If chrDATA = "í" Then HexDATA = "ED" : byteDATA = 237 If chrDATA = "î" Then HexDATA = "EE" : byteDATA = 238 If chrDATA = "ï" Then HexDATA = "EF" : byteDATA = 239 If chrDATA = "ñ" Then HexDATA = "F1" : byteDATA = 241 If chrDATA = "ò" Then HexDATA = "F2" : byteDATA = 242 If chrDATA = "ó" Then HexDATA = "F3" : byteDATA = 243 If chrDATA = "ô" Then HexDATA = "F4" : byteDATA = 244 If chrDATA = "õ" Then HexDATA = "F5" : byteDATA = 245 If chrDATA = "ö" Then HexDATA = "F6" : byteDATA = 246 If chrDATA = "oe" Then HexDATA = "F7" : byteDATA = 247 If chrDATA = "ø" Then HexDATA = "F8" : byteDATA = 248 If chrDATA = "ù" Then HexDATA = "F9" : byteDATA = 249 If chrDATA = "ú" Then HexDATA = "FA" : byteDATA = 250 If chrDATA = "û" Then HexDATA = "FB" : byteDATA = 251 If chrDATA = "ü" Then HexDATA = "FC" : byteDATA = 252 If chrDATA = "ÿ" Then HexDATA = "FD" : byteDATA = 253 Return byteDATA.ToString & "|" & chrDATA.ToString & "|" & HexDATA.ToString End Function Public Function DetectBYTEtoASCII(ByRef x As Byte, ByRef ChrDATA As String, ByRef HexDATA As String) If x = 0 Then ChrDATA = "NUL" '空字符 If x = 1 Then ChrDATA = "SOH" '标题起始 (Ctrl/A) If x = 2 Then ChrDATA = "STX" '文本起始 (Ctrl/B) If x = 3 Then ChrDATA = "ETX" '文本结束 (Ctrl/C) If x = 4 Then ChrDATA = "EOT" '传输结束 (Ctrl/D) If x = 5 Then ChrDATA = "ENQ" '询问 (Ctrl/E) If x = 6 Then ChrDATA = "ACK" '认可 (Ctrl/F) If x = 7 Then ChrDATA = "BEL" '铃 (Ctrl/G) If x = 8 Then ChrDATA = "BS" '退格 (Ctrl/H) If x = 9 Then ChrDATA = "HT" '水平制表栏 (Ctrl/I) If x = 10 Then ChrDATA = "LF" '换行 (Ctrl/J) If x = 11 Then ChrDATA = "VT" '垂直制表栏 (Ctrl/K) If x = 12 Then ChrDATA = "FF" '换页 (Ctrl/L) If x = 13 Then ChrDATA = "CR" '回车 (Ctrl/M) If x = 14 Then ChrDATA = "SO" '移出 (Ctrl/N) If x = 15 Then ChrDATA = "SI" '移入 (Ctrl/O) If x = 16 Then ChrDATA = "DLE" '数据链接丢失 (Ctrl/P) If x = 17 Then ChrDATA = "DC1" '设备控制 1 (Ctrl/Q) If x = 18 Then ChrDATA = "DC2" '设备控制 2 (Ctrl/Q) If x = 19 Then ChrDATA = "DC3" '设备控制 3 (Ctrl/Q) If x = 20 Then ChrDATA = "DC4" '设备控制 4 (Ctrl/Q) If x = 21 Then ChrDATA = "NAK" '否定接受 (Ctrl/U) If x = 22 Then ChrDATA = "SYN" '同步闲置符 (Ctrl/V) If x = 23 Then ChrDATA = "ETB" '传输块结束 (Ctrl/W) If x = 24 Then ChrDATA = "CAN" '取消 (Ctrl/X) If x = 25 Then ChrDATA = "EM" '媒体结束 (Ctrl/Y) If x = 26 Then ChrDATA = "SUB" '替换 (Ctrl/Z) If x = 27 Then ChrDATA = "ESC" '换码符 If x = 28 Then ChrDATA = "FS" '文件分隔符 If x = 29 Then ChrDATA = "GS" '组分隔符 If x = 30 Then ChrDATA = "RS" '记录分隔符 If x = 31 Then ChrDATA = "US" '单位分隔符 If x = 32 Then ChrDATA = "SP" '空格 If x = 33 Then ChrDATA = "!" If x = 34 Then ChrDATA = """" If x = 35 Then ChrDATA = "#" If x = 36 Then ChrDATA = "$" If x = 37 Then ChrDATA = "%" If x = 38 Then ChrDATA = "&" If x = 39 Then ChrDATA = "'" '省略号 (单引号) If x = 40 Then ChrDATA = "(" If x = 41 Then ChrDATA = ")" If x = 42 Then ChrDATA = "*" If x = 43 Then ChrDATA = "+" If x = 44 Then ChrDATA = "," If x = 45 Then ChrDATA = "-" If x = 46 Then ChrDATA = "." If x = 47 Then ChrDATA = "/" If x = 48 Then ChrDATA = "0" If x = 49 Then ChrDATA = "1" If x = 50 Then ChrDATA = "2" If x = 51 Then ChrDATA = "3" If x = 52 Then ChrDATA = "4" If x = 53 Then ChrDATA = "5" If x = 54 Then ChrDATA = "6" If x = 55 Then ChrDATA = "7" If x = 56 Then ChrDATA = "8" If x = 57 Then ChrDATA = "9" If x = 58 Then ChrDATA = ":" If x = 59 Then ChrDATA = ";" If x = 60 Then ChrDATA = "<" If x = 61 Then ChrDATA = "=" If x = 62 Then ChrDATA = ">" If x = 63 Then ChrDATA = "?" If x = 64 Then ChrDATA = "@" If x = 65 Then ChrDATA = "A" If x = 66 Then ChrDATA = "B" If x = 67 Then ChrDATA = "C" If x = 68 Then ChrDATA = "D" If x = 69 Then ChrDATA = "E" If x = 70 Then ChrDATA = "F" If x = 71 Then ChrDATA = "G" If x = 72 Then ChrDATA = "H" If x = 73 Then ChrDATA = "I" If x = 74 Then ChrDATA = "J" If x = 75 Then ChrDATA = "K" If x = 76 Then ChrDATA = "L" If x = 77 Then ChrDATA = "M" If x = 78 Then ChrDATA = "N" If x = 79 Then ChrDATA = "O" If x = 80 Then ChrDATA = "P" If x = 81 Then ChrDATA = "Q" If x = 82 Then ChrDATA = "R" If x = 83 Then ChrDATA = "S" If x = 84 Then ChrDATA = "T" If x = 85 Then ChrDATA = "U" If x = 86 Then ChrDATA = "V" If x = 87 Then ChrDATA = "W" If x = 88 Then ChrDATA = "X" If x = 89 Then ChrDATA = "Y" If x = 90 Then ChrDATA = "Z" If x = 91 Then ChrDATA = "[" If x = 92 Then ChrDATA = "\" If x = 93 Then ChrDATA = "]" If x = 94 Then ChrDATA = "^" If x = 95 Then ChrDATA = "_" If x = 96 Then ChrDATA = "” '重音符
If x = 97 Then ChrDATA = “a”
If x = 98 Then ChrDATA = “b”
If x = 99 Then ChrDATA = “c”
If x = 100 Then ChrDATA = “d”
If x = 101 Then ChrDATA = “e”
If x = 102 Then ChrDATA = “f”
If x = 103 Then ChrDATA = “g”
If x = 104 Then ChrDATA = “h”
If x = 105 Then ChrDATA = “i”
If x = 106 Then ChrDATA = “j”
If x = 107 Then ChrDATA = “k”
If x = 108 Then ChrDATA = “l”
If x = 109 Then ChrDATA = “m”
If x = 110 Then ChrDATA = “n”
If x = 111 Then ChrDATA = “o”
If x = 112 Then ChrDATA = “p”
If x = 113 Then ChrDATA = “q”
If x = 114 Then ChrDATA = “r”
If x = 115 Then ChrDATA = “s”
If x = 116 Then ChrDATA = “t”
If x = 117 Then ChrDATA = “u”
If x = 118 Then ChrDATA = “v”
If x = 119 Then ChrDATA = “w”
If x = 120 Then ChrDATA = “x”
If x = 121 Then ChrDATA = “y”
If x = 122 Then ChrDATA = “z”
If x = 123 Then ChrDATA = “{”
If x = 124 Then ChrDATA = “|”
If x = 125 Then ChrDATA = “}”
If x = 126 Then ChrDATA = “~” '代字号 (ALTMODE)
If x = 127 Then ChrDATA = “DEL” '擦掉 (DELETE)’
If x = 132 Then ChrDATA = “IND” '索引’
If x = 133 Then ChrDATA = “NEL” '下一行’
If x = 134 Then ChrDATA = “SSA” '被选区域起始’
If x = 135 Then ChrDATA = “ESA” '被选区域结束’
If x = 136 Then ChrDATA = “HTS” '水平制表符集
If x = 137 Then ChrDATA = “HTJ” '对齐的水平制表符集
If x = 138 Then ChrDATA = “VTS” '垂直制表符集
If x = 139 Then ChrDATA = “PLD” '部分行向下
If x = 140 Then ChrDATA = “PLU” '部分行向上
If x = 141 Then ChrDATA = “RI” '反向索引
If x = 142 Then ChrDATA = “SS2” '单移 2
If x = 143 Then ChrDATA = “SS3” '单移 3
If x = 144 Then ChrDATA = “DCS” '设备控制字符串
If x = 145 Then ChrDATA = “PU1” '专用 1
If x = 146 Then ChrDATA = “PU2” '专用 2
If x = 147 Then ChrDATA = “STS” '设置传输状态
If x = 148 Then ChrDATA = “CCH” '取消字符
If x = 149 Then ChrDATA = “MW” '消息等待
If x = 150 Then ChrDATA = “SPA” '保护区起始
If x = 151 Then ChrDATA = “EPA” '保护区结束
If x = 155 Then ChrDATA = “CSI” '控制序列引导符
If x = 156 Then ChrDATA = “ST” '字符串终止符
If x = 157 Then ChrDATA = “OSC” '操作系统命令
If x = 158 Then ChrDATA = “PM” '秘密消息
If x = 159 Then ChrDATA = “APC” '应用程序
If x = 161 Then ChrDATA = “¡” '反向感叹号
If x = 162 Then ChrDATA = “¢” '分币符
If x = 163 Then ChrDATA = “£” '英磅符
If x = 165 Then ChrDATA = “¥”
If x = 167 Then ChrDATA = “§” '章节符
If x = 168 Then ChrDATA = “¤” '通用货币符号 2
If x = 169 Then ChrDATA = “©” '版权符号
If x = 170 Then ChrDATA = “ª” '阴性顺序指示符
If x = 171 Then ChrDATA = “«” '左角引号
If x = 176 Then ChrDATA = “°” '温度符
If x = 177 Then ChrDATA = “±”
If x = 178 Then ChrDATA = “²” '上标 2
If x = 179 Then ChrDATA = “³” '上标 3
If x = 181 Then ChrDATA = “µ”
If x = 182 Then ChrDATA = “¶” '段落符，pilcrow
If x = 183 Then ChrDATA = “·” '中点
If x = 185 Then ChrDATA = “¹” '上标 1
If x = 186 Then ChrDATA = “º” '阳性顺序指示符
If x = 187 Then ChrDATA = “»”
If x = 188 Then ChrDATA = “¼”
If x = 189 Then ChrDATA = “½”
If x = 191 Then ChrDATA = “¿”
If x = 192 Then ChrDATA = “À” '带重音符的大写字母 A
If x = 193 Then ChrDATA = “Á” '带尖锐重音的大写字母 A
If x = 194 Then ChrDATA = “” '带音调符号的大写字母 A
If x = 195 Then ChrDATA = “Ô '带代字号的大写字母 A
If x = 196 Then ChrDATA = “Ä” '带元音变音 (分音符号) 的大写字母 A
If x = 197 Then ChrDATA = “Å” '带铃声的大写字母 A
If x = 198 Then ChrDATA = “Æ” '大写字母 AE 双重元音
If x = 199 Then ChrDATA = “Ç” '带变音符号的大写字母 C
If x = 200 Then ChrDATA = “È”
If x = 201 Then ChrDATA = “É”
If x = 202 Then ChrDATA = “Ê”
If x = 203 Then ChrDATA = “Ë”
If x = 204 Then ChrDATA = “Ì”
If x = 205 Then ChrDATA = “Í”
If x = 206 Then ChrDATA = “Δ
If x = 207 Then ChrDATA = “Ï”
If x = 209 Then ChrDATA = “Ñ”
If x = 210 Then ChrDATA = “Ò”
If x = 211 Then ChrDATA = “Ó”
If x = 212 Then ChrDATA = “Ô”
If x = 213 Then ChrDATA = “Õ”
If x = 214 Then ChrDATA = “Ö”
If x = 215 Then ChrDATA = “OE”
If x = 216 Then ChrDATA = “Ø”
If x = 217 Then ChrDATA = “Ù”
If x = 218 Then ChrDATA = “Ú”
If x = 219 Then ChrDATA = “Û”
If x = 220 Then ChrDATA = “Ü”
If x = 221 Then ChrDATA = “Y”
If x = 223 Then ChrDATA = “ß”
If x = 224 Then ChrDATA = “à”
If x = 225 Then ChrDATA = “á”
If x = 226 Then ChrDATA = “â”
If x = 227 Then ChrDATA = “ã”
If x = 228 Then ChrDATA = “ä”
If x = 229 Then ChrDATA = “å”
If x = 230 Then ChrDATA = “æ”
If x = 231 Then ChrDATA = “ç”
If x = 232 Then ChrDATA = “è”
If x = 233 Then ChrDATA = “é”
If x = 234 Then ChrDATA = “ê”
If x = 235 Then ChrDATA = “ë”
If x = 236 Then ChrDATA = “ì”
If x = 237 Then ChrDATA = “í”
If x = 238 Then ChrDATA = “î”
If x = 239 Then ChrDATA = “ï”
If x = 241 Then ChrDATA = “ñ”
If x = 242 Then ChrDATA = “ò”
If x = 243 Then ChrDATA = “ó”
If x = 244 Then ChrDATA = “ô”
If x = 245 Then ChrDATA = “õ”
If x = 246 Then ChrDATA = “ö”
If x = 247 Then ChrDATA = “oe”
If x = 248 Then ChrDATA = “ø”
If x = 249 Then ChrDATA = “ù”
If x = 250 Then ChrDATA = “ú”
If x = 251 Then ChrDATA = “û”
If x = 252 Then ChrDATA = “ü”
If x = 253 Then ChrDATA = “ÿ”
HexDATA = Hex(x).ToString
Return x.ToString & “|” & ChrDATA.ToString & “|” & HexDATA.ToString
End Function
End Class