Sub protocol_110326_0832()
Worksheets("protocol").Cells.ClearContents
    ''s1 = Range("A1")  ''можно добавить скан каталога протоколов dr.Web
    s1 = "c:\log.txt"
    Close # 1 
    Open s1 For Input As # 1 
    j1 =  0 
    j2 =  0 
    
    Do While EOF( 1 ) = False
    Line Input # 1 , s2
    j1 = j1 +  1 
    s2 = "" & s2
    If s2 Like "* - ??" Or Len(s2) <  10  Then
    j2 = j2 +  0 
    Else
        J2A = InStr(s2, " - ")


If J2A =  0  Then
J2A = InStr(s2, " упакован ")

End If

    j2 = j2 +  1 
    Debug.Print j2;
    If s2 Like "=*" Then s2 = "'" & s2
    If J2A >  0  Then
        Worksheets("protocol").Cells(j2,  1 ).Value = Mid(s2,  1 , J2A)
        Worksheets("protocol").Cells(j2,  2 ).Value = Mid(s2, J2A)

    Else
    Worksheets("protocol").Cells(j2,  1 ).Value = s2
    End If
    End If
    Loop
    Close # 1 
     Debug.Print j1; j2; Now
    Debug.Print j1; j2; Now
    Worksheets("protocol").Activate
    Cells.Select
    Selection.AutoFilter
End Sub