VB读文件的问题

来源：百度知道 编辑：UC知道 时间：2024/05/04 05:58:54
VB在用Input读文件的时候，如果想从文件的第100个字节开始读，读30字节应该怎么写？

open 文件 for Binary as #文件号
get #文件号,[位置],变量
close #文件号
读入的长度是变量的长度
byte占一个字节
你就需要读取30次
Private Sub Command1_Click()
Dim array1(1 To 30) As Byte, s As Byte
Dim k As Integer
Dim t As Integer
k = 0
Open "c:\1.dat" For Binary As #1
Do While k < 30
k = k + 1
Get #1, 99 + k, s
array1(k) = s
Loop
Close 1
End Sub

用binary读吧,很方便就读出来了,一定要用input的话,先来一个input 100,#FreeFile,再来一个 input(30,#FreeFile)就可以了.