'================================================================================
'기능 이름 : recaveremotefile
'기능 : 파일 저장 및 교체를 찾으십시오
'인수 : str ---- 원본 문자열
'매개 변수 : URL --- 물론 웹 사이트 URL
'매개 변수 : dir ---- 디렉토리 저장
'매개 변수 : insave --------- 저장, true, false
'반환 값 : 서식 문자열
'================================================================================
PublicFunctionResaverEmoteFile (ByValStr, ByValurl, ByValdir, Insave)
Dims_Content
딤 스
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 = true
Re.pattern = "((src = | href =) ((/s)+[.] {1} ("& sallowextname & "))") ""
setContentFile = re.Execute (s_content)
DimScontentUrl (), n, i, brepeat
n = 0
ForeachContentFileUrlinContentFile
strfileurl = replace (replace (replace (replace (contentfileurl.value, "src =", "", 1, -1,1), "href =", "", 1, -1,1), "", ""), chr (34), "")
ifn = 0then
n = n+1
redimscontenturl (n)
scontenturl (n) = strfileurl