IE下获取网页指定内容

afan

Local $Str = FileRead('find.htm'), $out
Local $Test = StringRegExp($Str, '(?s)value="(.+?)" on.+?收寄局：(.+?)&.+?寄往：(.+?)\h重量：(\H+)', 1)
If @error Then Exit -1
For $i = 0 To UBound($Test) - 1
        $out &= $Test[$i] & @CRLF
Next
FileWrite('find.txt', $out)
ShellExecute('find.txt')

jakykuang

这个代码能输出，非常感谢版主，
我操作的过程是这样的，把相关的详情单号输入到excel里，然后上网查询邮件信息，最后把相关信息复制回excel，然后进行第二条记录查询
这是输入格式，

Local $Str = FileRead($hFile), $out
Local $Test = StringRegExp($Str, '(?s)value="(.+?)" onkeypress.+?收寄局：(.+?)&.+?寄往：(.+?)\h重量：(\H+)', 1)
If @error Then Exit -1
For $i = 0 To UBound($Test) - 1
        $out &= $Test[$i] & @CRLF
Next

 $oExcel=_ExcelBookOpen(@ScriptDir&"\input.xls")
                        _ExcelRowInsert($oExcel,6,1)
                        _ExcelWriteArray($oExcel,6,1,$out)
                        _ExcelWriteCell($oExcel,$out,"A6")
                        _ExcelBookSave($oExcel)
                        _ExcelBookClose($oExcel)
              

我这样写好像不行

skyit

直接看，html