'====================================================================
'Nama Fungsi: ResaveMoteFile
'Fungsi: Temukan file simpan dan ganti
'Argumen: str ---- String asli
'Parameter: URL --- Tentu saja URL situs web
'Parameter: dir ---- simpan direktori
'Parameter: Insave --------- Simpan, Benar, Salah
'Nilai pengembalian: string yang diformat
'====================================================================
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 = true
re.pattern = "((src = | href =) ((/s)+[.] {1} (" & SallowextName & "))"
SetContentFile = re.execute (s_content)
DimscontentUrl (), n, i, brepeat
n = 0
ForeachContentFileurlincontentfile
strfileUrl = ganti (ganti (ganti (ganti (ganti (ganti (contentfileurl.value, "src =", "", 1, -1,1), "href =", "", 1, -1,1), "'," "), chr (34)," ")
IFN = 0then
n = n+1
Redimscontenturl (n)
scontentUrl (n) = strfileUrl