Mit Semicolon getrennte Links herausfiltern

[skyquaker]

Ich habe mehrere mit einem Semicolon getrennte Links in einer Textdatei.
Wie kann ich diese Links herausfiltern (z.B. jeden in eine eigene Zeile in einer MemoBox)?

Danke im Vorraus

[Dax]

Explode

[marabu]

Hi,

oder einfach so:

Delphi-Quellcode:

var
  sLinks: String; // 'http://www.delphipraxis.net;http://www.google.de';
begin
  with Memo.Lines do
  begin
    Delimiter := ';';
    DelimitedText := sLinks;
  end;
end;

Grüße vom marabu

[skyquaker]

Zitat:

Zitat von marabu

Hi,

oder einfach so:

Delphi-Quellcode:

var
  sLinks: String; // 'http://www.delphipraxis.net;http://www.google.de';
begin
  with Memo.Lines do
  begin
    Delimiter := ';';
    DelimitedText := sLinks;
  end;
end;

Grüße vom marabu

Werd ich ausprobieren !

[skyquaker]

Das geht nicht, da kommt etwas sehr seltsames raus ;)

[marabu]

Alles steht und fällt mit dem Inhalt von sLinks - zeig den mal.

[skyquaker]

SLinks bleibt leer und löscht auch die MemoBox

showmessage(slinks);

Da krieg ich ne leere Meldung

Wenn ich
showmessage(DelimatedText);

mache, krieg ich meinen Text mit nem ; an jeder 2 Stelle

[marabu]

Hast du schonmal versucht deine durch Semikolon getrennten Links in die Variable sLinks zu geben?

[skyquaker]

Zitat:

Zitat von marabu

Hast du schonmal versucht deine durch Semikolon getrennten Links in die Variable sLinks zu geben?

Nein :wink:

[rawsoul]

nun hier mal eine ganz komplizierte lösung, wie ich es machen würde ;)

Delphi-Quellcode:

function extractlinks(linkstring:string):string;
var
  i:integer;
  char:string[1];
  link:string;
begin
  i:=1;
  link:='';
  repeat begin
         char:=linkstring[i];
         link:=link+inttostr(char);
         i:=i+1;
         end until
             char=';';
end;

es könnte funktionieren - auch wenn es kompliziert ist :P