lon91ong 发表于 2011-10-31 23:23:12

[已解决]请教实现网络图片下载到本地的AU3代码

本帖最后由 lon91ong 于 2011-11-1 08:54 编辑

如题,图片地址是确定的:http://www.kitco.cn/cn/live_charts/silvercny.gif希望保存至AU3脚本所在的目录下,并按照如下的规则重新命名
silvercny_日期_美元兑人民币汇率.gif

比如,今天是2011年10月31日,当前汇率是6.3233,汇率查询网址
那么相应的文件名就是:
silvercny_20111031_6.3233.gif

希望能不用打开网页,全部用后台执行的方式进行!
望大侠不吝赐教!多谢大侠!

afan 发表于 2011-11-1 04:01:18

#include <INet.au3>
$Str = _INetGetSource('http://forex.hexun.com/rmbhl/')
$aSR = StringRegExp($Str, '(?s)美元/人民币\v+</td>.+?(\d+\.\d+)', 1)
If Not @error Then
        ToolTip('下载中...')
        InetGet('http://www.kitco.cn/cn/live_charts/silvercny.gif', 'silvercny_' & @YEAR & @MON & @MDAY & '_' & $aSR & '.gif', 1)
EndIf

menfan1 发表于 2011-11-1 07:57:28

还是正则快哈。。

lon91ong 发表于 2011-11-1 08:57:14

才那么几句啊???
我看到代码的第一印象{:face (316):}

测试成功之后,服了!{:face (301):}

fastidium 发表于 2011-11-1 09:03:05

afan大牛啊,佩服,学习了
页: [1]
查看完整版本: [已解决]请教实现网络图片下载到本地的AU3代码