罗茨风机的选型:如何批量删除文本中参杂的(*)号?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 02:40:14
下了个邮件群发的东西,提供的是如下的邮箱地址,要交钱才能用。可我不想交钱,呵呵。这样的问题应该好解决吧,谁教我一下?谢了。
1382*042045@163.com
424524@*163.com
gsd*45245@163.com
dfgdfger@16*3.com

用记事本打开,在菜单上选 编辑->替换 在对话框中查找内容中填入"*",替换为空着,点击全部替换。ok

<%
function abc(a,a1,a2)'a1是要过滤串的头a2是要过滤串的尾
tt=a
b=1
while b
c=abcd(tt,a1)
d=abcd(tt,a2)
if c>0 and d>0 then
tt=mid(tt,1,c-1)&mid(tt,d+len(a2),len(tt)-d-1)
else
b=0
end if
wend
abc=tt
end function
function abcd(a,b)'查找B串是否在A串中!反回第几个字每,0没有
c=0
for i=1 to len(a)-len(b)+1
if mid(a,i,len(b))=b then c=i:exit for
next
abcd=c
end function
b="ab[a]cdefghigjlmnopqrstuvwxyz[/a]b"
b=abc(b,"[a]","[/a]")
%>
<%=b%>

问你下:这个 * 是代表某个字符呢还是只是随便插入的一个* ?
如果是前者的话你去掉了这个*就得不到真正的邮件地址了哦~~呵呵

如果是后者可以按照1楼说的,用记事本查找替换就可以了

出错的吧