How to identify part of line in txt and than take entire line

[Centrally]

I've bumped on next problem:

I have txt file with bunch of mails, and I want to write script that search for specific one and put it in other txt file.

Example:

Email1@gmail.com

Email2@gmail.com

Email3@yahoo.com

Email4@hotmail.com

Now what I want is to search if domain is @gmail and output entire mail in new file.

I have tried StringInString but I have no idea what to do with number of place where is found line starting.

I'm pretty sure this should be done with StringCompare but I seams not to be able to find anyone with similar task who have posted online about this. I would appreciate any help or idea you could have and could share with me. Thanks

[Nessie]

Something like that:

#include <File.au3>
$file_database = @ScriptDir & "\email_database.txt"
$file_found = @ScriptDir & "\found_email_database.txt"

Global $open_file_database = FileOpen($file_database, 1)
Global $open_file_found = FileOpen($file_found, 1)


For $i = 0 To _FileCountLines($file_database)
$line = FileReadLine($open_file_database, $i)

If StringInStr($line, "@gmail") Then
       FileWriteLine($open_file_found, $line)
EndIf
Next

!!WARNING!! I have not tested this code, but here there are all the function that you need to do what you want.

Hi!

Edited February 20, 2013 by Nessie

[Centrally]

Something like that:

#include <File.au3>
$file_database = @ScriptDir & "\email_database.txt"
$file_found = @ScriptDir & "\found_email_database.txt"

Global $open_file_database = FileOpen($file_database, 1)
Global $open_file_found = FileOpen($file_found, 1)


For $i = 0 To _FileCountLines($file_database)
$line = FileReadLine($open_file_database, $i)

If StringInStr($line, "@gmail") Then
FileWriteLine($open_file_found, $line)
EndIf
Next

!!WARNING!! I have not tested this code, but here there are all the function that you need to do what you want.

Hi!

I've tried it and it simply does nothing. Something is not right.

[Nessie]

#include <File.au3>
$file_database = @ScriptDir & "\email_database.txt"

$file_found = @ScriptDir & "\found_email_database.txt"

Global $open_file_found = FileOpen($file_found, 1)
Local $found_email_number = 0

For $i = 0 To _FileCountLines($file_database)
$line = FileReadLine($file_database, $i)
If StringInStr($line, "@gmail") Then
$found_email_number += 1
FileWriteLine($open_file_found, $line)
EndIf
Next

FileClose($open_file_found)

If $found_email_number > 0 Then
MsgBox(0, "Done", "Found " & $found_email_number & " email.")
Else
MsgBox(0, "Error", "No email found.")
EndIf

Tested and working well.

Hi!

Edited February 20, 2013 by Nessie

[Centrally]

....

Yeah it's working fine now, really thank you for your fast help.

[Nessie]

Glad to help you, take a look to my previous message, as i modified a little bit the code

Hi!