'================================================
'函数名:ReSaveRemoteFile
'作用:查找文件保存替换
'参数:Str----原字符串
'参数:url----当然网站URL
'参数:Dir-----保存目录
'参数:InSave------是否保存,True,False
'返回值:格式化取后的字符串
'================================================
PublicFunctionReSaveRemoteFile(ByValstr,ByValURL,ByValDir,InSave)
Dims_Content
Dimre
DimContentFile,ContentFileUrl
DimstrTempUrl,strFileUrl,DirTemp,PathTemp,FileTemp,Tempi,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