open filename for random as #2 len=len(a)put #2,lof(2)/len(a)+1,aclose #2上面a為33位字符串，filename文件中有很多不同a的內(nèi)容，請(qǐng)問lof(2)/len(a)+1是什么值，文件中原有內(nèi)容不變，再在后面添加新的內(nèi)容怎么用put函數(shù)呢
2 回答
呼喚遠(yuǎn)方
TA貢獻(xiàn)1856條經(jīng)驗(yàn) 獲得超11個(gè)贊
隨機(jī)文件是以“塊”為單位進(jìn)行讀取的，如果a的長(zhǎng)度是33個(gè)字節(jié)，那么這個(gè)文件塊的長(zhǎng)度就是33。
lof(2)是文件的總長(zhǎng)度，len(a)是文件塊的長(zhǎng)度（即33），那么lof(2)/len(a)就是文件塊的總數(shù)量，再加1就是新文件塊的位置了。所以
put #2,lof(2)/len(a)+1,a
的意思就是在文件后面添加新的文件塊a
慕無忌1623718
TA貢獻(xiàn)1744條經(jīng)驗(yàn) 獲得超4個(gè)贊
Put 語句
將一個(gè)變量的數(shù)據(jù)寫入磁盤文件中。
Put [#]filenumber, [recnumber], varname
Get 語句
將一個(gè)已打開的磁盤文件讀入一個(gè)變量之中。
Get [#]filenumber, [recnumber], varname
例如：
dim B as byte
open "File1.txt" for binary as #1
get #1, 1, B
close #1
即可將File1.txt文件的第一個(gè)字節(jié)讀入變量B
Dim S as string
S = "ABCDE"
open "File2.txt" for binary as #1
put #1, 1, S
close #1
即可將變量S的內(nèi)容寫入File2.txt中。
添加回答
舉報(bào)
0/150
提交
取消