Stripping html from a string

[mutilation@bonbon.net (wave)]

Hello, I was wondering if anybody knew of a function lying around that
would return a given string with any html tags in it stripped.

I've had a look at Gnat.regexp, but for some reasons it's not liking
my regular expressions at all which 'should' strip the html.

Here is some of my example code:


with Ada.Text_Io, Gnat.Regexp;
use Ada.Text_Io, Gnat.Regexp;

procedure Regex is 

   procedure Testmatch (
         Re : Regexp; 
         S  : String  ) is 
   begin
      if Match( S, Re ) then
         Put_Line( S & " matches the expression" );
      else
         Put_Line( S & " doesn't match the expression" );
      end if;
   end Testmatch;

   Criteria : Regexp;  

begin
   Put_Line( "This program demonstrates GNAT's regular expression" );
   Put_Line( "capabilities. These are used to find text that match" );
   Put_Line( "a certain pattern." );
   New_Line;
  
   Criteria := Compile("<([A-Z][A-Z0-9]*)[^>]*></\1>", False, True);
   
   Testmatch( Criteria, "hello world" );
   Testmatch( Criteria, "<a
href=""http://www.helloworld.org/"">hello</a>" );
   Testmatch( Criteria, "<b>hello, world</b>" );
   Testmatch( Criteria, "some random text" );


end Regex;


Any input in this matter would be greatly appreciated.


Mut.