How to replace all matches of regex in a string?

[bulrush]

I've searched Google and these forums, found some documentation on TRegExpr, and still haven't found an example of how to do this.

Basically I want to change this: <http://www.google.com>, <http://www.facebook.com>

Into HTML like this: <a href="http://www.google.com">http://www.google.com</a>, <a href="http://www.facebook.com">http://www.facebook.com</a>

That is, I want to replace all instances of a match. Here's my code so far.

Code: Pascal  [Select][+][-]

1. Program test;
2. uses Regexpr;
3.  
4. var tre,ts:string;
5.   Regex:TRegexpr;
6.   done:boolean;
7.  
8. begin
9. tre:='<(http://|ftp://|mailto:).+>';
10. Regex.Expression :=tre ;
11. //if Regex.Exec(ts) then
12. done:=false;
13. while (not done) do
14.   if Regex.Exec(ts) then
15.     ts:=ReplaceRegExpr(tre, ts, '<a href="$&">$&</a>', True)
16.   else
17.       done:=true;
18.  
19. writeln('TS='+ts);
20.  
21. end. // End program
22.  

Surely someone has done this before. In Perl I use the 'g' modifier.

Thank you!

[engkin]

Basically I want to change this: <http://www.google.com>, <http://www.facebook.com>

Into HTML like this: <a href="http://www.google.com">http://www.google.com</a>, <a href="http://www.facebook.com">http://www.facebook.com</a>

Code: Pascal  [Select][+][-]

1. program project1;
2. {$mode objfpc}{$H+}
3.  
4. uses
5.   Regexpr;
6.  
7. var
8.   tre, ts: string;
9.  
10. begin
11.   tre := '<((http://|ftp://|mailto:)[^>]+)>';
12.   ts := '<http://www.google.com>, <http://www.facebook.com>';
13.   ts := ReplaceRegExpr(tre, ts, '<a href="$1">$1</a>', True);
14.   WriteLn(ts);
15.   ReadLn;
16. end.
17.  

In Perl I use the 'g' modifier.

Code: Pascal  [Select][+][-]

1.   Regex.ModifierG := True OR False;
2.  

[bulrush]

Thank you. You added the exclusion of the greater than > sign at the end of the search expression. That made it work.

Thank you for your patience. With every question I learn more.

I also remembered to test regexes at https://regex101.com/.

[bulrush]

Ok, I have a similar regex that won't work, and I even looked at the ending characters to exclude. Try it out here: https://regex101.com/r/eK2eT6/1

I want to change: '[Another link to Google](http://www.google.com), [a secure link to Google](https://www.google.com),
[Bad link to Google](www.google.com)'

to:

<a href="http://www.google.com">Another link to Google</a>, <a href="https://www.google.com">a secure link to Google</a>,
[Bad link to Google](www.google.com)

Notice the last link is not converted.

EDIT: Got it! I knew my regex was wrong somewhere.

Code: Pascal  [Select][+][-]

1. tre:='\[(.+?)\]\(((https?|ftp|mailto).+?\))';
2. ts := '[Link to Google](http://www.google.com), '+
3. '[a secure link to Google](https://www.google.com),'+
4. '[Bad link to Google](www.google.com)';
5. writeln('Input is:'+ts);
6. ts := ReplaceRegExpr(tre, ts, '<a href="$2">$1</a>', True);
7. writeln('Result:',ts);
8.  

[Thaddy]

Use an escape, i.e \\

You asked or re-opened this today but I got this: see screenshot.

[maurobio]

Thanks, @Thaddy!

I deleted my post because I just found a more recent thread and then posted it there (to which you also kindly answered!). I just got concerned that the admins might complain about cross-postings... 

Cheers,