Read text files?Pls Help

[ITboy]

How am I to read in a text file in xl if I have spaces in them(see attached gantry_4.txt). I know how to read in them without any spaces(see attached gantry_3.txt). My codes for reading gantry_3.txt is as follows:

Private Sub GetTT()

Dim fso As Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim File As Scripting.File
Dim Sep As String
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Dim file2 As String, file3 As String

Sep = ","

'go to MAPVIEW sheet

Worksheets("Sheet1").Activate

Set fso = New Scripting.FileSystemObject

Set fld = fso.GetFolder("C:\GetTT")
'cycle to each file in the folder
For Each File In fld.Files

'this returns the whole path name of the file
Debug.Print File.Name

'Add the codes to open or do what you need in this text file
Application.ScreenUpdating = False

'On Error GoTo EndMacro:
SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row

Open File.Path For Input Access Read As #1

While Not EOF(1)

Line Input #1, WholeLine
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1

Wend

EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1

Next

End Sub

How am I to set a condition to check if my text file were to be like gantry_4.txt, it should read it in the same format? Thanks for the help.

[RobDog888]

Since you "Line Input #1, WholeLine" you can split the string on
the "," char. Then Trim on each element. This will remove the
spaces. The Split function returns an array of elements without
the ","s and you can loop through each array element to the
UBound entering the value into each Cell.

[ITboy]

i CAN'T use the Split function coz I using Excel 97.. Can u pls show me the code or modify my above code to do it. Thank u very much.

[ITboy]

I need to check the 4th line in a text file named parameters.txt. It will b either 0,1,2,3,4,5,6,7 or 8.I have 6 columns of data in Excel.Column A, B,C,D,E,F. I want to check thru the 4th and 5th columns(D,E). If any of the values is more than the num in the text file, I want the WHOLE ROW of data to be deleted and the next row of data to be shifted up in the Sheet.Hope u understand what I mean.Can anyone pls help.? Its urgent.I dunno how to do it.Thanks