UC知道VB读写txt
来源：百度知道 编辑：UC知道 时间：2024/06/30 08:52:33
1.要以字节的方式打开txt文本框。
2.txt文本内容是以16进制的形式保存内容如下
091130232c2c2c
456194452c2c2c
...
..
.
3.要把txt文本框中16进制转换成asc码显示到text文本里，例如09这个字节要分别求他的asc码。
4.假如说我要读取的txt文件不知道多大，但必须以字节方式读取。怎样将所txt所有的内容显示到text文本框内
5.本人是菜鸟希望大家回答添加注释。
2.txt文本内容是以16进制的形式保存内容如下
091130232c2c2c
456194452c2c2c
...
..
.
3.要把txt文本框中16进制转换成asc码显示到text文本里，例如09这个字节要分别求他的asc码。
4.假如说我要读取的txt文件不知道多大，但必须以字节方式读取。怎样将所txt所有的内容显示到text文本框内
5.本人是菜鸟希望大家回答添加注释。
已经发送到您的邮箱里了
Private Sub Command1_Click()
Dim s As String, a(1000), b(1000)
s = Text1.Text 'text1为文本框
For i = 1 To Len(s)
a(i) = Mid(s, i, 1) '一个个字节存入数组
Select Case a(i)
Case Is = "0"
b(i) = "48"
Case Is = "1"
b(i) = "49"
Case Is = "2"
b(i) = "50"
Case Is = "3"
b(i) = "51"
Case Is = "4"
b(i) = "52"
Case Is = "5"
b(i) = "53"
Case Is = "6"
b(i) = "54"
Case Is = "7"
b(i) = "55"
Case Is = "8"
b(i) = "56"
Case Is = "9"
b(i) = "57"
Case Is