Парсинг сообщение idTelnet

[le7o]

В общем ситуация такая: есть АТС Asterisk, пытаюсь сделать управление звонками и мониторинг по предоставленному ATC интерфейсу взаимодействия AMI - по сути представляет собой отправку набора текста по средствам telnet и получение ответов от АТС.

Функционал по отправке и тому подобное реализовал, а вот как грамотно распарсить полученные события без особой нагрузки на клиент, может у кого то есть функции готовые по шаблонам/ключевым словам, или любые идеи по этому поводу?

P.s: действия для одного звонка от регистрации и до полного его завершения занимает порядка ~400-500 строк в зависимости от длительности разговора.


Asterisk Call Manager/1.1

Response: Success

Message: Authentication accepted

Event: FullyBooted
Privilege: system,all
Status: Fully Booted

Ответ на отправленный запрос на звонок:
Event: Newchannel
Privilege: call,all
Timestamp: 1450619024.780615
Channel: SIP/101-0000003f
ChannelState: 0
ChannelStateDesc: Down
CallerIDNum:
CallerIDName:
AccountCode:
Exten:
Context: sip-dual
Uniqueid: 1450619024.63

Event: VarSet
Privilege: dialplan,all
Timestamp: 1450619024.780642
Channel: SIP/101-0000003f
Variable: SIPCALLID
Value: 68df505e3319e24f77f4e90c2852d9d5@19 2.168.4.55:5060
Uniqueid: 1450619024.63

.......


Event: Dial
Privilege: call,all
Timestamp: 1450619034.651891
SubEvent: End
Channel: SIP/101-0000003f
UniqueID: 1450619024.63
DialStatus: ANSWER

Event: Hangup
Privilege: call,all
Timestamp: 1450619034.651931
Channel: SIP/101-0000003f
Uniqueid: 1450619024.63
CallerIDNum: <unknown>
CallerIDName: 101->100
ConnectedLineNum: <unknown>
ConnectedLineName: 101->100
Cause: 16
Cause-txt: Normal Clearing

[come-on]

как грамотно распарсить полученные события без особой нагрузки на клиент

что вы имеете ввиду?

[Stilet]

Ну... Если в кратце то:

With TStringList.Create do begin
 Text:=StringReplace(Этот текст,': ','=',[rfReplaceAll]);
   Value['Uniqueid'] вернет 1450619024.63
   Value['Event'] вернет VarSet
 ...   
 free;
end;

Только конечно если этот текст не слитно весь приходит.

[le7o]

Сообщение от come-on

что вы имеете ввиду?

Объемы текста довольно большие..., здесь в качестве теста текст для 2-х зарегистрированных телефонов ~500 строк, телефонов в рабочем варианте: 150*~500(это одно событие)*(количество событий - (прием звонка, перерегистрация, перевод звонка и.т.п.)).

Суть работы в следующем:
1. Оператор отправил заявку на звонок, сформировалось событие сервером и вывелось (пока вывожу в Memo, но тут можно хоть куда его загрузить)
2. Сформировались и вывелись промежуточные события вроде - гудок 1, гудок 2, гудок 3.
3. Оператор ответил или не ответил так же сформировались события.
4. Если какой то оператор завершил звонок то приходит так же событие.

Что хорошо, у каждой группы событий есть уникальных идентификатор - ActionID, а плохо то что пока все события приходят ПОСТРОЧНО, по этому поводу можно решить формированием пакетов, т.к. в начале и в конце встречается не более 3-4 ключевых слов с которых они могут начинаться и заканчиваться.

А получить данные необходимо приблизительно такого формата:
Event: Newchannel - новый вызов
Channel: SIP/101-0000003f - инициатор вызова
Exten: 100 - назначение вызова
ActionID: XXXXXXXXXXXXXX123445 - Это уникальный для каждой группы событий идентификатор - его я формирую сам и буду передавать в событие...

В итоге хочу сделать таблицу вида:
1. ID (ActionID)
2. время начала
3. Инициатор
4. Назначение
5. Состояние (идет вызов, абонент ответил, вызов завершен)
6. Время завершения

[le7o]

Сообщение от Stilet

Ну... Если в кратце то:

With TStringList.Create do begin
 Text:=StringReplace(Этот текст,': ','=',[rfReplaceAll]);
   Value['Uniqueid'] вернет 1450619024.63
   Value['Event'] вернет VarSet
 ...   
 free;
end;

Только конечно если этот текст не слитно весь приходит.

Текст приходит не слитно, но построчно, пакеты разделяются - CRLF + CRLF.

[Stilet]

А-а-а, ну тогда разделяй пакеты и мой способ по идее подойдет.

[le7o]

Дабы не плодить новых тем, задам связанный вопрос здесь...

regexpr - есть у кого нибудь опыт работы с этим чудом (регулярные выражения для языка Delphi)?
Поделитесь впечатлениями, или может еще есть варианты по подобным модулям/библиотекам?
Хочу попробовать, для фильтрации потока на входе поставить регулярные выражения, для отброса лишнего текста....
По заявлению на сайте сложность выражения, зависит только от фантазии разработчика.

[IvaniuS]

в смысле, они существуют с 2001го года в делфи в виде компонента, на сколько я знаю, рекомендую почитать Википедию по поводу Регексов, но область применимая их достаточно ограниченая т.е. я использовал при парсинге сайтов и проверки на соответсвие шаблону.

[le7o]

Сообщение от IvaniuS

в смысле, они существуют с 2001го года в делфи в виде компонента, на сколько я знаю, рекомендую почитать Википедию по поводу Регексов, но область применимая их достаточно ограниченая т.е. я использовал при парсинге сайтов и проверки на соответсвие шаблону.

То, что они достаточно старые я понял когда на сайт перешел)))

В стандартной палитре компонентов их ни разу не видел, ни в одной из версий от 7 до XE8.

Как Вы считаете при построчном поступлении текста достаточно большого объема - помогут отбросить лишние строки?

[come-on]

Они все могут.