"=========================================================================================================
'Funktionsname: ResaveremoteFile
'Funktion: Datei speichern und ersetzen
'Argumente: str ---- Original String
'Parameter: URL --- Natürlich die URL der Website
'Parameter: Dir ---- Speichern
'Parameter: Insave --------- Speichern, wahr, falsch
'Rückgabewert: Formatierte Zeichenfolge
"=========================================================================================================
PublicFunctionResaveremoteFile (Byvalstr, Byvalurl, Byvaldir, Insave)
Dims_Content
Dimre
DimContentFile, ContentFileurl
Dimstrtempurl, Strafileurl, Dirtemp, Pathtemp, FilETemp, Tempurlarray, arr_path
DimsalloyxtName
sonalextname = "rm | swf"
s_content = str
OnErrorresumeNext
Setre = newRegexp
re.Innorecase = true
re.global = true
re.Pattern = "((src = | href =) ((/s)+[.] {1} (" & salloyxtName & "))") "
SetContentFile = re.execute (s_content)
Dimscontenturl (), n, i, brepeat
n = 0
ForeachContentFileurLincontentfile
strFileurl = ersetzen (ersetzen (ersetzen (ersetzen (contentFileurl.value, "src =", "", 1, -1,1), "href =", "", 1, -1,1), "'", ""), Chr (34), "")
Ifn = 0Then
n = n+1
Redimscontenturl (n)
scontenturl (n) = strFileurl