ive got your prog
Quick & dirty in AutoIt. MSN me for the executable.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!")
Results 1 to 20 of 20
Thread: @Zanabar
Threaded View
- 06 Jul. 2012 11:27pm #1
@Zanabar
Last edited by The Unintelligible; 06 Jul. 2012 at 11:35pm.