Beliebigkeitssymbol?

[3_of_8]

In dem Wikipediaartikel sind mehrere gute verlinkt - und der Artikel selbst erklärt es auch recht gut.

[Meflin]

Zitat:

Zitat von bigben37

Kannst Du mir irgend eine Seite empfehlen?

http://www.regular-expressions.info/tutorial.html ;)

[MaToBe]

mmh hat vielleicht jemand noch ne seite, wo man diese Unit/Komponente herunterladen kann?

Auch wenn ich weiß das die Computersprache und die Tutorials dazu in Englisch sind hätt ich gern ein Deutsches wenns irgendwie machbar ist.

MFG

[omata]

klick

Beispiel...

Delphi-Quellcode:

function Replace(Input:string):string;
var RegExpr:TRegExpr;
begin
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=false;
    RegExpr.Expression:='(\[.*\])';
    Result:=RegExpr.Replace(Input, '0', false);
  finally
    RegExpr.free;
  end;
end;

[Jakob Ullmann]

Zitat:

Delphi-Quellcode:

    RegExpr.ModifierG:=false;

warum diese Zeile? :gruebel:

[omata]

Die Zeile schlatet auf "nicht gierig" um.
Dies ist wichtig, damit bei mehrfachem Vorkommen von "[ bla ]" auch alle für sich zu einer "0" werden.

Aber das hättest du auch einfach ausprobieren können.

[3_of_8]

Okay...

Pattern: \[.*\]
String: [wuppdi]blabla[narf]

Mit Greedy-Modifier: 1 Match: [wuppdi]blabla[narf]
Ohne Greedy-Modifier: 2 Matches: [wuppdi] und [narf]

Der Greedy-Modifier sorgt dafür, dass jedes Pattern sich so viel Text wie möglich schnappt. Ohne Greedy wird versucht, so wenig Text wie möglich pro Match zu nehmen.

[MaToBe]

supper danke hat perfekt funktioniert :-D :cheers:

[MaToBe]

Delphi-Quellcode:

function Replace(Input:string):string;
var RegExpr:TRegExpr;
begin
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=false;
    RegExpr.Expression:='(\[.*\])';
    Result:=RegExpr.Replace(Input, '', false);
  finally
    RegExpr.free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  MemoIniShow.Lines[0] :=  Replace(MemoIniShow.Lines[0]);
end;

es gibt leider doch noch ein Problem.

Es werden immer 6[*] auf einmal gelöscht. Das bedeutet für mich, dass wenn in einem Text 20x[*] vorkommt, dass ich 4 mal auf den Butto1 klicken muss. Nach dem 10-15 mal drücken allerdings führt er keinen Replace mehr aus, obwohl ich auf den Button drücke und noch[*] Stellen vorhanden sind.

Woran liegt das?

[MaToBe]

Zitat:

Zitat von MaToBe

Delphi-Quellcode:

function Replace(Input:string):string;
var RegExpr:TRegExpr;
begin
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=false;
    RegExpr.Expression:='(\[.*\])';
    Result:=RegExpr.Replace(Input, '', false);
  finally
    RegExpr.free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  MemoIniShow.Lines[0] :=  Replace(MemoIniShow.Lines[0]);
end;

es gibt leider doch noch ein Problem.

Es werden immer 6[*] auf einmal gelöscht. Das bedeutet für mich, dass wenn in einem Text 20x[*] vorkommt, dass ich 4 mal auf den Butto1 klicken muss. Nach dem 10-15 mal drücken allerdings führt er keinen Replace mehr aus, obwohl ich auf den Button drücke und noch[*] Stellen vorhanden sind.

Woran liegt das?

Kann mir das bitte jemand erklären? Würd auch gern verstehn wo der Fehler liegt.