数组去重复并写入ini文件
本帖最后由 ROUSTAR31 于 2012-6-17 08:31 编辑获取网站:http://windows.microsoft.com/zh-cn/windows/downloads/personalize/wallpaper-desktop-background?T1=all
的源代码,并批量获取壁纸地址
$Source = _INetGetSource($Sourceurl)
$imgurls = StringRegExp($Source, '(<a href=".+?jpg" class="navigationLink")', 3)
If Not @Error Then
For $i = 0 To UBound($imgurls) - 1
;接下来是需要处理重复的内容和写入ini文件
Next
得到的字符串$imgurls是类似这样的:<a href="http://res1.windows.microsoft.com/resbox/en/Windows/main/1e0802ca-803a-4d0a-b706-518472170d1f_5.jpg" class="navigationLink"
现在要将开头的<a href="去掉,后面的从jpg引号开始去掉,得到图片地址:http://res1.windows.microsoft.com/resbox/en/Windows/main/1e0802ca-803a-4d0a-b706-518472170d1f_5.jpg而且得到的数组里面有重复,需要去重复,并写入ini文件。
解决的加分,顺便问下,数组处理完成,调用下载批量下载可否显示下载速度和进度? $Source = _INetGetSource($Sourceurl)
$imgurls = StringRegExp($Source, '(<a href=".+?jpg" class="navigationLink")', 3)
If Not @Error Then
$dic=ObjCreate("scripting.dictionary")
For $i = 0 To UBound($imgurls) - 1
$dic($imgurls[$i])=""
Next
$imgurls=$dic.keys
$dic=0
;接下来是写入ini文件
ElseIf试下 不要想复杂了~#include <Array.au3>
Local $sURL = 'http://windows.microsoft.com/zh-cn/windows/downloads/personalize/wallpaper-desktop-background?T1=all'
Local $oHTTP = ObjCreate('microsoft.xmlhttp')
$oHTTP.Open('get', $sURL, 0)
$oHTTP.Send()
Local $Str = BinaryToString($oHTTP.responseBody, 4)
Local $aSR = StringRegExp($Str, 'href="([^"]+?jpg)".+?\s+.+?title="([^"]+)', 3)
If @error Then Exit
_ArrayDisplay($aSR, UBound($aSR))
;------ 以下添加批量下载任务到迅雷
Local $oTd = ObjCreate('ThunderAgent.Agent.1')
If IsObj($oTd) Then
For $i = 0 To UBound($aSR) - 1 Step 2
$oTd.AddTask4($aSR[$i], $aSR[$i + 1] & '.jpg', @ScriptDir & '\Wallpaper')
Next
$oTd.CommitTasks2(1)
EndIf
页:
[1]