Subtitle time generator

[Lakes]

A very rough script which needs more work on the time roll over, but I noticed that stringformat prints odd characters sometimes,

expandcollapse popup

Run("notepad.exe")

$hWnd = WinWaitActive("[CLASS:Notepad]")

    $hrs  = 0
    $mins = 0
    $secs = 0
    $StartCount = 0

For $iCount = 1 To 120
ControlSend($hWnd, "", "Edit1", StringFormat("%02i", $iCount))
ControlSend($hWnd, "", "Edit1", "{ENTER}")

;Sends 00:00:00:000 ---> 00:00:01:000
ControlSend($hWnd, "", "Edit1", StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs, 000))
ControlSend($hWnd, "", "Edit1"," ---> " &StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs+1, 000))

ControlSend($hWnd, "", "Edit1", "{ENTER}")
ControlSend($hWnd, "", "Edit1", StringFormat("%02i:%02i", $mins, $secs))

ControlSend($hWnd, "", "Edit1", "{ENTER}")
ControlSend($hWnd, "", "Edit1", "{ENTER}")
    $StartCount += 1
    $secs += 1
    if $secs > 59 then
        $secs = 0
        $mins = $secs/60
    EndIf
    If $mins > 59 then
        $secs = 0
        $mins = $secs/60
        $hrs  = $mins/60
        EndIf
Next
ControlSend($hWnd, "", "Edit1", "Finished!")

#cs
1
00:00:00,000 --> 00:00:01,000
1:00:00
#ce

 

[BrewManNH]

What do you mean by "odd characters"?

[Lakes]

Sometimes it prints a random character in the output to notepad, it's probably a fault in my script.

Quote

118
00:00:57:000 ---> 00:00:58:000
00:57

119
00:00:58:000 ---> 00:00:59:000
00:58

120
00:0):%(:000 ---> 00:00:60:000
00:59

 

[BrewManNH]

Does this need to output to Notepad?

expandcollapse popup

#include <FileConstants.au3>

$hrs = 0
$mins = 0
$secs = 0
$StartCount = 0
;~ Using ConsoleWrite
For $iCount = 1 To 120
    ConsoleWrite(StringFormat("%02i", $iCount) & @CRLF)

    ;Sends 00:00:00:000 ---> 00:00:01:000
    ConsoleWrite(StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs, 000) & @TAB & "---> " & StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs + 1, 000) & @CRLF)

    ConsoleWrite(StringFormat("%02i:%02i", $mins, $secs) & @CRLF)

    $StartCount += 1
    $secs += 1
    If $secs > 59 Then
        $secs = 0
        $mins = $secs / 60
    EndIf
    If $mins > 59 Then
        $secs = 0
        $mins = $secs / 60
        $hrs = $mins / 60
    EndIf
Next
ConsoleWrite("Finished!" & @CRLF)

;~ Or you can write it to a file
$hrs = 0
$mins = 0
$secs = 0
$StartCount = 0
Global $hFile = FileOpen("File.txt", $FO_OVERWRITE )
For $iCount = 1 To 120
    FileWriteLine($hFile, StringFormat("%02i", $iCount))

    ;Sends 00:00:00:000 ---> 00:00:01:000
    FileWriteLine($hFile, StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs, 000) & @TAB & "---> " & StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs + 1, 000) )

    FileWriteLine($hFile, StringFormat("%02i:%02i", $mins, $secs) )

    $StartCount += 1
    $secs += 1
    If $secs > 59 Then
        $secs = 0
        $mins = $secs / 60
    EndIf
    If $mins > 59 Then
        $secs = 0
        $mins = $secs / 60
        $hrs = $mins / 60
    EndIf
Next
FileWriteLine($hFile, "Finished!" )
FileClose($hFile)
ShellExecute("File.txt")
#cs
    1
    00:00:00,000 --> 00:00:01,000
    1:00:00
#ce

 

[Lakes]

Not at all, many thanks.

[Lakes]

Needs a bit of tweaking to get to the full hour, but this does the job for now.

expandcollapse popup

#include <FileConstants.au3>

$hrs = 0
$mins = 0
$secs = 0
$StartCount = 0
Global $hFile = FileOpen("File.txt", $FO_OVERWRITE )

For $iCount = 1 To 3599
    FileWriteLine($hFile, StringFormat("%03i", $iCount))

    ;Sends 00:00:00:000 ---> 00:00:01:000
    FileWriteLine($hFile, StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs, 000) & @TAB & "---> " & StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs + 1, 000) )

    FileWriteLine($hFile, StringFormat("%02i:%02i", $mins, $secs) )

    $StartCount += 1
    $secs += 1
    if $secs > 59 then
        $secs = 0
        $mins +=1
    EndIf
    If $mins > 59 then
        $secs = 0
        $mins = 0
        $hrs  +=1
    EndIf
Next
FileWriteLine($hFile, "Finished!" )
FileClose($hFile)
ShellExecute("File.txt")

#cs
    1
    00:00:00,000 --> 00:00:01,000
    1:00:00
#ce