Add or condition to loop

[tagteam]

I have this code

Do Until ts.AtEndOfStream
        strText = ts.ReadLine
        'Only import lines starting with 1
        If Left(strText, 1) = 1 Then
            ts2.Write (strText & vbCrLf)
        End If
    Loop

Basically it reads a file and only keeps lines that begin with a number 1. I would like to change it to accept 1 and 2

Would this do it?

If Left(strText, 1) = 1 OR Left(strText, 1) =2 Then

[andy49]

Have you tried it? I'd say yes.


Sent from my iPhone using Tapatalk

[tagteam]

yes, it worked. I was a little hesitant to try without some confirmation because it is a production database.

It did the trick though.