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

ipmitool

請問大師們, 我用這個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

不退出干嘛？

ipmitool

回复 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

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

ipmitool

回复 4# haijie1223


    if $getallsite="" Then continueloop

可以了, 謝謝超級版主~~~~~果真是大師~~!!感謝您~