请教正则提取网页源码中邮箱地址，谢谢！(已解决)

lsszmj · 发表于 2011-9-15 23:04:09

本帖最后由 lsszmj 于 2011-9-15 23:59 编辑

http://mail.dns123.org/
我用如下代码获取的网页源码
已解决代码如下

#include <ie.au3>
$oIE = _IECreate ("http://mail.dns123.org/")
$sHTML = _IEDocReadHTML($oIE)
;Msgbox(0,‘网页源码’,$sHTML)
Local $Test = StringRegExp($sHTML, 'mailinput value=(.+?)></DIV>', 1)
$Test = $Test[0]
MsgBox(0, '替换结果', $Test)

我想获取十分钟邮箱地址，谢谢！
请教各位朋友，上面的邮箱地址怎样用正则提取，谢谢！另外这个邮箱每申请一次都会变

gzh888666 · 发表于 2011-9-15 23:24:06

本帖最后由 gzh888666 于 2011-9-15 23:32 编辑

把要提取的哪行粘出来，让我复制一下。算了，就写一点吧！

Local $str='mailinput value=xxxx@123.com></DIV>'
Local $Test = StringRegExp($str, 'mailinput value=(.+?)></DIV>', 1)
$Test = $Test[0]
MsgBox(0, '替换结果', $Test)

chishingchan · 发表于 2011-9-15 23:32:43

看看高手是怎样使用正则表达式的！

lsszmj · 发表于 2011-9-15 23:47:52

回复 2# gzh888666
我要提取的这个邮箱怎样用代码复制出来，我对正则一点都不懂，谢谢

gzh888666 · 发表于 2011-9-15 23:54:12

本帖最后由 gzh888666 于 2011-9-15 23:58 编辑

回复 4# lsszmj

#include <ie.au3>
$oIE = _IECreate ("http://mail.dns123.org/")
$Test = StringRegExp(_IEDocReadHTML($oIE), 'mailinput value=(.+?)></DIV>', 1)
$Test = $Test[0]
MsgBox(0, '替换结果', $Test)

这样？

afan · 发表于 2011-9-16 00:01:34

光这个页面可以简单处理：
[^"]+@[^"]+

lsszmj · 发表于 2011-9-16 00:01:40

回复 5# gzh888666
谢谢老大，我已写出来了，再次感谢这么晚了还回答我的问题，你的代码更简洁

lsszmj · 发表于 2011-9-16 00:04:04

回复 6# afan
老大这个是网页项目的内容怎么弄出来的，我也下你的这个软件，就是不会用，谢谢

lsszmj · 发表于 2011-9-16 00:07:46

回复 6# afan
已经懂了，谢谢！软件页面已有，没仔细看，这个问题以后要认真克服

afan · 发表于 2011-9-16 00:10:02

回复 8# lsszmj

zfyczyh · 发表于 2011-9-16 00:10:16

进来学习一下

lsszmj · 发表于 2011-9-16 00:18:29

回复 6# afan
老大，我在WIN7用你的软件打开网页源码，怎样中文是乱码，谢谢

afan · 发表于 2011-9-16 00:20:16

回复 12# lsszmj

仔细看“3”……

lsszmj · 发表于 2011-9-16 00:25:11

还请教个问题，这上是“[^"]+@[^"]+”软件自动生成的不，谢谢

afan · 发表于 2011-9-16 00:27:56

回复 14# lsszmj

绝对不是

		自动登录	找回密码
密码			加入

[AU3基础] 请教正则提取网页源码中邮箱地址，谢谢！(已解决)

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

评分

本帖子中包含更多资源

浏览过的版块