filter .txt file with urls

[lordsocke]

Hi guys ive got a problem.

I got a programm which is downloading a source code from an webpage and is saving it to an .txt file.

After that it is filtering the .txt file for my specific url´s by StringInStr. 

then I get my urls in the final txt file but it gives me out the links like that 
<p>https...</p> </div>

how can I delete the rest expeted the links?

here is the code it selfe:

Local $aArray = FileReadToArray($sFile1)
    For $element in $aArray
        If StringInStr($element, "https://...") Then FileWriteLine($sFile2, $element)
    Next

 

[JohnOne]

Search "StringRegExp urls"

[lordsocke]

yes I tried it but im making something wrong do you got an example? 

 

[JohnOne]

Show what you made wrong.

[lordsocke]

#Include <Array.au3>

$text = FileRead("Links.txt")

$aRes = StringRegExp($text, '(?:http|rtmp)s?[^"\r\n]+', 3)
_ArrayDisplay($aRes)
FileWrite("Slotomania Links",$aRes)

is giving me out nothing

if im going to leave out the file write part im getting all the links displayed but at the end there is still the </p> </div> so that the link looks like that:

https:....gifts&amp;hc_location=ufi</p> </div>

Edited October 27, 2015 by lordsocke

[kcvinu]

Post the text in your file. 

[lordsocke]

Post the text in your file. 

what do you mean

[kcvinu]

You have a file with some text. And you want to strip some urls from that text. So i just want to see that text so that i can see if i can help you. Is that clear ?

[nitekram]

#Include <Array.au3>

$text = FileRead("Links.txt")

$aRes = StringRegExp($text, '(?:http|rtmp)s?[^"\r\n]+', 3)
_ArrayDisplay($aRes)
FileWrite("Slotomania Links",$aRes)

is giving me out nothing

if im going to leave out the file write part im getting all the links displayed but at the end there is still the </p> </div> so that the link looks like that:

https:....gifts&amp;hc_location=ufi</p> </div>

You could just run a stringreplace, look for the stuff you want to remove and remove it with '' or ""

[mikell]

#Include <Array.au3>
$text = BinaryToString(InetRead("https://www.autoitscript.com/site/"))
$aRes = StringRegExp($text, '(?:http|rtmp)s?[^"\r\n]+', 3)
_ArrayDisplay($aRes)
FileWrite("Links.txt", _ArrayToString($aRes, @crlf))

[lordsocke]

#Include <Array.au3>
$text = BinaryToString(InetRead("https://www.autoitscript.com/site/"))
$aRes = StringRegExp($text, '(?:http|rtmp)s?[^"\r\n]+', 3)
_ArrayDisplay($aRes)
FileWrite("Links.txt", _ArrayToString($aRes, @crlf))

it is just adding a -1 at the end of the textfile 

[mikell]

Obviously it was a sample code intended to work with autoitscript.com