Subhobroto

Hi, Here is a snippet from my program that helps me automate Telnet sessions using PuTTY. I would be releasing that app here, but for now, here is something useful from there: #cs Busy wait on window having windowTitle and belonging to process with PID processPID. Time out timeoutSeconds in seconds Returns -1 if timed out #ce Func BusyWaitOnWindow($processPID, $windowTitle, $timeoutSeconds) Local $multiplierValue = 1000; Local $timeOut = $timeoutSeconds; Local $puttyHWND = -1; While ((0 <> $timeOut) AND (-1 == $puttyHWND)) ; Find out the program by finding programs that have this title ; check if the PID of that window matches the PID of the spawned process ; if so, we have found our window ; NOTE: Winwait will return (prematurely) if a window with same title exists Winwait($windowTitle); If multiple instances of this script is spawned extremely fast (2 or more scripts per second), it gets hung here because the title changes to something unexpected (window title resembles log filename) ; I believe this has to do with the way ControlSendPlus.au3 modifies the global key state, thus effectively changing the sequence of commands sent versus what this script is supposed to generate Local $matchingWindows = WinList($windowTitle) If 0 == $matchingWindows[0][0] Then MsgBox(0, "Details", "NO matching window titles! Will continue busy wait for " & $timeOut & " more seconds..", 1) $timeOut -= 1; Sleep($multiplierValue); ContinueLoop EndIf For $dx = 1 to $matchingWindows[0][0] If WinGetProcess($matchingWindows[$dx][1]) == $processPID Then $puttyHWND = $matchingWindows[$dx][1]; ExitLoop EndIf Next WEnd If NOT IsHWnd($puttyHWND) Then MsgBox(4096, "", $PuttyHWND & " - It's not a HWND") $puttyHWND = -1; EndIf return $puttyHWND; EndFunc

Hi I implemented the line counting in PERL because I did not have much time to whip it up in C++ or AutoIt. The bonus of this code is I get to show people how to embed PERL in AutoIt :-) Ah - but that means to do so/try out this example, you need ActivePerl to be installed on your system (but how does not ;-) ) Altough I did not compare the test results of the other functions, I would believe MrCreatoR's matches mine so far. His results will differ with mine only in those cases where we don't want to count trailing blank. Infact I will be interested in knowing why would anyone want to dismiss count trailing blank line? Anyways, here is the code: CODEFunc LineCountPerl($sFilePath, $ignoreTrailingBlankLine = 0) Local $oSC = ObjCreate("ScriptControl") $oSC.language = "PerlScript" Local $code = 'sub countLines{' $code &= @LF & '$/ = undef;' $code &= @LF & 'open INPUTFILE, $_[0] or return 0;' $code &= @LF & 'binmode INPUTFILE;' $code &= @LF & 'my $inputLine = <INPUTFILE>;' $code &= @LF & 'return 0 if (0 == length($inputLine));' $code &= @LF & 'my $count = 1 + ($inputLine =~ tr/\x0D//);' $code &= @LF & 'while ($inputLine =~ /[^\x0D]\x0A/g) { ++$count; }' $code &= @LF & 'my $last2Characters = (unpack("x" . (length($inputLine) - 2) . " a2", $inputLine));' $code &= @LF & 'if ((unpack("x1 a1", $last2Characters) =~ tr/\x0D\x0A//) && ($last2Characters =~ tr/\x0D\x0A//))' $code &= @LF & '{' $code &= @LF & '--$count if (1 == ' & $ignoreTrailingBlankLine & ');' $code &= @LF & '}' $code &= @LF & 'close INPUTFILE;' $code &= @LF & 'return $count;' $code &= @LF & '}' $oSC.addcode($code); return $oSC.eval('countLines("' & $sFilePath & '");'); EndFunc Attached is the updated POC with other's code too. I have not attached the test files, but screenshots are attached for proof ;-)

This function is indeed useful, but for some reason, all the code given so far seem to be buggy in some respect! A correct algorithm to count the number of lines for a DOS/UNIX based system: 1. count all the @CR 2. count all the @LF NOT preceeded immediately by a @CR 3. Increment the sum of above counts by one 4. If the user does not want to count trailing blank line as a line, and if last 2 characters in the file is either of the above characters, decrement the sum above by one. All this can be done in one pass instead of multiple passes by implementing a state machine. However, just to demonstate that the above algorithm is workable, I have hacked up a solution and not implemented it as a FSM yet - I will, when it's demonstrated by others tobe correct. I have mailed you the code.. have a go at it >_<