импорт данных из большого txt файла

[Hugo121]

Чтобы сразу задать массив под нужный размер, его нужно определить.
Может быть быстрее определить количество строк с помощью ADO?

[Hugo121]

Пока такой вариант, основанный на коде alex77755
Полмиллиона строк обрабатывает за 14 секунд - половину времени считает строки, половину отбирает значения.
Вообще-то первый код alex77755 отрабатывает быстрее, но там есть Transpose, что вероятно вылезет на большом количестве отобранных.
И ещё - я не привязан к длине цифр - тут режется по "-", но есть привязка к виду строки

BSNBC=TELEPHON-9998887766-TS11&TELEPHON-5554710050-

т.е. должно быть именно так - два нужных слова, между ними цифры и "-"

Sub QWERTy5()
'Dim tm: tm = Timer
Dim i&, temp
FL = "C:\testbig.txt"
    Dim Fsys As Object
    Set Fsys = CreateObject("Scripting.FileSystemObject")
    Dim Tstream As Object
    Dim z As String
    
    Set Tstream = Fsys.OpenTextFile(FL)
    While Not Tstream.AtEndOfStream
    z = Tstream.ReadLine
    i = i + 1
    Wend
    Tstream.Close

    ReDim BLOK(1 To i, 1 To 2)
    i = 0
    
    Set Tstream = Fsys.OpenTextFile(FL)

    While Not Tstream.AtEndOfStream
      z = Tstream.ReadLine
      If z Like "*BSNBC=TELEPHON-*TS11&TELEPHON*" Then
      i = i + 1
      temp = Split(Split(z, "BSNBC=TELEPHON-")(1), "-")
      BLOK(i, 1) = temp(0)
      BLOK(i, 2) = temp(2)
      End If
    Wend
    
       Cells.ClearContents
       [a1:b1].Resize(i) = BLOK
'Debug.Print Timer - tm
End Sub

[Неологист]

Сделал все по совету хуго средствами excel.

Офис 2010. Разделил основной файл на 6 файлов по 750к строк.
В эксель их, разделил по столбцам сначала по запятой, удалил лишние столбцы, потом по -, удалил лишнее, потом заменой на пустоту очистил ненужные поля. Потом фильтр по пустым строкам и вуаля... Все работает)

[Hugo121]

Но макросом то быстрее будет.
Раз уж он уже готов.
Заодно и результаты сверите...

[Неологист]

Сошлось 1 в 1, респект Алекс и Хуго)