Rydde op i html

<%
Function fnLowerCaseHTML(strHTML)
    Dim objRegExp, strOutput
    Set objRegExp = New Regexp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    objRegExp.Pattern = "<p (.*?) (align=)(.*?) (.*?)>"
    strOutput = objRegExp.Replace(strHTML,"<p $2$3>")
    fnLowerCaseHTML = strOutput
    Set objRegExp = Nothing
End Function
%>

Jeg har testet dette, og det virker i hvert fald for mig..

og navnet er selvfølgelig rimelig misvisende ;-)
Men det kan du selv rette.

Hmm... Jeg bruger PHP, men altså selve reg.exp. pattern'en burde jo være den samme, men jeg kan ikke få det til at virke i mit script...

Jeg har selv lavet det her:
$Indhold = ereg_replace("<p([^a]*)(align\=(left|right|center))*([^>]*)>","<p \\2>",$Indhold);

Men det virker kun hvis det som står foran 'align' ikke indholder 'a'... Og jeg kan ikke negate (^) mere end det ene bogstav...

Hvorfor tager du ikke det pattern næsten direkte ?-)

$Indhold = ereg_replace("<p (.*?)(align=(left|right|center))(.*?)>","<p \\2>",$Indhold);

Warning: ereg_replace(): REG_BADRPT in /web/www.pr-creation.net/www/test.php on line 25

Hmm... Det virker næsten hvis jeg laver det som 'preg':
$Indhold = preg_replace("/<p(.*?)( align=(left|right|center))(.*?)>/","<p\\2>",$Indhold);

Men problemet er så hvis hvis der ikke er noget "align=(left|right|center)" i p'et... fx: <p noget="mærkeligtKode"> det bliver der ikke ryddet op i...

Fik selv fixet noget sammen, som gør at der altid er et 'align' i et 'p'...
Så nu virker det...