ReDim problem...

[kandieman101]

Okay... I have dim arr() as string
then I want to open a file, and for each line input, put that value into arr(i) (i being an integer that increases each time). The problem is, () doesn't specify lbound/ubound, and I can't redim before opening the file since I don't know how many lines are in the file.

Any suggestions/workarounds?

[crptcblade]

Dim arr() As String
Dim x As Long
 
Open '...
    While Not EOF(1)
        Redim Preserve arr(x)
        Line Input #1, arr(x)
        x = x + 1
    Wend
Close #1

Something like that.

[kandieman101]

Hmm... I already thought about redim'ing each line input, but wouldn't that take additional resources that aren't really needed? I also thought about redim'ing to a high number then shrink it after file is read...

[MarkT]

How about using the split funciton?

Dim arr() As String
 
Private Sub Command1_Click()
    Open "C:\test.txt" For Input As #1
        arr = Split(Input(LOF(1), 1), vbCrLf)
    Close #1
End Sub

[kandieman101]

Thanks mark, I will try that.