Binary file write

[eoredson]

Here is some annoying code for you:

Code: (Select All)

Type struct
    s As String
End Type

Dim structx As struct
structx.s = "abc": Print structx.s
Print Len(struct)
structx.s = "abcdef": Print structx.s
Print Len(struct)

Open "testfile.xxx" For Binary As #1
' UDT must have fixed size.
Put 1, 1, structx

Code: (Select All)

Dim x2(1 To 1024) As String
For l = 1 To 1024
    x2(l) = Str$(l)
Next
Open "filetest.xxx" For Binary As #1
' Cannot pass array of variable-length strings.
Put 1, 1, x2()

Maybe these can be tweaked someday!?

Erik.