'================================================
'函數名：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