VBA - Textfile Skip line Help in Looping

[malleshg24]

Hi Team


I am extracting data from text file line by line,
and I want to skip data seperator line 
Below line whenever I come across. plz assist.Thanks.
---------------------------


Do Until ts.AtEndOfStream
        line = ts.ReadLine
         If InStr(line, "----*") > 0 Then
             Debug.Print line
             ts.SkipLine
          Else
              ActiveCell.Value = ts.ReadLine
             ActiveCell.Offset(1, 0).Select
        End If
    Loop


Regards,
MG

[Artik]

If you use

InStr(line, "----*")

"---- *" is searched for exactly. You should use Like.


If you use:

ts.SkipLine
ts.ReadLine

the next line of text is skipped or read.

I think it would be more correct to use such code:

Sub ReadTextFile_Lineby_Line()
    Dim fso As Scripting.FileSystemObject
    Dim ts As Scripting.TextStream
    Dim myFilePath As String
    Dim line As String
    
    Set fso = New Scripting.FileSystemObject
    
    myFilePath = "E:\New folder\TextData.txt"
     
    Set ts = fso.OpenTextFile(myFilePath, ForReading)
    
    Sheet1.Range("A1").Select
        
    Do Until ts.AtEndOfStream
        line = ts.ReadLine
         If Not line Like "----*" Then
              ActiveCell.Value = line
             ActiveCell.Offset(1, 0).Select
        End If
    Loop


    ts.Close
    Set fso = Nothing
    
End Sub

Artik