ipmitool 发表于 2016-9-10 10:15:49

[已解决]如何解決下載網頁遇到空值會跳出

本帖最后由 ipmitool 于 2016-9-10 12:50 编辑

請問大師們, 我用這個function 正則 download 網頁時, 遇到空白的就會跳出, 要如何讓它遇到空值可以不跳出呢?_INetGetMHT($getallsite, "C:\NewsCollector\web\"&$getallsitename&".MHT")

Func _INetGetMHT( $url, $file )
    Local $msg = ObjCreate("CDO.Message")
    If @error Then Return False
    Local $ado = ObjCreate("ADODB.Stream")
    If @error Then Return False

    With $ado
      .Type = 2
      .Charset = "US-ASCII"
      .Open
    EndWith
    $msg.CreateMHTMLBody($url, 0)
    $msg.DataSource.SaveToObject($ado, "_Stream")
    FileDelete($file)
    $ado.SaveToFile($file, 1)
    $msg = ""
    $ado = ""
    Return True
EndFunc

haijie1223 发表于 2016-9-10 11:52:45

不退出干嘛？

ipmitool 发表于 2016-9-10 11:58:37

本帖最后由 ipmitool 于 2016-9-10 12:00 编辑

回复 2# haijie1223


    因為過了第一個空白, 下面還有網址, 再過幾筆網址, 又有出現空格, 我想讓它遇到空格可以跳過, 繼續讀到沒有資料為止...For $j=0 TO UBound($aNewList)-1 STEP 1
                                        $getallsite=_GUICtrlListView_GetItemText($hListView, $j+1,1)
                                        $getallsitename=_GUICtrlListView_GetItemText($hListView, $j+1,2)
                                        MsgBox(0,"下載所有網頁","下載網頁: 【"&$getallsitename&"】到web資料夾, 網址:"&$getallsite)
                                        _INetGetMHT($getallsite, "C:\NewsCollector\web\"&$getallsitename&".MHT")
                                Next

                                _INetGetMHT($getallsite, "C:\NewsCollector\web\"&$getallsitename&".MHT")

                                EndIf

haijie1223 发表于 2016-9-10 12:08:54

在for循环里面加判断，if 网址为空 then continueloop

ipmitool 发表于 2016-9-10 12:49:16

回复 4# haijie1223


    if $getallsite="" Then continueloop

可以了, 謝謝超級版主~~~~~果真是大師~~!!感謝您~
页: [1]
查看完整版本: [已解决]如何解決下載網頁遇到空值會跳出