Welcome, guest! Did you know that Logical Gamers offers a variety of features to registered users? These include free giveaways, contests for prizes, a currency system, the ability to trade in the Marketplace, access to game hacks and exploits, and much more! Registration is quick, easy, and free!
Originally Posted by The Unintelligible ive got your prog Code: #include <File.au3> Local $sDialog Local $sDir Local $sLine Local $sEmail Local $sBuff $sDialog = FileOpenDialog("File Parser v0.1 | Select File Containing Data (.txt)", _ @ScriptDir & "\", "Text Files (*.txt)", 5) $sDir = StringReplace($sDialog, "|", @CRLF) For $i = 0 To _FileCountLines($sDir) $sLine = FileReadLine($sDir, $i) If StringInStr($sLine, "Email =") Then $sEmail = StringStripWS(StringReplace($sLine, "Email =", ""), 8) & @CRLF $sBuff &= $sEmail EndIf Next FileWrite(@ScriptDir & "\Emails.txt", $sBuff & "----------------------------------------------") MsgBox(64, "Completed!", "Process successfully completed!") Quick & dirty in AutoIt. MSN me for the executable. This means i have to download autoit? CRYYYYYYYY. I'll message you when i get home from work though. Also, doesn't seem like you added the portion where it only filters out hotmail or yahoos.
#include <File.au3> Local $sDialog Local $sDir Local $sLine Local $sEmail Local $sBuff $sDialog = FileOpenDialog("File Parser v0.1 | Select File Containing Data (.txt)", _ @ScriptDir & "\", "Text Files (*.txt)", 5) $sDir = StringReplace($sDialog, "|", @CRLF) For $i = 0 To _FileCountLines($sDir) $sLine = FileReadLine($sDir, $i) If StringInStr($sLine, "Email =") Then $sEmail = StringStripWS(StringReplace($sLine, "Email =", ""), 8) & @CRLF $sBuff &= $sEmail EndIf Next FileWrite(@ScriptDir & "\Emails.txt", $sBuff & "----------------------------------------------") MsgBox(64, "Completed!", "Process successfully completed!")
Beginners Guide to Vending WIP
Forum Rules