ein teil aus mehreren strings rauskopieren

[Rumpi]

Delphi-Quellcode:

function NextToken( var s: string; Separator: char ): string; 
var 
  sPos : integer; 
begin 
  Result := ''; 
  if length( s ) > 0 then 
  begin 
    sPos := pos( Separator, s ); 
    if sPos > 0 then 
    begin 
      Result := copy( s, 1, Pred( sPos ) ); 
      Delete( s, 1, sPos ); 
    end 
    else 
    begin 
      Result := s; 
      s := ''; 
    end; 
  end; 
end; 

//Spiel doch mal mit NextToken rum ! 

procedure AProc( Value: String; Items: TStrings );
var 
s, s2 : String; 
begin 
  s := Value;
  Items.Clear; 
  while s <> '' then 
  begin 
    s2 := NextToken( s, '>' ); // s2 = 
    if Pos( '"400"', s2 ) > 0 then 
    begin 
      s2 := NextToken( s, '<' ); 
      Items.Add( Trim(s2) );
    end;
  end; 
end;

schnell gehackt ...

mfg Rumpi