ASP分隔Email地址并保存数据库

答案:2 悬赏:50 手机版

解决时间 2021-08-23 18:38

提问者网友：饥饿走向夜
2021-08-23 07:02

有个html文本框，客户会粘贴入包含很多email地址的内容。待客户点击保存按钮，我想把它们分条读出来录入到access数据库。粘贴的内容格式貌似乱七八糟：“
xxx_xx@126.com 姓名 <00000@qq.com>;name <11111111@yahoo.com>;name@china.com, file@163.com, Emailname@malata.com, emailname@163.com, a1111111@sina.com, b222222@163.com
╬↘AAAAミ 11111111111@qq.com
ad v222222222@vtion.com.cn
Amber 3333333333@qq.com
Q昵称0 z1111111@163.com
阿南☆ve b22222222@qq.com
Q昵称1 c33333333@qq.com
Q昵称2 d44444444@qq.com
#￥Q昵称3*￥ e55555555@qq.com ”
我分析规律：
查找"@"为中点分隔，向前和向后判断，如发现"<" ">" 空格 ";(分号)" ",(逗号)"代表这个Email的开始和结束，然后读出写到数据库，类似循环...
各位有什么招，写出核心程序~~感激中！

最佳答案

五星知识达人网友：神也偏爱
2021-08-23 07:49

mailstr="xxx_xx@126.com 姓名 <00000@qq.com>;name <11111111@yahoo.com>;name@china.com, file@163.com, Emailname@malata.com,emailname@163.com, a1111111@sina.com, b222222@163.com ╬↘AAAAミ 11111111111@qq.com"
mailstrs = split(mailstr,"com")
for i = 0 to (Ubound(mailstrs) - 1)
for j = 1 to len(mailstrs(i))
  mailstrs(i) = replace(mailstrs(i)," ","")
  mailstrs(i) = replace(mailstrs(i),",","")
  mailstrs(i) = replace(mailstrs(i),";","")
  mailstrs(i) = replace(mailstrs(i),"<","")
  mailstrs(i) = replace(mailstrs(i),">","")
  mailstrs(i) = mailstrs(i)
next
response.write mailstrs(i) & "com" & "<br>"
next

全部回答

1楼网友：一叶十三刺
2021-08-23 09:03

如果有2个@咋办、

只有1个可以这样弄在字符串中先超找@的位置

1然后从起始位置 --结束位置从后先前找< 这个位置就是邮箱字符串的起始点

2 从@以后--到结束从前向后找 > 这个位置之前就是是邮箱字符串的结束点

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！