[quote:fd6b3e3432]Your first write is adding a carrage return to the end of the line[/quote:fd6b3e3432]
my means was that PUT can't write correct data to the file.
i change my code. but it don't work!
[code:1:fd6b3e3432]
Dim A As Word : A = 6000
Dim B As Byte : B = 100
Open "write.xls" For Binary As #2
Put #2 , B
Next_write = Loc(#2) + 1
Flush #2
Close #2
Cls : Home : Lcd "Writting End..."
Locate 2 , 1 : Lcd "Loc(#2): " ; Next_write
Waitms 2000
Open "write.xls" For Binary As #2
Seek #2 , Next_write
Put #2 , A
flush #2
Close #2
Cls : Home : Lcd " Writting End2..."[/code:1:fd6b3e3432]
↧