-
'ชื่อฟังก์ชั่น: resaveremotefile
ฟังก์ชั่น: ค้นหาไฟล์บันทึกและแทนที่
'อาร์กิวเมนต์: str ---- สตริงต้นฉบับ
'พารามิเตอร์: URL --- แน่นอน URL เว็บไซต์
'พารามิเตอร์: dir ---- บันทึกไดเรกทอรี
'พารามิเตอร์: ความบ้าคลั่ง --------- บันทึกจริงเท็จเท็จ
'ค่าส่งคืน: สตริงที่จัดรูปแบบ
-
PublicFunctionResaveremoteFile (byvalstr, byvalurl, byvaldir, ความบ้าคลั่ง)
dims_content
หรี่ลง
dimcontentFile, contentFileUrl
Dimstrtempurl, strfileurl, สิ่งสกปรก, 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 = แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (ContentFileUrl.Value, "src =", "", 1, -1,1), "href =", "", 1, -1,1), "" "," "), chr (34)," ")
IFN = 0 แล้ว
n = n+1
RedimscontentUrl (n)
Scontenturl (n) = strfileurl