'==================================================

'函数名：GetArray

'作用：提取链接地址，以$Array$分隔

'参数：ConStr------提取地址的原字符

'参数：StartStr------开始字符串

'参数：OverStr------结束字符串

'参数：IncluL------是否包含StartStr

'参数：IncluR------是否包含OverStr

'==================================================

FunctionGetArray(ByvalConStr,StartStr,OverStr,IncluL,IncluR)

OnErrorResumeNext

IfConStr="$False$"orConStr=""OrIsNull(ConStr)=TrueorStartStr=""OrOverStr=""orIsNull(StartStr)=TrueOrIsNull(OverStr)=TrueThen

GetArray="$False$"

ExitFunction

EndIf

DimTempStr,TempStr2,objRegExp,Matches,Match,Templisturl

TempStr=""

SetobjRegExp=NewRegexp

objRegExp.IgnoreCase=True

objRegExp.Global=True

objRegExp.Pattern="("&StartStr&").+?("&OverStr&")"

SetMatches=objRegExp.Execute(ConStr)

ForEachMatchinMatches

ifTemplisturl=Match.Valuethen

Else

TempStr=TempStr&"$Array$"&Match.Value

Templisturl=Match.Value

endif

Next

SetMatches=nothing

IfTempStr=""Then

GetArray="$False$"

ExitFunction

EndIf

TempStr=Right(TempStr,Len(TempStr)-7)

IfIncluL=Falsethen

objRegExp.Pattern=StartStr

TempStr=objRegExp.Replace(TempStr,"")

Endif

IfIncluR=Falsethen

objRegExp.Pattern=OverStr

TempStr=objRegExp.Replace(TempStr,"")

Endif

SetobjRegExp=nothing

SetMatches=nothing

TempStr=Replace(TempStr,"""","")

TempStr=Replace(TempStr,"'","")

TempStr=Replace(TempStr,"","")

'TempStr=Replace(TempStr,"(","")

'TempStr=Replace(TempStr,")","")

IfTempStr=""then

GetArray="$False$"

Else

GetArray=TempStr

Endif

EndFunction