'================================================================
اسم الوظيفة: PLACESAVEREMOTEFILE
"الوظيفة: استبدال وحفظ الصور عن بُعد
"الحجج: Const ----------------------------------------------------------------------------------------------------------------
'المعلمات: savetf ----- ما إذا كنت تريد حفظ الملف ، FALSE لا يحفظ ، صحيح حفظ
'المعلمات: Tisturl -------- عنوان الويب الحالي
'================================================================
FunctionReplacesavereMoteFile (Const ، Strinstalldir ، Strchanneldir ، Savetf ، Tisturl)
ifconstr = "$ false $" orconstr = "" orstrchanneldir = "" ثم
استبدال avereMoteFile = constr
exitfunction
Endif
DimTempstr ، TempStr2 ، TempStr3 ، Re ، Matches ، Match ، Temppi ، Temparray ، Temparray2
setre = newregexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = "<img.+؟ [^/>]>"
setMatches = re.execute (const)
foreachMatchinMatches
iftempstr <> "" ثم
tempstr = tempstr & "$ array $" & match.value
آخر
tempstr = match.value
Endif
التالي
iftempstr <> "" ثم
Temparray = Split (TempStr ، "$ Array $")
tempstr = ""
Fortempi = 0Toubound (Temparray)
re.pattern = "src/s*=/s*.
setMatches = re.execute (temparray (tempi))
foreachMatchinMatches
iftempstr <> "" ثم
tempstr = tempstr & "$ array $" & match.value
آخر
tempstr = match.value
Endif
التالي
التالي
Endif
iftempstr <> "" ثم