vba help - Read Text file two line one go

[Mallesh23]

Hi Team,

In a text file can we Read both line one go. in excel we have offset Option.
Read both line and take Action.


If InStr(strline, "Rejected") > 0 And InStr(Nextline, "Error") > 0 Then

end if

Sub test()

Dim fso As Scripting.FileSystemObject
Dim tsTxtFile As Scripting.TextStream
Dim strline As String

Set fso = New Scripting.FileSystemObject
Set tsTxtFile = fspenTextFile("C:\test\test.txt", ForReading, False, TristateMixed)

With tsTxtFile

Do Until .AtEndOfStream

strline = tsTxtFile.ReadLine

If InStr(strline, "Rejected") > 0 And InStr(Nextline, "Error") > 0 Then ' Nextline is offset


End If

Loop


Thanks
mg

 

[Rick Rothstein]

I don't use the Scripting.FileSystemObject myself, but given has a ReadLine method, can't you just add this...

Nextline = tsTxtFile.ReadLine

immediately after this line...

strline = tsTxtFile.ReadLine

inside your loop?

 

[Mallesh23]

Hi Rick,

through loop we can do it.

But Reading two lines in one go option not available.
skip option is there but it skips next line instead of existing line.



Thanks
mg

 

[Rick Rothstein]

Did what I suggested not work for you (it should read two lines for each loop)?

 

[Mallesh23]

Hi Rick,

it worked that way. thanks


Thanks.
mg