Lazarus-Funktion, um 8-stellige Zahlen in einer Zeichenfolge zu finden

Question

Ich habe E-Mail-Betreffzeilen und ich möchte Ticketreferenzen in ihnen finden es könnte die TT-Ref ist wie 12345678. Eine Betreffzeile (String) kann mehrere 8 Ziffern haben Zahlen!

Ich war den Code unten verwenden, aber es ist nur die ersten 8 Ziffern Strippen dann einen Scheck zu tun, wenn die 8 Zeichen lang ist:

function StripNumbers(const aString: string): string; 
var 
    C: char; 
begin 
    Result := ''; 
    for C in aString do 
    begin 
    if CharInSet(C, ['0'..'9']) then 
    begin 
     Result := Result + C; 
    end; 
    end; 
end; 

Beispiel:

meines String-Variable ist

subject := "yada yada XF12345678 blabla XF87654321 duh XF11.223344" 

Funktion GetTTRefs(subject)"12345678;87654321;" führen sollte

Vielen Dank für die Antworten.

Answer 1

function GotTTRefs(Subject:string;Digits:Byte):string; 
var 
    i:integer; 
    TT:string; 
begin 
    i:=1; 
    while i <= Length(Subject)-Digits+1 do 
    begin 
    if Subject[i] in ['1'..'9'] then 
     begin 
      TT:=Copy(Subject,i,Digits); 
      if (StrToQWordDef(TT, 0) <> 0) then 
       Result:=Result+TT+';'; 
     end; 
    inc(i); 
    end; 
end;