asp字符串问题

[ybice]

有一个字符 <1>abc<1><3>xyz<3><10>sss<10>
我想得到如下值:
1 abc
3 xyz
10 sss
用asp怎么实现.

[bancxc]

这也不是xml

[挨踢直男]

str = "<1>abc<1><3>xyz<3><10>sss<10>"
str = replace(str,">","")
arr = split(str,"<")

for i= 0 to ubound(arr)
if i mod 2 = 0 then
arr(i)="</br>"
end if

x = x&arr(i)


next
response.Write x

[gingerkang]

<%
dim s,i
s="<1>abc<1><3>xyz<3><10>sss<10>"
with new regexp
	.pattern="<(\d+)>(.*?)<\1>"
	.ignorecase=true
	.global=true
	response.write "<pre>"
	for each i in .execute(s)
		response.write i.submatches(0) & chr(9) & i.submatches(1) & vbcrlf
	next
	response.write "</pre>"
end with
%>

[shan1119]

    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True

    re.Pattern="<([^>]+)>(.*?)<\1>"

    strcontent="<1>abc<1><3>xyz<3><10>sss<10>"
    response.write re.replace(strcontent,"$1 $2<br>")
    

[ybice]

再问一下,如果我要传一个参数进来, 假如是 10 ,就得到值 10 sss ,有没有简单一点的方法

[shan1119]

<%@ Language=VBScript %>

<%
    dim re
    Set re=new RegExp
    re.IgnoreCase =true

    dim strcontent,p
    
    'p=request.QueryString("id")
    p=10
    strcontent="<1>abc<1><3>xyz<3><10>sss<10>"
    
    
    re.Pattern=".*?<("&p&")>(.*?)<\1>.*?"
    
    response.write re.replace(strcontent,"$1 $2<br>")
    
%>

[zdzql]

学习了

[sxdtlcx]

学习学习...

[fjfndfjf]

正则式太强大了！～
不过学习起来也感觉挺难的。

[ybice]

好了,结帖了