'=========================================================================
'Имя функции: resveremotefile
'Function: найти файл Сохранить и заменить
Аргументы: str ---- Оригинальная строка
'Параметры: URL --- конечно URL-адрес сайта
'Параметры: Dir ---- Справочный каталог
'Параметры: инсав --------- Сохранить, верно, ложь
'Возвращаемое значение: форматированная строка
'=========================================================================
PublicfunctionResavereMotefile (Byvalstr, Byvalurl, Byvaldir, инсав)
Dims_content
Димре
DimContentFile, ContentFileurl
Dimstrtempurl, Strfileurl, Dirtemp, Pathtemp, Fileemp, Temp, Tempurlarray, Arr_Path
DimSallowExtName
sallowextname = "rm | swf"
s_content = str
OnerRorResumenext
Setre = newRegexp
re.ignorecase = true
re.global = true
re.pattern = "((src = | href =) ((/s)+[.] {1} (" & sullextname & "))"
SetContentFile = re.Execute (s_content)
Dimscontenturl (), N, I, Brepeat
n = 0
Foreachcontentfileurlincontentfile
strfileurl = заменить (заменить (заменить (заменить (заменить (contentfileurl.value, "src =", "", 1, -1,1), "href =", "", 1, -1,1), "'", ""), Chr (34), "")
Ifn = 0then
n = n+1
Redimscontenturl (n)
scontenturl (n) = strfileurl