String parsen ?

[agm65]

guten morgen dp, hat jemand einen vorschlag wie ich am besten solch einen string parse:

>>3<<,>>9<<,>>10<<,>>11<<,>>25<<,>>28<<,>>30<<,>>3 5<<


so dass ich nur noch die zahlen habe ?

[3_of_8]

Schau dir mal PosEx und Copy an.

[Chris P]

Hi,

durchlaufe den string und suche mit Pos() jeweils nach der Position von '>>' und '<<'
und kopiere dir mit Copy() den Teilstring zwischen '>>' und '<<'.

[agm65]

habt ihr da mal nen source bespiel ? wäre echt sau cool

[Daniel]

Oder mit regulären Ausdrücken. :-)
Folgender Code zerlegt Dir Deinen String und zupft Dir die Zahlen raus:

Delphi-Quellcode:

procedure TForm33.btn_DoNowClick(Sender: TObject);
var reg : TPerlRegEx;
begin
  Memo1.Clear;

  reg:= TPerlRegEx.Create( NIL );
  TRY
     reg.Subject:= edt_SourceString.Text;
     reg.RegEx:= '([0-9])+';

     if reg.Match then
     begin
       Memo1.Lines.Add( reg.MatchedExpression );
       while reg.MatchAgain do
       begin
         Memo1.Lines.Add( reg.MatchedExpression );
       end;
     end
     else
       Memo1.Lines.Add( 'nichts gefunden' );

  FINALLY
     reg.Free;
  END;
end;

Die Klasse TPersRegEx gibt's hier:
http://www.regular-expressions.info/delphi.html

[agm65]

danke dir !

[Daniel]

Aber aufpassen: Dieser reguläre Ausdruck zuppelt Dir nur alle Zahlen raus. Ob da wirklich spitze Klammern drum herum sind, interessiert ihn nicht. Wenn Du das auch noch prüfen möchtest, so wird's etwas aufwändiger, weil man dann mit den Sub-Expressions arbeiten müsste und die hab' ich gerade nicht im Kopf.

[agm65]

nein, danke ich denke das reicht !

[alf.stefan]

Der thread ist zwar schon fast geschlossen aber warum will das parsen niemand mit einem TString objekt machen

etwa so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   s : string;
begin
   s :='>>3<<,>>9<<,>>10<<,>>11<<,>>25<<,>>28<<,>>30<<,>>35<<';

   memo1.Lines.AddStrings(parse(s));
end;
function parse(s: string):TStringList;
begin
   result := TstringList.Create;
   result.CommaText := s;
end;

das result sieht dann so aus
>>3<<
>>9<<
>>10<<
>>11<<
>>25<<
>>28<<
>>30<<
>>35<<

jetzt müssen nur noch die >> und << eliminiert werden.

Gruß

Stefan

[alzaimar]

Zitat:

Zitat von alf.stefan

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   s : string;
begin
   s :='>>3<<,>>9<<,>>10<<,>>11<<,>>25<<,>>28<<,>>30<<,>>35<<';

   memo1.Lines.AddStrings(parse(s));
end;
function parse(s: string):TStringList;
begin
   result := TstringList.Create;
   result.CommaText := s;
end;

... Nee. Eine Funktion, die ein Objekt liefert, das nie freigegeben wird? :wall:
Wieso nicht einfach

Delphi-Quellcode:

Memo1.Lines.Commatext := s;