|
蓝森林 http://www.lslnet.com 2006年8月25日 8:28
 [asp] 简单点儿问，如何取出这些内容
"geog,Lisa"<[email]lisa@abc.com[/email]>,"paul, Lee J"<[email]paul@msn.com[/email]>,<[email]jb@qqqq.com[/email]>
如何只取出<>里面的邮件地址
输出为 [email]lisa@abc.com[/email],[email]paul@msn.com[/email],[email]jb@qqqq.com[/email] ?
用asp |
[html]
<Script language=vbScript>
content="geog,Lisa<lisa@abc.com>,paul, Lee J<paul@msn.com>,<jb@qqqq.com>"
aa=split(content,"<")
for i=1 to UBound(aa)
bb=split(aa(i),">")
cc=bb(0)
document.write cc&","
next
</script>
[/html] |
谢谢：）
如果直接asp呢？
嘿嘿，偷懒啦，也学学徒 |
VBs个asp是一样的，嘿嘿,不会不知道VBS是ASP的默认脚本吧。
<%
content="geog,Lisa<[email]lisa@abc.com[/email]>,paul, Lee J<[email]paul@msn.com[/email]>,<[email]jb@qqqq.com[/email]>"
aa=split(content,"<")
for i=1 to UBound(aa)
bb=split(aa(i),">")
cc=bb(0)
response.write cc&","
next
%> |
我知道。。。：）
因为我想最终输出一个序列
最后写
response.write value="xxxxxx"
比如跟着上面
response.write cc&","
next
我可不可以定义
dd=cc
然后
response.write value= dd
因为最后要输出到一个输入框里 |
[code]<%
Content = """geog,Lisa""<lisa@abc.com>,""paul, Lee J""<paul@msn.com>,<jb@qqqq.com>"
Set TempReg = New RegExp
TempReg.IgnoreCase = True
TempReg.Global = True
TempReg.Pattern="([\w]*)@([\w\.]*)"
Set Matches = TempReg.Execute(Content)
For Each Match In Matches
Response.Write Match.Value &","
Next
Set TempReg = Nothing
%>[/code]
[code]<%
Content = """geog,Lisa""<lisa@abc.com>,""paul, Lee J""<paul@msn.com>,<jb@qqqq.com>"
Set TempReg = New RegExp
TempReg.IgnoreCase = True
TempReg.Global = True
TempReg.Pattern="([\w]*)@([\w\.]*)"
Set Matches = TempReg.Execute(Content)
For Each Match In Matches
dd = Match.Value &"," & dd
Next
Set TempReg = Nothing
Response.Write dd
%>[/code] |
高手↑
学习中~
|
|
