Lazarus fonction de trouver des nombres à 8 chiffres dans une chaîne

Question

J'ai des lignes d'objet e-mail et je veux trouver des références de billets dans eux, il pourrait être le ref TT est comme 12345678. Une ligne de sujet peut avoir plusieurs 8 chiffres Nombres!

Je suis en utilisant le code ci-dessous mais il est stripping simplement les 8 premiers chiffres puis en faisant un chèque si cela est 8 car longue:

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; 

Exemple:

ma variable de chaîne est

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

fonction

GetTTRefs(subject) devrait entraîner "12345678;87654321;"

Merci pour les réponses.

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;