String in einer Stringliste an Trennzeichen zerlegen

[haentschman]

elegant wie immer...

[Trafel21]

Ah Okay, ich hab den Kontext von TStringlist falsch aufgefasst.

@edit: Funktioniert, wieder was dazu gelernt. Nochmals vielen dank.

[Luckie]

Ich habe den Titel mal etwas aussagekräftiger formuliert.

[hhcm]

Nur der Vollständigkeit halber

Delphi-Quellcode:

function GetCallerId(str: string): string;
var
  Match: TMatch;
begin
  result := '';
  Match := TRegex.Create('CallerIDNum:(.*)').Match(str);
  if Match.Success then
    result := Trim(Match.Groups[1].Value);
end;

[Neutral General]

Dann würde ich mir doch lieber das Trim sparen und per RegEx auch nur den Wert ohne Leerzeichen holen:

CallerIDNum: *(.*)

[Trafel21]

Kann ich als Trennzeichen auch #13#10 verwenden ?

Bspw.:

Code:

Event: DialBegin
Privilege: call,all
Channel: PJSIP/1177-00000638
ChannelState: 4
ChannelStateDesc: Ring
CallerIDNum: 1177
CallerIDName: IT Test
ConnectedLineNum: 
ConnectedLineName: 
Language: de
AccountCode: 
Context: macro-dial
Exten: s
Priority: 65
Callid: [e-mail]
Linkedid: 1557992134.3754
PageFlag: false
Application: Dial
Reg_calleenum: 
Reg_callernum: 
Reg_callername: 
Uniqueid: 1557992134.3754
DestChannel: PJSIP/1126-00000639
DestChannelState: 0
DestChannelStateDesc: Down
DestCallerIDNum: 1126
DestCallerIDName: Martin
DestConnectedLineNum: 1177
DestConnectedLineName: IT Test
DestLanguage: de
DestAccountCode: 
DestContext: callee-handler
DestExten: s
DestPriority: 12
DestCallid: b8fad6fc-4053-4b2d-ad90-13773452ebe2
DestLinkedid: 1557992134.3754
DestPageFlag: false
DestApplication: Set
DestReg_calleenum: 
DestReg_callernum: 
DestReg_callername: 
DestUniqueid: 1557992135.3755
DialString: 1126/sip:1126@10.172.25.125:5060

Event: NewConnectedLine
Privilege: call,all
Channel: PJSIP/1177-00000638
ChannelState: 4
ChannelStateDesc: Ring
CallerIDNum: 1177
CallerIDName: IT Test
ConnectedLineNum: 1126
ConnectedLineName: Martin 
Language: de
AccountCode: 
Context: macro-dial
Exten: s
Priority: 65
Callid: [e-mail]
Linkedid: 1557992134.3754
PageFlag: false
Application: Dial
Reg_calleenum: 
Reg_callernum: 
Reg_callername: 
Uniqueid: 1557992134.3754

Ich möchte die Events auch trennen. In dem Buffer können beliebig viele Events kommen, mal 1 oder mal 4. D.h. ich müsste es irgendwie mit einer eof schleife durchgehen oder?

Bei Trim(Eventlst.Values['Event']); nimmt dieser nur das 1. Event auf, nicht das 2. oder evtl 3. oder 4. Gibt es eine Möglichkeit an die auch zu kommen?

[Klaus01]

.. für die StringList ist #13#10 die Markierung um eine neue Zeile anzulegen.
Als Delimiter kann man meines Wissens nur ein Zeichen verwenden.

trim kannst Du dann auf die einzelen Zeilen der StringList anwenden.

Grüße
Klaus

[Uwe Raabe]

Zitat von Trafel21:

Bei Trim(Eventlst.Values['Event']); nimmt dieser nur das 1. Event auf, nicht das 2. oder evtl 3. oder 4. Gibt es eine Möglichkeit an die auch zu kommen?

Dann musst du die StringList manuell mit jeweils nur einem Block füllen und danach wieder leer machen. Z.B. so:

Delphi-Quellcode:

procedure HandleData(Source: TStrings);
var
  CallerID: string;
  EventName: string;
begin
  if Source.Count = 0 then Exit;

  EventName := Trim(Source.Values['Event']);
  CallerID := Trim(Source.Values['CallerIDNum']);
end;

procedure HandleFile(const AFileName: string);
var
  line: string;
  lst: TStringList;
  reader: TStreamReader;
begin
  reader := TStreamReader.Create(AFileName);
  try
    lst := TStringList.Create;
    try
      lst.NameValueSeparator := ':';
      while not reader.EndOfStream do begin
        line := reader.ReadLine;
        if Trim(line) = '' then begin
          HandleData(lst);
          lst.Clear;
        end
        else begin
          lst.Add(line);
        end;
      end;
      { falls als letztes keine Leerzeile mehr kam }
      HandleData(lst);
    finally
      lst.Free;
    end;
  finally
    reader.Free;
  end;
end;