==================================================
功能名称:getarray
角色:提取链接地址,以$数组分隔
参数:建设----提取地址的原始特征
参数:startstr ---开始的字符串
参数:overstr -----结束的字符串
参数:inclul -----它包含startstr
参数:inclur -----它包含overstr
==================================================
功能getarray(ByVal建设,startstr,overstr,inclul,inclur)
下次继续出错
如果建设=假美元$ 或建筑=(建筑)或空= TRUE或startstr = )
getarray =假美元$
退出功能
最后如果
昏暗的tempstr,tempstr2,objregexp,比赛,比赛,Templisturl
tempstr =
集objregexp = new RegExp
objregexp.ignorecase =真
ObjRegExp.Global = True
ObjRegExp。模式= (startstr )1(overstr )
集比赛= objregexp.execute(建设)
每场比赛的每场比赛
如果templisturl = match.value然后
其他的
tempstr = tempstr数组$ $ 匹配。值
templisturl = match.value
最后如果
下一个
设置匹配=无

如果tempstr = 然后
getarray =假美元$
退出功能
最后如果
tempstr =右(tempstr,Len(TempStr)- 7)
如果inclul = FALSE然后
ObjRegExp startstr模式=。
TempStr=objRegExp.Replace (TempStr, )
最后如果
如果inclur = FALSE然后
ObjRegExp overstr模式=。
tempstr = objregexp.replace(tempstr,)
最后如果
集objregexp =没有
设置匹配=无

tempstr =取代(tempstr,
tempstr =取代(tempstr,、)
tempstr =取代(tempstr,
tempstr =取代(tempstr,(
tempstr =取代(tempstr,),)

如果tempstr = 然后
getarray =假美元$
其他的
getarray = tempstr
最后如果
端功能