ReplaceAll mit WildCard

[glkgereon]

hi

gibt es eine art ReplaceAll wo ich wildcard(s) benutzen kann?

ich brauch nicht ? (ein zeichen) sondern nur * (0-ganz viele zeichen )

gibts das irgendwo?

[MrKnogge]

Könntest du mir dein Prolem genauer erllären, bzw. ein Beispiel posten ?
Ich stehe gerade irgendwie auf dem Schlauch.

[glkgereon]

ich brauche eine function wie diese:

Delphi-Quellcode:

function ReplaceWildCard(ToRep, RepWith: String):Boolean;
var T:Integer;
begin
  T:=Pos(ToRep,MainString);
  if T>0 then
    begin
    Delete(T,Length(ToRep));
    Insert(T,RepWith);
    end;
  Result:=T>0;
end;

function ReplaceAllWildCards(ToRep, RepWith: String);
begin
  while ReplaceWildCard(ToRep, RepWith) do ;
end;

die halt einen String abcdefg auch ersetzt, wenn der Suchstring a*d*g ist...

[mirage228]

Hi,

Du könntest im Forum mal nach regular expressions suchen, vielleicht sind die was für dich.

mfG
mirage228

[glkgereon]

hi

ich hab mittlerweile die function MatchesMask gefunden und mir folgende lösung zum löschen von HTML-Tags gebastelt:

Delphi-Quellcode:

function TForm1.DeleteHTMLTags(Code: String):String;
var i, j:Integer;
begin
  i:=1;
  while i<>0 do  //Wenn PosEx nix mehr findet...
    begin
    j:=PosEx('>',Code,i+1); 
    if j>0 then
      if MatchesMask(copy(Code,i,j-i+1),'<*>') then Delete(Code,i,j-i+1);
    i:=PosEx('<',Code,i);
    end;
  Result:=Code;
end;

nun die frage: wie schaffe ich es dass er zuerst die script-Tags löscht?

[himitsu]

Indem du zuerst nach '<script*/script>' und danach erst nach '<*>' suchen lässt