关于asp截取包含某个字符的一段字符

[gueiqi]

例如本站地址：http://www.aaa.com

aaa = "http://www.aaa.com/gfdgf/|http://www.bbb.com/|/about/|aaa|#"

bbb = Split(aaa,"|")

如何最后获得 http://www.bbb.com/ 值

[gueiqi]

楼上的哥哥能不能给出详细写法

[0041123]

aaa = "http://www.aaa.com/gfdgf/|http://www.bbb.com/|/about/|aaa|#"

bbb = Split(aaa,"|")

For i = LBound(bbb) To UBound(bbb)

if bbb(i)="http://www.bbb.com/" then
Response.Write("返回值数组中的元素[" & i & "]：" & bbb(i) & "<br>")
end if
Next


"http://www.bbb.com/" 想要获得的内容可以自己设置

[dgboby]

		function searchqi(st,sd)		
dim sheng_url,sheng_time,sheng_title
Set objRegExp1 = New Regexp 
  objRegExp1.IgnoreCase = True 
  objRegExp1.Global = True 
  objRegExp1.Pattern = sd
  set mm=objRegExp1.Execute(st) 
  For i= 0 to  mm.count -1
			sheng_url=objRegExp1.Replace(mm.item(i),"$1")
			'保存数据
			'输出数据
			response.write sheng_url&"<br>"
			'输出结果
			'http://www.aaa.com
             'http://www.bbb.com

		Next		
		set objRegExp1=nothing
		
end function

		
dim str
str="aaa =""http://www.aaa.com/gfdgf/|http://www.bbb.com/|/about/|aaa|#""" 
call searchqi(str,"(http:.+?com)+")

[gueiqi]

[Quote=引用 6 楼 dgboby 的回复:]
VBScript code

function searchqi(st,sd)
dim sheng_url,sheng_time,sheng_title
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern = sd
set mm=objRegExp1.Execute(st)
For i= 0 to mm.count -1
sheng_url=objRegExp1.Replace(mm.item(i),"$1")
'保存数据
'输出数据
res…
[/Quote]

这为大哥的方法不错，但如果

aaa = "http://www.aaa.com/a.asp|http://www.bbb.com/|http://www.bbb.net/|/about/|http://www.aaa.com/gfdgf/"

call searchqi(str,"(http:.+?com)+")

这个就得不到http://www.bbb.net了
还有就是www.aaa.com为自己的地址，也想过滤掉

[gueiqi]

还有种可能，过滤后的地址，比如有很多重复的

[dgboby]

'还有就是www.aaa.com为自己的地址，也想过滤掉 吗？就
 
call searchqi(str,"(.+?|http:.+?com)+") 

'去掉重复的话,就先保存全部数据到数据,取出删除.

[gueiqi]

象这样的还是无法过滤

/Open.html?u=http://www.bbb.com

[gueiqi]

我换了种方法，先识别http://

然后在根据6楼大哥给的方法用

call searchqi(str,"<a.+?href=""(.+?)""[^\>]*>.+?</a>")

是不是多此一举了

[dgboby]

   function searchqi(st,sd)        
dim sheng_url,sheng_time,sheng_title
Set objRegExp1 = New Regexp 
  objRegExp1.IgnoreCase = True 
  objRegExp1.Global = True 
  objRegExp1.Pattern = sd
  set mm=objRegExp1.Execute(st) 
  For i= 0 to  mm.count -1
            sheng_url=objRegExp1.Replace(mm.item(i),"$1")
            '保存数据
            '输出数据
            response.write sheng_url&"<br>"
            '输出结果
            'http://www.aaa.com
             'http://www.ccc.com

        Next        
        set objRegExp1=nothing
        
end function

        
dim str
str="aaa =""/Open.html?u=http://www.bbb.com|http://www.aaa.com/gfdgf/|http://www.ccc.com/|/about/|aaa|#""" 
call searchqi(str,".+?[^\=](http:.+?com)+")

[gueiqi]

这样就可以过滤掉本地的地址，是不是我的法太笨拙了

能够有效的过滤这样的地址 /dfg.asp?url=http://dfgf.com

[dgboby]

补一下

call searchqi(str,".+?[^\=]|(http:.+?com)+")

[littlelam]

bbb(1)

[gueiqi]

我是要过滤，假如有N个，符合规定的没有固定的

也许是 bbb(1) 也许是 bbb(2)

[一把编程的菜刀]

使用正则！