Zeichenkette gezeilt absuchen und gefundene Zeichenausschnei

[skaven]

Keiner mehr eine Idee?

[choose]

Hallo skaven,

für Probleme dieser Art eignen sich [dp]reguläre Ausdrücke[/dp], mit deren Hilfe Du Dein Problem vielleicht in der Art

Delphi-Quellcode:

with RegExp('PRD[^>]*?(\d+)[^>]*>') do
  if Execute(AString) then
  repeat 
    myResult.Add(Match[1]);
  until not ExecuteNext;

lösen könntest.

[Sharky]

Zitat:

Zitat von skaven

Keiner mehr eine Idee?

Du wirst verzeihen müssen wenn nicht jeder sofort alles liegen lässt um sich mit deiner Frage zu beschäftigen!
Zumal doch genügend Lösungswege genannt wurden.

Ausserdem...... Du weisst das in der Delphi-PRAXIS das "pushen" erst nach mindestens 24 Stunden erwünscht ist. :warn:

[skaven]

Tut mir Leid, aber bin sehr ungeduldig wenn ich nicht weiter komme.

SORRY nochmal

[jim_raynor]

@Skaven: Sorry, das Forum ist dazu da dir Denkansätze zu geben. Nicht fertige Quellcodes zu präsentieren.
Und von den Denkansätzen solltest du hier mehr als genug bekommen haben.

Zitat:

Zitat von Sharky

Du weisst das in der Delphi-PRAXIS das "pushen" erst nach mindestens 24 Stunden erwünscht ist. :warn:

Achtung OffTopic: Ist erwünscht überhaupt das richtige Wort oder sollte es besser heißen erlaubt?

[glkgereon]

auf die gefahr hin das ich aussagen meiner vorredner wiederhole:

Delphi-Quellcode:

for i:=1 to length(ausdruck) do
  if ausdruck[i] in ['1'..'9'] then zahlen.Add(ausdruck[i]);

so, wenn du nun mehrere "'prd'-'>'-konstruktionen" hast, könntest du sowas in die schleife machen machen:

wenn aktuelles zeichen gleich dem endzeichen ist, dan lösche alle zeichen bis zum endzeichen inclusive des endzeichens

was dabei noch an "haken" bzw notwändigen änderungen im aufbau auftreten wirst du dann noch merken

[skaven]

Dabke allen, die mir geholfen haben.

Das Programm ist fertig, smile