Importing Tab Delimited Files

[Jeff Carlin]

I have to write a routine to import a Tab delimited file into an array. Nothing I do seems to work easily without the following work-around.

            Line Input #iInHandle, sLine
            iCtr2 = 1
            ' "sTemp" hold data as we read it in
            sTemp = ""
            ' parse the line to the array elements - look for "iDelimitChar" which
            ' is the delimiter between fields
            For iCtr = 1 To Len(sLine)
                ' look for delimiter
                If Mid(sLine, iCtr, 1) <> Chr(iDelimitChar) Then
                    ' it wasn't a delimiter char, so add it to "sTemp"
                    sTemp = sTemp & Mid(sLine, iCtr, 1)
                Else
                    ' it was a delimiter, so we are thru with this element - load the
                    ' array element with the value of "sTemp"
                    sArray(iCtr2) = sTemp
                    ' re-initialize "sTemp" and increment the element counter ("iCtr2")
                    sTemp = ""
                    iCtr2 = iCtr2 + 1
                End If
            Next iCtr
            ' Once we fall out of the loop, it's because we have reached the end
            ' of the line. Since there is no trailing delimiter, then everything in
            ' "sTemp" will go into the last array used element
            sArray(iCtr2) = sTemp

Doing it this way works, but is s-l-o-w. Can anyone speed up this code? BTW, the client cannot change to a comma delimited format, which would be real easy for us.
Thanks.

[xmin]

Using the Split() function would perhaps be better for your purpose. Like this:

Code:
-------------------------------------
Dim strFileName As String
Dim intFileNum As Integer
Dim strContent As String
Dim strArray() As String

intFileNum = FreeFile
strFileName = "PathAndFileName"
Open strFileName For Binary As #intFileNum
strContent = String(LOF(intFileNum), 0)
Get #intFileNum, , strContent
Close intFileNum
strArray = Split(strContent, vbTab)
------------------------------------

[Jeff Carlin]

Thanks...slick solution.