Lakes

Subtitle time generator

6 posts in this topic

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

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

 


2015 - Still no flying cars, instead blankets with sleeves.

Share this post


Link to post
Share on other sites



What do you mean by "odd characters"?


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

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

 


2015 - Still no flying cars, instead blankets with sleeves.

Share this post


Link to post
Share on other sites

Does this need to output to Notepad?

#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

 


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Not at all, many thanks.


2015 - Still no flying cars, instead blankets with sleeves.

Share this post


Link to post
Share on other sites

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

#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

 


2015 - Still no flying cars, instead blankets with sleeves.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now