|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите с рег. выражениями
Имею такой код:
Код:
procedure TMyThread.Execute; var SL : TStringList; i : string; rege:tregexpr; s,p,r,title:string; begin s:=data.Text; rege:=tregexpr.Create; rege.Expression := 'Login: ([^ ]*) | Info\[id: 1]: ([^|]*)'; if rege.Exec(s) then repeat Form2.sMemo1.Lines.Add(Utf8ToAnsi(rege.Match[1] + ':' + rege.Match[2])); until not rege.ExecNext; SL := TStringList.Create; SL.Sorted := true; SL.Duplicates := dupIgnore; SL.AddStrings(Form2.sMemo1.Lines); Form2.sMemo1.Clear; Form2.sMemo1.Lines.AddStrings(SL); SL.Free; end; Из этого: Код:
22:50:54-24.08.16 | Login: Ernan_Rac12e [skin: 36, lvl: 0, money: $0] | Server: 5.254.123.4:7777 [Diamond Role Play | Trilliant] | Info[id: 1]: zg221254at97 | User-IP: 128.68.53.153 Должен получать только это : Ernan_Rac12e:zg221254at97 Но получаю это : Ernan_Rac12e: :zg221254at97 Почему тут переносится?Помогите пожалуйста |