Is there a better way with SREReplace?

[ChrisL]

I have this...

$str = "< > & ' """
    $str = StringReplace($str,"&","&amp;")
    $str = StringReplace($str,"<","&lt;")
    $str = StringReplace($str,">","&gt;")
    $str = StringReplace($str,"'","&apos;")
    $str = StringReplace($str,'"',"&quot;")
    
    Msgbox(0,"",$str)

Is there a better way with StringRegExpReplace() to replace all in 1 go I could only seem to do it the same as I would with StringReplcae() by doing 1 item at a time.

Edited August 9, 2008 by ChrisL

[ResNullius]

Don't think so with SRE, but what about something like this:

Dim $aReplacements[2][5]=[["&","<",">","'",'"'],["&amp;","&lt;","&gt;","&apos;","&quot;"]]

For $i = 0 to UBound($aReplacements,2)-1
    $str = StringReplace($str,$aReplacements[0][$i],$aReplacements[1][$i])
Next

Msgbox(0,"",$str)

Edited August 10, 2008 by ResNullius