|
|
(分享)VB编程输出GBK中所有21003个汉字
以前学VB时总结的,前几天整理硬盘时看见的,特在无忧论坛分享一下。
Private Sub Command1_Click() '导出GBK21003个汉字
Dim i, j As Integer
Dim Src As String
Src = ""
For i = 0 To 71 * 256 Step 256 '导出3755+3008=6763个汉字
For j = &HB0A1 + i To &HB0FE + i
If j < &HD7FA Or j > &HD7FE Then Src = Src & Chr(j)
Next j
Next i
For i = 0 To 31 * 256 Step 256 '导出6080个汉字
For j = &H8140 + i To &H81FE + i
If j <> &H817F + i Then Src = Src & Chr(j)
Next j
Next i
For i = 0 To 84 * 256 Step 256 '导出8160个汉字
For j = &HAA40 + i To &HAAA0 + i
If j <> &HAA7F + i Then Src = Src & Chr(j)
Next j
Next i
Text1 = Src
End Sub
|
|