IE源文件提取数值
</td></tr>
<tr>
<td align="right" height="30" width="70" class="rq">验 证 码:</td>
<td align="center" width="5"> </td>
<td align="left" width="168">
<table width="145" border="0">
<tr>
<td width="80"><input type="text" name="checknum" size="5"></td>
<td width="61" align="center" background="yzmback.jpg"><font size=50 color=red><strong>5070</strong></font></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
——————————
需要提取<strong>5070</strong>里面5070的数值,这个该如何写。谢谢! 本帖最后由 wq1282 于 2015-7-8 13:32 编辑
直接替换掉已有字符最简单
替换字符1:></td>
<td width="61" align="center" background="yzmback.jpg"><font size=50 color=red><strong>替换为1: value="替换字符2:</strong></font替换为2:"替换之后的结果:<td width="80"><input type="text" name="checknum" size="5" value="5070"></td>#include <ie.au3>
Local $strTitle="程序窗口名称"
WinWait($strTitle)
Sleep (200)
Local $oIE = _IEAttach($strTitle, "embedded", 1)
While Not IsObj($oIE)
$oIE = _IEAttach($strTitle, "embedded", 1)
Sleep(200)
WEnd
;用以下函数读取写入,中间进行替换操作。
_IEBodyReadHTML
_IEBodyWriteHTML 多谢楼上,但是我想的方法是这样的。
Local $captcha=StringRegExp($Html, 'color=red><strong>(\d.)</strong></font></td>', 1)
但不会用,看不明白说明。 本帖最后由 hnfeng 于 2015-7-9 11:44 编辑
#include <Array.au3>
Dim $html='<td width="80"><input type="text" name="checknum" size="5"></td>" & @CRLF & "<td width="61" align="center" background="yzmback.jpg"><font size=50 color=red><strong>5070</strong></font></td>'
Local $captcha=StringRegExp($Html, "<strong>(\d+)</strong>", 1)
_ArrayDisplay($captcha, "$captcha") strong>(.*?)</strong 学习学习啊,,正则强大 学习学习啊,,正则强大 强大的正则....羡慕 这个用正则应该不难吧 学习学习 谢谢!
页:
[1]