'================================================================
اسم الوظيفة: resaveremotefile
الوظيفة: البحث عن ملف حفظ واستبداله
'الحجج: Str ---- السلسلة الأصلية
'المعلمات: url --- بالطبع عنوان URL لموقع الويب
'المعلمات: Dir ---- Save Directory
'المعلمات: annave --------- حفظ ، صحيح ، خطأ
'قيمة الإرجاع: سلسلة تنسيق
'================================================================
PublicFunctionResavereMoteFile (Byvalststr ، Byvalurl ، Byvaldir ، insave)
DIMS_CONTENT
Dimre
DimContentFile ، contentFileurl
Dimstrtempurl ، strfileurl ، dirtemp ، pathtemp ، filetemp ، temp ، tempurlarray ، arr_path
DimSallowStname
sallowextName = "RM | SWF"
s_content = str
onerrorresumenext
setre = newregexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = "((src = | href =) ((/s)+[.] {1} (" & sallowextname & ")))"
setContentFile = re.execute (S_Content)
dimscontenturl () ، n ، i ، براقة
ن = 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