_arraydisplay works but directly printing array element errors

[mrflibblehat]

Hi All,

I have not used autoit in quite a while so please forgive me, I've most likely make a simple error.

I have created a regexp to grab email addresses from a file. When I try and print it with _Arraydisplay it works, but when I try and print it using $arr[0] it errors on error 1 (invalid)

Anyone able to explain what i'm doing incorrectly

#include <File.au3>
#include <MsgBoxConstants.au3>
#include <array.au3>

Local $file = FileOpen("sql.txt")
Local $lines = _FileCountLines("sql.txt")

for $i = 1 to $lines

   $fline = FileReadLine($file, $i)
   $str = StringRegExp($fline, "'(.+\@.*?)'", 3)
   ConsoleWrite($str[0] & @CRLF)

Next

Thank you for any help provided.

[water]

I would check if StringRegExp really returns an array.

[Geir1983]

Yeah, probably not all lines contains an email. Try this:

#include <File.au3> 
#include <MsgBoxConstants.au3> 
#include <array.au3> 

Local $file = FileOpen("sql.txt") 
Local $lines = _FileCountLines("sql.txt") 
for $i = 1 to $lines    
    $fline = FileReadLine($file, $i)    
    $str = StringRegExp($fline, "'(.+\@.*?)'", 3)   
    If @error then ContinueLoop
    ConsoleWrite($str[0] & @CRLF) 
Next

Edit: Or you could do the RegExp on the entire file?

#include <File.au3> 
#include <MsgBoxConstants.au3> 
#include <array.au3> 

Local $file = FileRead("sql.txt") 
$str = StringRegExp(file, "'(.+\@.*?)'", 3)   
If Not @error then 
    For $idx = 0 To Ubound($str)-1          
        ConsoleWrite($str[$idx] & @CRLF) 
    Next
EndIf

Edited January 24, 2015 by Geir1983

[guinness]

Why are people escaping @? The meta characters that need to be escaped only are ... ].|*?+(){}^$[ if you want then to match literally or use Q...E.

See... '?do=embed' frameborder='0' data-embedContent>>