bis zu einem bestimmten zeichen suchen?

[shadow999]

erm... ergebnis sollte "GH" sein.

ich bin grad dran da eine funktion zu schreiben.
aber mein problem ist es ab "DE" zu suchen.
ab dem ersten zeichen im memo zu suchen geht ja, aber aber "DE" und dann von "DE" bis "GH" kriege ich nicht hin :oops:

[Sharky]

Ich verstehe zwar nicht wofür es gut ist.... aber das passiert mir ja öfters.
Du möchtest also wissen ob:

1. DE in der StringListe vorhanden ist
2. GH in der StringListe ist
3. nur ein Positives ergebniss wenn GH nach DE kommt und DE vorhanden ist

Also einfach .IndexOf("DE") und IndexOf("GH) ermitteln. Wenn der erste <>-1 und kleiner als der zweite ist hast Du es.

[DeddyH]

Obwohl ich die Aufgabenstellung immer noch nicht ganz verstanden habe:

Delphi-Quellcode:

var start, ende, i: integer;
begin
  start := Memo.Lines.IndexOf('DE');
  ende := -1;
  if (start > -1) then
    begin
      i := start;
      while (i < Memo.Lines.Count - 1) and (ende < 0) do
        begin
          inc(i);
          if Memo.Lines[i] = 'GH' then
            ende := i; 
        end;
    end;
end;

Kann man zwar alles mit IndexOf machen, aber Du musst ja wissen, was Du willst.

[shadow999]

ich habe mir das mal angeguckt.
dieser code gibt die zeilennummer aus in der zb. F gefunden wurde.
"A
B
C
DE
F // 5
GH
I
J"

Das mit dem IndexOf habe ich zwar verstanden aber funktionniert quasi genau so wie das oben.
naja also das klappt alles nicht so richtig :(
eigentlich sollte "GH" ausgegeben werden

[shadow999]

Edit:

habe nochmal ü+berlegt das ist rausgekommen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i, x, StartPos, Ende: Integer;
Text: String;
begin
Text := Memo1.Lines.Text;

for i := 1 to Length(Text) do
 begin
  if (Text[i] = 'D') then
    begin
     StartPos := i;
     Caption := '1. Schleife: '+IntToStr(i);

       for x := StartPos to Length(Text) do
        if (Text[x] = 'F') then
          begin
           Caption := '2. Schleife: '+Copy(Text, x, 1);
          end;
    end;
 end;

So.. das ist die grundidee, denke ich.

Nur was nicht funktioniert ist zb.
(Text[x] = 'GH') ..

[marabu]

Hallo,

du bemühst dich zwar dein Problem programmtechnisch zu beschreiben, aber bevor du das sauber hinkriegst, musst du noch viel lernen. Deshalb ist es besser, wenn du dein Problem nicht als Programmierer, sondern als Anwender zu beschreiben versuchst. Es ist für den benötigten Programmcode ein gewaltiger Unterschied, ob du in einem oder mehreren Strings suchst. Die ganzen Feinheiten, die dein Problem vollständig beschreiben würden, kannst du mit deinem Wissensstand nicht sehen. Wenn du dich dann noch bemühst, die eigentliche Problemspäre zu verschleiern, dann wird dein Thread auf eine unangenehme Weise sehr spannend.

Was steht in dem Memo? Welche Bedeutung hat der Inhalt? Was hast du vor?

Freundliche Grüße vom marabu

[shadow999]

mit dem, dass ich das als anwender nicht ls programmierer erklären soll verstehe ich nicht.. egal.
verschleiern? was verschleiere ich denn? ok ich rede klartext:

ich habe einen text.. einen html text den ich von einer url aus hole.

diesen code möchte ich überprüfen lassen und beispielsweise alle
image-tags, zum beispiel der hier: <img alt="text" title="text">

in solche umwandeln:
<img alt="text" title="text" />

dafür müsste ich erstmal "<img" suchen. von da aus ginge es vortan drum bis zum nächsten ">" weiterzusuchen.
das ">" würde dann durch " />" ersetzt.

für mich zum "visualisieren" habe ich folgendes zurecht geschnitten:

Delphi-Quellcode:

for i := 1 to Length(Text) do
 begin
  if (Text[i] = 'd') then
    begin
     StartPos := i;
     TestMemo.Lines.Add('1. Schleife: "'+IntToStr(i)+'"');

       for x := StartPos to Length(Text) do
        if (Text[x+1] = 'f') then
          begin
           TestMemo.Lines.Add('1. Schleife: "'+Copy(Text, x, 2)+'"');
          end;
    end;
 end; // die TestMemos sind dafür da um alle inhalt festhalten zu können

damit sehe ich z.b.: "aha.. d fängt da und da an und f fängt da und da an.

d und f wären demnach <img und >

[Progman]

ich würde so vorgehen:
Erst mal mit Pos('<img') die Position des img-Tags ermitteln, von da ab nach ">" suchen und an der Position von ">" einfach Insert(Zeile,Position,'/') machen.

[taaktaak]

Moin, Moin,
habe mir nicht alles bis zum letzten Punkt durchgelesen, aber warum machst du das nicht mit TRichEdit, da gibt es eine Methode FindText, die ist eigentlich ganz simpel anzuwenden ...
Gruß Ralph

[Progman]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, p: Integer; z: String;
begin
  for i:=  0 to Memo1.Lines-1 do begin
    z:=Memo1.Lines[i]; //Zeile aus Memo holen
    p:=Pos('<img',z);
    inc(p,4); //'<img' übergehen
    while z[p] <> '>' do inc(p); //p bleibt auf Position von '>' stehen
    Insert(' /',z,p);
    Memo1.Lines[i]:=z; //Zeile wieder zurück ins Memo
  end;
end;

Ungetestet, aber so müsste es klappen, vorausgesetzt, der img-Tag ist auch komplett in einer Zeile.