code +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F
A7A0 А Б В Г Д Е Ё Ж З И Й К Л М Н
A7B0 О П Р С Т У Ф Х Ц Ч Ш Щ Ъ Ы Ь Э
A7C0 Ю Я
A7D0 а б в г д е ё ж з и й к л м н
A7E0 о п р с т у ф х ц ч ш щ ъ ы ь э
A7F0 ю я
Private Sub Form_Activate()
Text1.FontSize = 14
'**************************开始显示汉字
aa = ""
'用区与位得到汉字 区16-87 位01-94
For i = 16 To 87
For j = 1 To 94
'DoEvents
a = (i + 160) * &H100 + (j + 160)
aa = aa & Chr(a)
Next j
Next i
Text1.Text = aa
End Sub
Dim aa$, bb$, i%, h$
Private Sub Form_Load()
Command1.Caption = "保 存"
Command2.Caption = "读 取"
End Sub
Private Sub Command1_Click()
aa = "123百度VB吧;,456.CBM666的字符转换"
bb = ""
For i = 1 To Len(aa)
h = Hex(Asc(Mid(aa, i, 1)))
bb = bb & CStr(Val("&H" + Mid(h, 1, 2)) * 256 + Val("&H" + Mid(h, 3, 2))) & " "
Next i
Open "c:\test.txt" For Output As #1
Print #1, bb
Close #1
MsgBox "保存完成"
End Sub
Private Sub Command2_Click()
If Dir("c:\test.txt") = "" Then Exit Sub
Open "c:\test.txt" For Input As #1
Line Input #1, aa
Close #1
s = Split(Trim(aa), " ")
For i = 0 To UBound(s)
Print Chr(s(i));
Next i
End Sub