Выборка из файла

[zenner]

Добрый день!У меня есть текстовый файл следующего типа:
log for forum.txt

Помогите пожалуйста сделать в excel программку которая будет открывать этот текстовый файл, будет находить в нем строчку suscp:snb=.... и будет выводить в отдельную колонку все номера из этой строчки. Но нужно чтобы находились только строчки с suscp а не с suscc.
СПАСИБО!

[SAS888]

сделать в excel программку которая будет открывать этот текстовый файл, будет находить в нем строчку suscp:snb=.... и будет выводить в отдельную колонку все номера из этой строчки.

Для этого открывать файл совсем не обязательно. Следующий макрос вставит требуемые номера в столбец "A", начиная с 1-й строки (подставьте свой путь и имя файла).

Sub Main()
    Dim ts As Object, s As String, a
    Application.ScreenUpdating = False: [A:A].ClearContents: On Error Resume Next
    Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\Temp\log for forum.txt", 1)
    Do
        s = ts.ReadLine
        If s Like "*suscp:snb=*" Then
            a = Split(Split(s, "=")(1), "&")
            For i = LBound(a) To UBound(a): Cells(i + 1, 1) = Val(a(i)): Next
        End If
    Loop While Err = 0
End Sub

Пример во вложении. Откройте файл "ReadNum.xls" и запустите макрос "Main", предварительно замените явно указанные в макросе путь и имя файла "D:\Temp\log for forum.txt" на требуемые.

[zenner]

Огромное СПАСИБО за помощь! Сделал все как Вы сказали и все работает!