论坛 › 『 提问交流 』 › IE下获取网页指定内容

afan 发表于 2011-3-29 12:38:42

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 发表于 2011-3-29 13:14:48

这个代码能输出，非常感谢版主，
我操作的过程是这样的，把相关的详情单号输入到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 发表于 2011-4-2 07:41:04

直接看，html

查看完整版本: IE下获取网页指定内容