Problem with retrieving data from website with two regex

[youtuber]

Friends hi, how do I work with two regex?

My example code

$aWebAdress = "https://autoitscripttr.blogspot.com/atom.xml"

$aGetNewConnect = Connections($aWebAdress)

$aUrlregex1 = StringRegExp($aGetNewConnect, "(?i)href='([^']+)",3)
$aUrlregex2 = StringRegExp($aGetNewConnect, "(?i)href="([^&]+)",3)

$UBoun = UBound($aUrlregex1) Or UBound($aUrlregex2)

If isArray($aUrlregex1) Or isArray($aUrlregex1) then
    For $c in $UBoun
        ConsoleWrite($UBoun[$c] & @CRLF)
        ConsoleWrite("Count Url : " & $c & @CRLF)
    Next
EndIf

Func Connections($address)
    Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open("GET", $address, False)
    $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:55.0) Gecko/20100101 Firefox/55.0")
    $oHTTP.SetRequestHeader("Accept-Language", "tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3")
    $oHTTP.Send()
    If @error Then
        ConsoleWrite("Line : " & @ScriptLineNumber & " Connect Error " & @CRLF)
        $oHTTP = 0
        Return SetError(1)
    EndIf

    If $oHTTP.Status = 200 Then
        Local $sReceived = $oHTTP.ResponseText
        $oHTTP = Null
        Return $sReceived
    EndIf
   $oHTTP = Null
    Return -1
EndFunc

 

[Danp2]

Unsure what you are trying to accomplish. Do you just want to combine the arrays? Please explain.

[mLipok]

If you are trying to handle this atom.xml

you can use my Chilkat.au3 UDF:

and this free ActiveX component:
https://www.chilkatsoft.com/refdoc/xChilkatAtomRef.html

 

 

Edited December 14, 2017 by mLipok

[mikell]

youtuber,

FYI,  this :

$UBoun = UBound($aUrlregex1) Or UBound($aUrlregex2)

returns "true" , and this :

For $c in $UBoun

is to be used with objects/arrays

The regex are good. Assuming that what you want to achieve is something like this, here is the correct working way  :

expandcollapse popup

$aWebAdress = "https://autoitscripttr.blogspot.com/atom.xml"

$aGetNewConnect = Connections($aWebAdress)

$aUrlregex1 = StringRegExp($aGetNewConnect, "(?i)href='([^']+)",3)
If isArray($aUrlregex1)  then
    For $c = 0 to UBound($aUrlregex1)-1
        ConsoleWrite($c & @CRLF)
        ConsoleWrite("Count Url : " & $aUrlregex1[$c] & @CRLF)
    Next
EndIf

$aUrlregex2 = StringRegExp($aGetNewConnect, "(?i)href="([^&]+)",3)
If isArray($aUrlregex2)  then
    For $c = 0 to UBound($aUrlregex2)-1
        ConsoleWrite($c & @CRLF)
        ConsoleWrite("Count Url : " & $aUrlregex2[$c] & @CRLF)
    Next
EndIf


Func Connections($address)
    Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open("GET", $address, False)
    $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:55.0) Gecko/20100101 Firefox/55.0")
    $oHTTP.SetRequestHeader("Accept-Language", "tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3")
    $oHTTP.Send()
    If @error Then
        ConsoleWrite("Line : " & @ScriptLineNumber & " Connect Error " & @CRLF)
        $oHTTP = 0
        Return SetError(1)
    EndIf

    If $oHTTP.Status = 200 Then
        Local $sReceived = $oHTTP.ResponseText
        $oHTTP = Null
        Return $sReceived
    EndIf
   $oHTTP = Null
    Return -1
EndFunc

 

[kylomas]

youtuber,

Or do you mean this (combining two regexps)...

expandcollapse popup

$aWebAdress = "https://autoitscripttr.blogspot.com/atom.xml"

$aGetNewConnect = Connections($aWebAdress)

$aUrlregex1 = StringRegExp($aGetNewConnect, "(?i)href=(?:'|(?:"))([^'&]+)",3)
;$aUrlregex1 = StringRegExp($aGetNewConnect, "(?i)href='([^']+)",3)
If isArray($aUrlregex1)  then
    For $c = 0 to UBound($aUrlregex1)-1
        ConsoleWrite($c & @CRLF)
        ConsoleWrite("Count Url : " & $aUrlregex1[$c] & @CRLF)
    Next
EndIf

;~ $aUrlregex2 = StringRegExp($aGetNewConnect, "(?i)href="([^&]+)",3)
;~ If isArray($aUrlregex2)  then
;~     For $c = 0 to UBound($aUrlregex2)-1
;~         ConsoleWrite($c & @CRLF)
;~         ConsoleWrite("Count Url : " & $aUrlregex2[$c] & @CRLF)
;~     Next
;~ EndIf


Func Connections($address)
    Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open("GET", $address, False)
    $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:55.0) Gecko/20100101 Firefox/55.0")
    $oHTTP.SetRequestHeader("Accept-Language", "tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3")
    $oHTTP.Send()
    If @error Then
        ConsoleWrite("Line : " & @ScriptLineNumber & " Connect Error " & @CRLF)
        $oHTTP = 0
        Return SetError(1)
    EndIf

    If $oHTTP.Status = 200 Then
        Local $sReceived = $oHTTP.ResponseText
        $oHTTP = Null
        Return $sReceived
    EndIf
   $oHTTP = Null
    Return -1
EndFunc

kylomas

[youtuber]

@mikell @kylomas Friends thank you for your answers.
How do I have an regex application where I just want to get pictures?

$aUrlregex2 = StringRegExp($aGetNewConnect, "(?i)href=(?:'|(?:"))([^'&]+jpg|gif|png|bmp)", 3)

or

$aUrlregex2 = StringRegExp($aGetNewConnect, "(?i)href=(?:'|(?:"))([^'&]+)([^.]+jpg|gif|png|bmp)", 3)

 

Edited December 15, 2017 by youtuber

[mikell]

?

$aUrlregex2 = StringRegExp($aGetNewConnect, "(?i)href=(?:'|(?:"))([^'&]+\.(?:jpg|gif|png|bmp))", 3)