請問大家..我有資料在隨機檔如下:
A B C
10BYTE 7BYTE 4BYTE
請問
若我要正確讀寫該檔的資料該如何寫?
我用了VBHELP跟瓜瓜兄的寫法都不行..
(瓜瓜兄的用法 vb跟我說必須是陳述式結尾
我的用法也是如此,如下:
type mydata
dim aa as byte*10
dim bb as byte *4
dim cc as byte*
end type
private sub ccmdaa_click()
i=1
dim mytype as mydata
open d:\test.dat for random as #1
do while not eof(1)
strkk= get #1,i, lenb(mytype)
list1.additem strkk
i=i+1
loop
end sub
A B C
10BYTE 7BYTE 4BYTE
請問
若我要正確讀寫該檔的資料該如何寫?
我用了VBHELP跟瓜瓜兄的寫法都不行..
(瓜瓜兄的用法 vb跟我說必須是陳述式結尾
我的用法也是如此,如下:
type mydata
dim aa as byte*10
dim bb as byte *4
dim cc as byte*
end type
private sub ccmdaa_click()
i=1
dim mytype as mydata
open d:\test.dat for random as #1
do while not eof(1)
strkk= get #1,i, lenb(mytype)
list1.additem strkk
i=i+1
loop
end sub
文章標籤
全站熱搜
strkk= get #1,i, lenb(mytype)你這行的寫法不對吧 get讀進來的資料應該存到後面帶的變數參數 例:get #1,,mydata 讀進的資料存在mydata
我的寫法給您參考： type mydata dim aa as byte*10 dim bb as byte *4 dim cc as byte*7 end type private sub ccmdaa_click() rem i=1 dim mytype as mydata open d:\test.dat for random as #1 len=21 if lof(1)＞0 then for i=1 to lof(1)/21 strkk=get #1,i,mytype list1.additem strkk next end if end sub
我的寫法給您參考： type mydata dim aa as byte*10 dim bb as byte *4 dim cc as byte*7 end type private sub ccmdaa_click() rem i=1 dim mytype as mydata open d:\test.dat for random as #1 len=len(mytype) if lof(1)＞0 then for i=1 to lof(1)/len(mytype) get #1,i,mytype list1.additem mytype next end if end sub