' file_lines_map (0) = total lines, file_lines_map(>0) address of each line
Public Sub gen_map(ByVal file_number As Long, ByRef file_lines_map() As Long)
Dim curpos As Long, lines As Long, wt As String, max_lines As Long
curpos = Seek(file_number)
lines = 0
max_lines = 100
ReDim file_lines_map(0 To max_lines)
Seek #file_number, 1
Do While (Not (EOF(1)))
file_lines_map(lines + 1) = Seek(file_number)
file_lines_map(0) = lines
Line Input #file_number, wt
lines = lines + 1
If lines >= max_lines Then
max_lines = max_lines * 2
ReDim Preserve file_lines_map(0 To max_lines)
End If
Loop
Seek #file_number, curpos
End Sub |
