你好,我想用VB做一个提取网页邮箱地址的东西,能帮我吗?

发布网友发布时间：2022-04-25 06:36

共2个回答

热心网友时间：2023-11-03 19:19

我正则没接触过。。。

热心网友时间：2023-11-03 19:20

首先，你要获取网页代码，这个代码有很多，就不在这重复了
然后，获取源码中的邮箱号码，以下是获取邮箱的函数
private function GetEmail(byval sStr as string) as string
const sEmailChar = "1234567890_-abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
dim sChr as string, sEmail as string
dim iAt as long, i as long
iAt=0
for i=1 to len(sStr)
sChr=mid(sStr,i,1)
if sChr="@" then
iAt=i
exit for
end if
next i

sEmail=""
if iAt>0 then
for i=iAt-1 to 1 step -1
sChr=mid(sStr,i,1)
if instr(sEmailChar,sChr)>0 then
sEmail=sChr & sEmail
else
exit for
end if
next i

sEmail=sEmail & "@"
for i=iAt+1 to len(sStr)
sChr=mid(sStr,i,1)
if instr(sEmailChar & ".",sChr)>0 then
sEmail=sEmail & sChr
else
exit for
end if
next i
end if
GetEmail=sEmail
end function

调用方式email=getemail(yuanma)这样就可以从源码中获取到email了