String in einer Stringliste an Trennzeichen zerlegen

[Trafel21]

Hallo zusammen,

Ich möchte aus meiner Telefonanlage einkommende Nummern auslesen, via Asterisk.
Ich hab ein Problem und zwar hab ich einen sehr großen String mit Zeilenumbrüchen und möchte versuchen die Nummer zu extrahieren.

Der String:

Zitat:

Event: Newchannel
Privilege: call,all
Channel: PJSIP/trunk_1-0000012f
ChannelState: 0
ChannelStateDesc: Down
CallerIDNum: 55555555
CallerIDName:
ConnectedLineNum:
ConnectedLineName:
Language: en
AccountCode:
Context: default
Exten: s
Priority: 1
Callid:
Linkedid: 1557211767.720
PageFlag: false
Application:
Reg_calleenum:
Reg_callernum:
Reg_callername:
Uniqueid: 1557211767.720

Wie würdet ihr versuchen an die Nummer zu kommen?

[hoika]

Hallo,
TStringList
LoadFromFile

und dann die StringList durchlaufen und mit Pos(ZeilenString, 'CallerIDNum: ')=1 die richtige Zeile finden.
Und zum Schluss mit Copy oder StringReplace die Nummer extrahieren.

[Trafel21]

Zitat von hoika:

Hallo,
TStringList
LoadFromFile

und dann die StringList durchlaufen und mit Pos(ZeilenString, 'CallerIDNum: ')=1 die richtige Zeile finden.
Und zum Schluss mit Copy oder StringReplace die Nummer extrahieren.

Danke für die Antwort.

Die String Variable ist bereits in Delphi gespeichert und mit Pos hab ich bereits die CallerIDNum ermittelt. Bzw eine Funktion geschrieben um auch andere Zeilen zu ermittelt:

Zitat:

function Tbc_Asterisk_CallControl.SelectCommand(ContainStri ng: string; Buffer: string): boolean;
begin
If (Pos(ContainString, Buffer) <> 0)
then result := True
else Result := false;
end;

Das Problem ist nur irgendwie fehlt mir der Gedanke, wie ich mit StringReplace nur an die Nummer komme, die Nummer kann unterschiedlich lang sein. Kann ich irgendwie bis zum Zeilenumbruch (ASCI #13) eine Abfrage schreiben?

[mkinzler]

Delphi-Quellcode:

var
  sl: TStrings;
..
  try 
    sl := TStringList.Create;
    sl.Text := Buffer;
    result := sl[sl.IndexOf( ContainString)];
  finally
    sl.Free;
  end;

[Uwe Raabe]

Wir wäre es denn hiermit:

Delphi-Quellcode:

function ExtractCallerID(const AFileName: string): string;
var
  lst: TStringList;
begin
  lst := TStringList.Create;
  try
    lst.LoadFromFile(AFileName);
    lst.NameValueSeparator := ':';
    Result := Trim(lst.Values['CallerIDNum']);
  finally
    lst.Free;
  end;
end;

[haentschman]

elegant wie immer...

[Trafel21]

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

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

[freejay]

Zitat von hoika:

Hallo,
TStringList
LoadFromFile

und dann die StringList durchlaufen und mit Pos(ZeilenString, 'CallerIDNum: ')=1 die richtige Zeile finden.
Und zum Schluss mit Copy oder StringReplace die Nummer extrahieren.

Ich weiß ja, dass pos ein echter Klassiker ist, aber mittlerweile kann man das dank der String-Helper deutlich eleganter machen. Denn statt

if Pos(ZeilenString, 'CallerIDNum: ')=1 then kann man folgendes schreiben:

if ZeilenString.StartsWith('CallerIDNum: ') then

Nur mal so zur Erinnerung - auch an mich selbst!

[Moombas]

Zitat von freejay:

Zitat von hoika:

Hallo,
TStringList
LoadFromFile

und dann die StringList durchlaufen und mit Pos(ZeilenString, 'CallerIDNum: ')=1 die richtige Zeile finden.
Und zum Schluss mit Copy oder StringReplace die Nummer extrahieren.

Ich weiß ja, dass pos ein echter Klassiker ist, aber mittlerweile kann man das dank der String-Helper deutlich eleganter machen. Denn statt

if Pos(ZeilenString, 'CallerIDNum: ')=1 then kann man folgendes schreiben:

if ZeilenString.StartsWith('CallerIDNum: ') then Nur mal so zur Erinnerung - auch an mich selbst!

Das setzt voraus, das er einen speziellen Eintrag finden und den zugehörigen Wert ausgeben möchte. Soll aber immer die ganze Zeile betrachtet werden muss man den Klassiker wählen und die Zeilen durchgehen oder die Variante von Uwe Raabe wählen.

[freejay]

Zitat von Moombas:

Zitat von freejay:

Zitat von hoika:

Hallo,
TStringList
LoadFromFile

und dann die StringList durchlaufen und mit Pos(ZeilenString, 'CallerIDNum: ')=1 die richtige Zeile finden.
Und zum Schluss mit Copy oder StringReplace die Nummer extrahieren.

Ich weiß ja, dass pos ein echter Klassiker ist, aber mittlerweile kann man das dank der String-Helper deutlich eleganter machen. Denn statt

if Pos(ZeilenString, 'CallerIDNum: ')=1 then kann man folgendes schreiben:

if ZeilenString.StartsWith('CallerIDNum: ') then Nur mal so zur Erinnerung - auch an mich selbst!

Das setzt voraus, das er einen speziellen Eintrag finden und den zugehörigen Wert ausgeben möchte. Soll aber immer die ganze Zeile betrachtet werden muss man den Klassiker wählen und die Zeilen durchgehen oder die Variante von Uwe Raabe wählen.

In dem von mir zitierten Beispiel wird am Zeilenanfang gesucht ("pos(...)=1"): Darauf bezieht sich mein Kommentar. Dass man, wenn man innerhalb der Zeile sucht, StartsWith nicht verwenden kann, dürfte klar sein...