open filename for random as #2 len=len(a)put #2,lof(2)/len(a)+1,aclose #2上面a為33位字符串，filename文件中有很多不同a的內容，請問lof(2)/len(a)+1是什么值，文件中原有內容不變，再在后面添加新的內容怎么用put函數呢
2 回答
呼喚遠方
TA貢獻1856條經驗 獲得超11個贊
隨機文件是以“塊”為單位進行讀取的，如果a的長度是33個字節，那么這個文件塊的長度就是33。
lof(2)是文件的總長度，len(a)是文件塊的長度（即33），那么lof(2)/len(a)就是文件塊的總數量，再加1就是新文件塊的位置了。所以
put #2,lof(2)/len(a)+1,a
的意思就是在文件后面添加新的文件塊a
慕無忌1623718
TA貢獻1744條經驗 獲得超4個贊
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中。
添加回答
舉報
0/150
提交
取消