VB的OPEN语句的问题。谢谢帮助

来源:百度知道 编辑:UC知道 时间:2024/05/04 16:28:20
Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
ReDim MyArray(LOF(1) - 0)
mysize = LOF(1)
ReDim vbArray(mysize)
Text2.Text = mysize
Get #1, 1, vbArray

Close #1
End Sub
****************************
If Inpath <> "" Then
Open Inpath For Binary As #1
Text3.Text = LOF(1)
For i = 0 To LOF(1)
Text2.Text = i
Get #1, i, x
x = Module1.Fanshijinzhi(Module1.Fanerjinzhi(Module1.Sjztoejz(x)))
Put #1, i, x
Next i
Close #1
End If
Else
----------------------
这两个OPEN语句是我两个程序的部分代码。我不明白的的是,1,上面的没有FOR循环就直接把目标文件的数据读到“vbArray”这个数组里了。
2,下面的是用FOR语句,一个字节一个字节的读进X变量这个到是明白了。
Get #1, 1, vbArray
Get #1, i, x
除了
数组和变量以外有其他的不同意含义吗?

我的积分不多了,我只能说谢谢你了

Get 文件号,读取位置,存储变量
Get #1, 1, vbArray
意思为从文件#1中起始位置1读取vbArray大小的数据库存储到vbArray中
vbArray定义了为文件长度大小 所以文件全部被存入vbArray中
可以按字节读
按整数读
按数组读
按字定义结构读取 很灵活的