SKIP line if contain 3 value

[sal21]

i read a txt file line by line with the typical Line Input #1, LINEA

based:

Dim LINEA as String

LINEA="kkjkhk retta casa palazzo"

now i need to skip this line, during the loop, if contain retta or casa or palazzo

possible?

[HansV]

Code: Select all

        If LINEA Like "*retta*" Or LINEA Like "*casa*" Or LINEA Like "*palazzo*" Then
            ' Skip this line
        Else
            ' Do something with this line
            ' ...
        End If

[snb]

Code: Select all

Sub M_snb()
  sn=filter(filter(filter(split(createobject("scripting.filesystemobject").opentextfile("G:\OF\example.txt").readall,vbcrlf),"retta",0),"casa",0),"palazzo",0)
  cells(1).resize(ubound(sn))=application.transpose(sn)
End sub