'=====================================================================
'Nombre de la función: reaveremoteFile
'Función: busque el archivo Guardar y reemplace
'Argumentos: Str ---- cadena original
'Parámetros: URL --- Por supuesto, la URL del sitio web
'Parámetros: Dir ---- Guardar directorio
'Parámetros: Insave --------- Guardar, Verdadero, Falso
'Valor de retorno: cadena formateada
'=====================================================================
PublicFunctionResaveremoteFile (Byvalstr, Byvalurl, Byvaldir, Insave)
Dims_content
Dimre
DimContentFile, contentFileUrl
Dimstrtempurl, strfileurl, dirtemp, pathtemp, filetemp, temp, tempurLarray, arr_path
DimSallowextName
SallowextName = "RM | SWF"
s_content = str
OnerrorResumEnext
Setre = newregexp
re.ignorecase = True
re.global = verdadero
re.pattern = "((src = | href =) ((/s)+[.] {1} (" & sallowextName & "))"
SetContentFile = re.execute (s_content)
DimsContentUrl (), n, i, brepeat
n = 0
ForeachContentFileUrlincontentFile
strfileUrl = reemplazar (reemplazar (reemplazar (reemplazar (contentFileUrl.Value, "src =", "", 1, -1,1), "href =", "", 1, -1,1), "" "," "), chr (34),"))
Ifn = 0
n = n+1
RedimsContenturl (n)
Scontenturl (n) = strfileurl