$opml = FileRead("opera.opml") $pattern='xmlUrl="(.*?)"' $opml=StringRegExp($opml, $pattern, 3) $txt="" For $i=0 To UBound($opml)-1 $txt&=$opml[$i]&@CRLF Next FileWrite("opml.txt",$txt) Exit