Extracting variable sized strings from binary file
 

I need to extract strings from a binary file with the following format

INT-STRING-INT_STRING-INT-STRING-..........

where the integer is the length of the string.

I want to make a function that does what this failed attempt yearns...


Public Function svString(ByVal FileNo As Integer, Cursor As Integer) As
String
Dim sze As Integer
sze = 10
Get #FileNo, Cursor, sze ' Get string len
Dim svString As String * sze
Get #FileNo, Cursor + 4, svString ' Get string
End Function


The problem is declaring an array whith a variable (has to be constant)
can anybody provide tips ?

Extracting variable sized strings from binary file
 

Bump ...

Any pointers would be really appreciated ...

luis wrote in message ...
I need to extract strings from a binary file with the following format

INT-STRING-INT_STRING-INT-STRING-..........

where the integer is the length of the string.

I want to make a function that does what this failed attempt yearns...


Public Function svString(ByVal FileNo As Integer, Cursor As Integer) As
String
Dim sze As Integer
sze = 10
Get #FileNo, Cursor, sze ' Get string len
Dim svString As String * sze
Get #FileNo, Cursor + 4, svString ' Get string
End Function


The problem is declaring an array whith a variable (has to be constant)
can anybody provide tips ?