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

[Неологист]

День добрый!

Требуется написать скрипт, который бы вытаскивал из txt файла соответствие 2 чисел. В одну ячейку число, которое стоит после TS11&TELEPHON-, а в другую - число после BSNBC=TELEPHON-

В файле попадаются строки, в которых нет этого сочетания значений (есть только BSNBC=TELEPHON-). Они не нужны.

Фрагмент txt:

PHP код:

<CRMSUB:MSIN=112233445566,BSNBC=TELEPHON-9998887766-TS11&TELEPHON-5554710050-TS11&TS21&TS22&GPRS,NDC=904,MSCAT=ORDINSUB,SUBRES=ALLPLMN-ROAM,ACCSUB=BSS,PRFMSIN=GPRS-999999999999,NUMTYP=MULTI;
<ENTROPRSERV:MSIN=112233445566,OPRSERV=OCSI-OCSI1-ACT-DACT&TCSI-TCSI1-ACT-DACT;
<ENTRCFSERV:MSIN=112233445566,CFSERV=CFBUSY,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445566,CFSERV=CFNREPLY,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445566,BSFTNO=TELEPHON,RCTIM=30;
<ENTRCFSERV:MSIN=112233445566,CFSERV=CFNREACH,NCS=NO;
<ENTRGCSERV:MSIN=112233445566,GCSERV=CALLWAIT-ACT-TELEPHON&CALLHOLD&CLIP&NATSS05,CLIPOVR=NO;
<CRMSUB:MSIN=112233445577,BSNBC=TELEPHON-9998887765-TS11&TELEPHON-5554710823-TS11&TS21&TS22&GPRS,NDC=908,MSCAT=ORDINSUB,SUBRES=ALLPLMN-ROAM,ACCSUB=BSS,PRFMSIN=GPRS-999999999999,NUMTYP=MULTI;
<ENTROPRSERV:MSIN=112233445577,OPRSERV=OCSI-OCSI1-ACT-DACT&TCSI-TCSI1-ACT-DACT;
<ENTRCFSERV:MSIN=112233445577,CFSERV=CFBUSY,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=ACT,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445577,CFSERV=CFNREPLY,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=ACT,RCTIM=30,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445577,CFSERV=CFNREACH,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=ACT,NCS=NO;
<ENTRCFSERV:MSIN=112233445577,CFSERV=CFU,NCS=NO;
<ENTRGCSERV:MSIN=112233445577,GCSERV=CALLWAIT-PROV&CALLHOLD&CLIP&MPTY,CLIPOVR=YES;
<CRMSUB:MSIN=112233445588,BSNBC=TELEPHON-9998887764-TS11&TS21&TS22&GPRS,NDC=904,MSCAT=ORDINSUB,SUBRES=ALLPLMN-ROAM,ACCSUB=BSS,PRFMSIN=GPRS-999999999999,NUMTYP=MULTI;
<ENTROPRSERV:MSIN=112233445588,OPRSERV=OCSI-OCSI1-ACT-DACT&TCSI-TCSI1-ACT-DACT;
<ENTRCFSERV:MSIN=112233445588,CFSERV=CFBUSY,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=REG,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445588,CFSERV=CFNREPLY,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=REG,RCTIM=15,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445588,CFSERV=CFNREACH,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=REG,NCS=NO;
<ENTRGCSERV:MSIN=112233445588,GCSERV=CALLWAIT-PROV&CALLHOLD&CLIP,CLIPOVR=NO;
<CRMSUB:MSIN=112233445599,BSNBC=TELEPHON-9998887763-TS11&TS21&TS22&GPRS,NDC=904,MSCAT=ORDINSUB,SUBRES=ALLPLMN-ROAM,ACCSUB=BSS,PRFMSIN=GPRS-999999999999,NUMTYP=MULTI;
<ENTROPRSERV:MSIN=112233445599,OPRSERV=OCSI-OCSI1-ACT-DACT&TCSI-TCSI1-ACT-DACT;
<ENTRCFSERV:MSIN=112233445599,CFSERV=CFBUSY,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445599,CFSERV=CFNREPLY,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445599,BSFTNO=TELEPHON,RCTIM=15;
<ENTRCFSERV:MSIN=112233445599,CFSERV=CFNREACH,NCS=NO;
<ENTRGCSERV:MSIN=112233445599,GCSERV=CALLWAIT-ACT-TELEPHON&CALLHOLD&CLIP,CLIPOVR=NO;
<CRMSUB:MSIN=112233445500,BSNBC=TELEPHON-9998887762-TS11&TS21&TS22&GPRS,NDC=904,MSCAT=ORDINSUB,SUBRES=ALLPLMN-ROAM,ACCSUB=BSS,PRFMSIN=GPRS-999999999999,NUMTYP=MULTI;
<ENTROPRSERV:MSIN=112233445500,OPRSERV=OCSI-OCSI1-ACT-DACT&TCSI-TCSI1-ACT-DACT;
<ENTRCFSERV:MSIN=112233445500,CFSERV=CFBUSY,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=ACT,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445500,CFSERV=CFNREPLY,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=ACT,RCTIM=30,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445500,CFSERV=CFNREACH,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=ACT,NCS=NO;
<ENTRGCSERV:MSIN=112233445500,GCSERV=CALLWAIT-ACT-TELEPHON&CALLHOLD&CLIP,CLIPOVR=NO;
<CRMSUB:MSIN=112233445600,BSNBC=TELEPHON-9998887761-TS11&TS21&TS22&GPRS,NDC=904,MSCAT=ORDINSUB,SUBRES=ALLPLMN-ROAM,ACCSUB=BSS,PRFMSIN=GPRS-999999999999,NUMTYP=MULTI;
<ENTROPRSERV:MSIN=112233445600,OPRSERV=OCSI-OCSI1-ACT-DACT&TCSI-TCSI1-ACT-DACT;
<ENTRCFSERV:MSIN=112233445600,CFSERV=CFBUSY,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=REG,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445600,CFSERV=CFNREPLY,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=REG,RCTIM=15,NCS=NO,NFS=NO;
<ENTRCFSERV:MSIN=112233445600,CFSERV=CFNREACH,BSFTNO=TELEPHON-79524500600-INTNO,STATUS=REG,NCS=NO;
<ENTRGCSERV:MSIN=112233445600,GCSERV=CALLWAIT-PROV&CALLHOLD&CLIP,CLIPOVR=NO; 


Из этого надо вытянуть:

9998887766 5554710050
9998887765 5554710823

Прошу помощи, знаний в VB 0 =\

[Hugo121]

Сделать не сложно. Задача простая и неинтересная.
И - или писать много, или (если писать мало) - можно вывих мозга получить
Поэтому все молчат...

Поищите у EducatedFool на сайте функции по работе с текстовыми файлами - открыть файл, читать построчно, анализировать строку на наличие подстрок (по Instr() или Like), выбрать нужные подстроки (по Instr() или Split()).

[alex77755]

Насколько большой?
От этого зависит способ считывания

[Неологист]

около 350Мб

[Hugo121]

Я сразу сказал - построчно.
Было недавно - в массив/память (ReadAll) не влезало...

[Hugo121]

Кстати, можно попробовать вручную -
1.текст в Эксель (может 2007 прожуёт?)
2.разбить по столбцам по запятым.
3.отсортировать по B

Увидите все нужные строки рядом, нужные ячейки можно вручную выбрать на другой лист, снова разбить, ну или прямо на месте...

[alex77755]

Так я считывал по 400 метров:

Sub QWERTy()
Dim R, C
Dim NUM
Dim BLOK()
ReDim BLOK(1 To 2, 0)
Dim n1, n2
Dim k1, k2
FL = "C:\TT.txt"
R = 1
NUM = 1
    Dim Fsys As Object
    Set Fsys = CreateObject("Scripting.FileSystemObject")
    Dim Tstream As Object
    Set Tstream = Fsys.OpenTextFile(FL)
    Dim z As String
    While Not Tstream.AtEndOfStream
      z = Tstream.ReadLine
'      Debug.Print z
      If InStr(1, z, "TS11&TELEPHON") > 0 And InStr(1, z, "BSNBC=TELEPHON-") > 0 Then
      n1 = InStr(1, z, "TS11&TELEPHON") + 14
      n2 = InStr(1, z, "BSNBC=TELEPHON-") + 15
      k1 = InStr(n1, z, "-")
      k2 = InStr(n2, z, "-")
      ReDim Preserve BLOK(1 To 2, UBound(BLOK, 2) + 1)
       BLOK(2, UBound(BLOK, 2) - 1) = Mid(z, n1, k1 - n1)
        BLOK(1, UBound(BLOK, 2) - 1) = Mid(z, n2, k2 - n2)
        Debug.Print BLOK(1, UBound(BLOK, 2) - 1), BLOK(2, UBound(BLOK, 2) - 1)
      End If
    Wend
Cells.ClearContents
       Range(Cells(1, 1), Cells(UBound(BLOK, 2), 2)).Value = Application.Transpose(BLOK)
End Sub

[alex77755]

Debug-и лучше сразу закоментить - быстрей будет
Ну и если результат влезет на лист

[Hugo121]

alex77755? , быстрее будет, если избавиться от And и ReDim Preserve.
От And - сделать вложенный If Then, а вот от Preserve... может сперва один раз прочитать файл и посчитать строки, сделать массив, а потом читать ещё раз уже отбирая данные?
И кстати Application.Transpose тоже на больших количествах сбоит - лучше сразу делать двумерный массив и выгружать Resize'ом.

[alex77755]

может сперва один раз прочитать файл и посчитать строки, сделать массив

Я не могу пока об этом судить - только учусь.
Но считать надо же строки, удовлетворяющие условию!? всё равно проверять надо!?
По свободе проверю.