加载中…[转载]VB之Put和Get语句
(2022-03-29 10:38:36)
标签：
转载 |
分类： VB |
原文地址：VB之Put和Get语句作者：id_999
Put 语句
将一个变量的数据写入磁盘文件中。
Put [#]filenumber, [recnumber], varname
Get 语句
将一个已打开的磁盘文件读入一个变量之中。
Get [#]filenumber, [recnumber], varname
例如：
dim B as byte
open "File1.txt" for binary as #1
get #1, 1, B
close #1
即可将File1.txt文件的第一个字节读入变量B
Dim S as string
S = "ABCDE"
open "File2.txt" for binary as #1
put #1, 1, S
close #1
即可将变量S的内容写入File2.txt中。
filenumber, [recnumber],
varname 三个参数：
filenumber是文件号，就是你用Ｏpen打开文件时定义的文件号，比较专业说法就是文件的句柄，也可以在读取文件时定义个句柄变量例如：lngHandle。
recnumber可以理解成recording
number就是记录数。可以理解成块数。（随机文件是以"块"记录的）
varname就是变量的名字，就是要用来存储数据定义的变量。
以上是个人对上面三个参数的个人理解。
实例：
open filename for random as #2 len=len(a)
put #2,lof(2)/len(a)+1,a
close #2
随机文件是以“块”为单位进行读取的，如果a的长度是33个字节，那么这个文件块的长度就是33。
lof(2)是文件的总长度，len(a)是文件块的长度（即33），那么lof(2)/len(a)就是文件块的总数量，再加1就是新文件块的位置了。所以
put #2,lof(2)/len(a)+1,a
的意思就是在文件后面添加新的文件块a
参考资料：
喜欢
0
赠金笔
前一篇：VB6最简单文件读写示例
后一篇：VB可变长参数示例：求和函数