'==================================================================
'Function name: ReSaveRemoteFile
'Function: Find file save and replace
'Arguments: Str----Original String
'Parameters: url---Of course the website URL
'Parameters: Dir----Save directory
'Parameters: InSave---------Save, True, False
'Return value: Formatted string
'==================================================================
PublicFunctionReSaveRemoteFile(ByValstr,ByValURL,ByValDir,InSave)
Dims_Content
Dimre
DimContentFile, ContentFileUrl
DimstrTempUrl, strFileUrl, DirTemp, 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=Replace(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