admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：shellshock live中文)

VB怎么读取和修改TXT文本文件的内容

VB 怎么读取和修改TXT文本文件的内容？

提问者： leefuhui - 二级最佳答案1.读取某个指定字节

Private Sub Command1_Click()

Dim a() As Byte, b As Byte, i As Integer, j, S As String

'S = & "" '请修改为实际文件名

S = "C:Documents and SettingsAdministrator桌面"

ReDim a(FileLen(S))

Open S For Binary As #1 '打开文件

'下面演示指针的移动

Seek #1, 10 '指针移到第10个字节

Get #1, , b

MsgBox "第10个字节:" & b

Seek #1, 23 '指针移到第23个字节

Get #1, , b

MsgBox "第23个字节:" & b

'下面演示始一个一个地读出文件

Seek #1, 1 '指针返回到文件首

For i = 1 To FileLen(S)

Get #1, , b '读取1个字节

a(i - 1) = b '存入数组

Next

Close #1 '关闭文件

S = StrConv(a, vbUnicode)

MsgBox S

End Sub


本文标签： 文件 指针 读取

版权声明：本文标题：VB怎么读取和修改TXT文本文件的内容 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711516026a597884.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。