'=========================================================.
'Nom de la fonction: Resaveremotefile
'Fonction: recherchez le fichier Enregistrer et remplacer
'Arguments: str ---- chaîne d'origine
'Paramètres: URL --- Bien sûr, l'URL du site Web
'Paramètres: dir ---- Enregistrer le répertoire
'Paramètres: insave --------- sauver, vrai, faux
'Valeur de retour: chaîne formatée
'=========================================================.
PublicFonctionResResAveRemotefile (Byvalstr, ByValurl, Byvaldir, Insave)
Dims_content
Tabac
DimContentFile, ContentFileUrl
DimstrTempurl, strfileurl, dirtemp, pathtemp, filemp, temp, tempurlarray, ar_path
Dimsallowextname
SallowExtName = "RM | SWF"
s_content = str
Onerrorresumenext
SetRe = newRegexp
re.ignorecase = true
re.global = true
re.Pattern = "((src = | href =) ((/ s) + [.] {1} (" & SallowExtName & ")))"
SetContentFile = re.Execute (s_content)
Dimscontenturl (), n, i, breteat
n = 0
ForeachcontentFileUrlinContentFile
strFileUrl = Remplacer (remplacer (remplacer (remplacer (remplacer (contentFileUrl.Value, "src =", "", 1, -1,1), "href =", "", 1, -1,1), "'", ""), chr (34), "")
IFN = 0THEN
n = n + 1
Redimscontenturl (n)
Scontenturl (n) = strfileurl