Public TextToFind1 As String
Public TextToFind2 As String
Public TextToFind3 As String
Public MS As String
Public DC As String


Sub FilterFile()
'
'Фильтрация текстового файла
' по всем ключевым словам, приведенным ниже

TextToFind1 = "Session Start"
TextToFind2 = "Session End"
TextToFind3 = "CP-Data"
MS = "MS1"
DC = "DC1"

Call FindText

End Sub

Sub FindText()
Open "0816_01.txt" For Input As # 1 
Open "output.txt" For Output As # 2 
Do Until EOF( 1 )
Line Input # 1 , data
If (InStr( 1 , data, MS) Or InStr( 1 , data, DC)) Then
    If InStr( 1 , data, TextToFind1) Then
    Print # 2 , data
    Else
        If InStr( 1 , data, TextToFind2) Then
        Print # 2 , data
        Else
            If InStr( 1 , data, TextToFind3) Then
            Print # 2 , data
            End If
        End If
    End If
End If
Loop
Close
End Sub

Public TextToFind1 As String
Public TextToFind2 As String
Public TextToFind3 As String
Public MS As String
Public DC As String



Sub FilterFile()


TextToFind1 = "Session Start"
TextToFind2 = "Session End"
TextToFind3 = "CP-Data"
MS = "MS1"
DC = "DC1"

Call FindWriteText

MS = "MS2"
DC = "DC2"

Call FindWriteText

End Sub

Sub FindWriteText()
Open "0816_01.FMT" For Input As # 1 
Open "output.txt" For Append As # 2 
Do Until EOF( 1 )
Line Input # 1 , data
If (InStr( 1 , data, MS) Or InStr( 1 , data, DC)) Then
    If InStr( 1 , data, TextToFind1) Then
    Print # 2 , data
    Else
        If InStr( 1 , data, TextToFind2) Then
        Print # 2 , data
        Else
            If InStr( 1 , data, TextToFind3) Then
            Print # 2 , data
            End If
        End If
    End If
End If
Loop
Close
End Sub