Guest
|
 Posted: Fri Feb 27, 2009 6:54 pm Post subject: Subtitle framerate changer (Srt, FPS) |
 |
|
Subtitle (.srt) framerate changer v1.0
With this you can convert between different subtitle framerates.
Features:
- batch convert (single file mode/multiple files mode)
- drag and drop mode
- supported formats: Subrip (.srt) !!
- built-in framerates: 30.000, 29.97, 25.000, 24.000, 23.99, 23.978, 23.976, 20, 15.000, 12.000, custom
Todo: add more supported formats, add synchronization feature
Download the compiled exe from here: http://www.autohotkey.net/~gahks/subframerate.exe
Download the source from here: http://www.autohotkey.net/~gahks/subframerate.ahk
It works through srtrate.exe (http://subtools.sf.net/) with FileInstall, so if you're gonna compile it from source you're gonna need srtrate.exe.
Srtrate.exe for compiling: http://www.autohotkey.net/~gahks/srtrate.exe or http://subtools.sf.net/
The Ico file: http://www.autohotkey.net/~gahks/subframerate.ico
Tested on WindowsXP Pro SP2.
Full Code:
| Code: |
;///////////////////////////////////////////////////////
; Script created by GAHKS (2009) http://www.autohotkey.net/~gahks/
; Core exe (srtrate.exe) created by http://subtools.sf.net/
; Subtitle framerate converter v 1.0
;///////////////////////////////////////////////////////
;///////////////////
; INCLUDES VARS AND OPTIONS
script_name = Subtitle framerate changer
SetTitleMatchMode, 3
dragdropmode_active = 0
about_exists = 0
help_exists = 0
FileInstall, srtratesrc.exe, %A_ScriptDir%\srtrate.exe
;///////////////////
; TRAY MENU
Menu, tray, NoStandard
Menu, TrayFileMenu, add, &Select a single file, InputBrowse
Menu, TrayFileMenu, add, Select &multiple files, Input2Browse
Menu, tray, add, &File, :TrayFileMenu
Menu, tray, add,
Menu, tray, add, &Drag and drop mode, DragDrop
Menu, TrayHelpMenu, add, &Help, Help
Menu, TrayHelpMenu, add, &About, About
Menu, tray, add, &Help, :TrayHelpMenu
Menu, tray, add,
Menu, tray, add, E&xit, Ex
;///////////////////
; GUI
Menu, FileMenu, add, &Select a single file, InputBrowse
Menu, FileMenu, add, Select &multiple files, Input2Browse
Menu, FileMenu, add,
Menu, FileMenu, add, E&xit, Ex
Menu, GuiMenuBar, add, &File, :FileMenu
Menu, DragDropMenu, add, A&ctivate, DragDrop
Menu, GuiMenuBar, add, &Drag and Drop, :DragDropMenu
Menu, HelpMenu, add, &Help, Help
Menu, HelpMenu, add, &About, About
Menu, GuiMenuBar, add, &Help, :HelpMenu
;TABS, FIRST TAB
Gui, Add, Tab2, w330 h430 vGuiTab, &Single file|&Multiple Files|
Gui, Add, Text, x+10 y+10, Select an input file
Gui, Add, Edit, vinput_b_input xp+10 yp+20 w240 h20,
Gui, Add, Button, gInputBrowse vbutton_b_input xp+240 yp+0 w50 h20, &Browse
GuiControl, Focus, button_b_input
Gui, Add, Text, xp-250 y+10, Select an output folder
Gui, Add, Edit, vinput_b_output xp+10 yp+20 w240 h20,
Gui, Add, Button, gOutputBrowse vbutton_b_output xp+240 yp+0 w50 h20, B&rowse
Gui, Add, ComboBox, vinput_fps_input xp-240 y+30 w100, 30.000|29.97|25.000||24.000|23.99|23.978|23.976|20|15.000|12.000
Gui, Add, Text, xp+110 yp+0, Choose Input FPS
Gui, Add, ComboBox, vinput_fps_output xp-110 yp+30 w100, 30.000|29.97|25.000||24.000|23.99|23.978|23.976|20|15.000|12.000
Gui, Add, Text, xp+110 yp+0, Choose Output FPS
Gui, Add, Button, gConvert vbutton_ok xp-110 yp+50 w70 h20, Conver&t
Gui, Add, Button, gEx vbutton_cancel xp+90 yp+0 w70 h20, Cance&l
;TABS, 2ND TAB
Gui, Tab, 2
Gui, Add, Text, x+10 y+10, Select input files (All files must be the same FPS)
Gui, Add, Button, gInput2Browse vbutton2_b_input xp+250 yp+0 w50 h20, Browse
Gui, Add, Edit, vinput2_b_input xp-240 yp+30 w290 h150 -Wrap Multi,
GuiControl, Focus, button2_b_input
Gui, Add, Text, xp-10 yp+170, Select an output folder
Gui, Add, Edit, vinput2_b_output xp+10 yp+20 w240 h20,
Gui, Add, Button, gOutput2Browse vbutton2_b_output xp+240 yp+0 w50 h20, Browse
Gui, Add, ComboBox, vinput2_fps_input xp-240 y+30 w100, 30.000|29.97|25.000||24.000|23.99|23.978|23.976|20|15.000|12.000
Gui, Add, Text, xp+110 yp+0, Choose Input FPS
Gui, Add, ComboBox, vinput2_fps_output xp-110 yp+30 w100, 30.000|29.97|25.000||24.000|23.99|23.978|23.976|20|15.000|12.000
Gui, Add, Text, xp+110 yp+0, Choose Output FPS
Gui, Add, Button, gConvert2 vbutton2_ok xp-110 yp+50 w70 h20, Convert
Gui, Add, Button, gEx vbutton2_cancel xp+90 yp+0 w70 h20, Cancel
;SHOW MENU, SHOW GUI
Gui, Menu, GuiMenuBar
Gui, Show, w350 h450, %script_name%
return
;ON DRAG AND DROP EVENT
GuiDropFiles:
Gui +OwnDialogs
If dropped_file_list <>
{
MsgBox, 35, Warning!, The list isn't blank. Should I add the files to the list?`n`nAdd the files to the list (Press YES)`nReplace the files on the list with the new ones (Press NO)`nNeither one / I don't know (Press CANCEL)
IfMsgBox, Cancel
return
IfMsgBox, No
dropped_file_list =
}
Loop, parse, A_GuiEvent, `n
{
dropped_file_list = %dropped_file_list%%A_LoopField%`n
}
GuiControl, Choose, GuiTab, 2
GuiControl,, input2_b_input, %dropped_file_list%
return
;GUI-> ABOUT
About:
If about_exists = 1
WinActivate, About %script_name%
Else
{
about_exists = 1
Gui, 1:+Disabled
Gui, 3:Destroy
help_exists = 0
Gui, 2:+owner1
Gui, 2:Add, Text,xp+10 yp+10,2009 (C) Gahks, subtools
Gui, 2:Add, Text,xp+0 yp+30, Core exe - srtrate.exe - created by:
Gui, 2:Add, Text, cBlue g2LaunchSubtools, http://subtools.sourceforge.net/
Gui, 2:Add, Text, xp+0 yp+30, GUI created by GAHKS in Autoit scripting language
Gui, 2:Add, Text, cBlue g2LaunchGahks, http://www.autohotkey.net/~gahks/
Gui, 2:Add, Button, g2CloseAbout vbutton3_cancel x+50 yp+30 w70 h20, Cancel
Gui, 2:Show, w330 h200, About %script_name%
GuiControl, 2:Focus, button3_cancel
}
return
2CloseAbout:
2GuiClose:
Gui, 1:-Disabled
Gui, 2:Destroy
about_exists = 0
return
2LaunchSubtools:
Run, http://subtools.sourceforge.net/
return
2LaunchGahks:
Run, http://www.autohotkey.net/~gahks/
return
;GUI-> HELP
Help:
If help_exists = 1
WinActivate, %script_name% Help
Else
{
help_exists = 1
Gui, 1:+Disabled
Gui, 2:Destroy
about_exists = 0
Gui, 3:+owner1
Gui, 3:Add, Text,xp+10 yp+10 w300, Single file mode:`nSelect the subtitle file you want to convert.`nThe file format must be .srt!`nSelect a folder: the program will put the converted subtitles here.`nSet the framerate - FPS - of the input sub. and the framerate of the movie to which you want to adjust your subtitle file.`nIf you don't select an output folder, the program will put the converted subtitle files here: [Input_subtitle_files_folder]\converted_subtitles.
Gui, 3:Add, Text,xp+0 yp+140 w300, Multiple files mode:`nSame as above, only here you can select and convert multiple subtitle files at once. You can Drag'N'Drop srt files to the list.
Gui, 3:Add, Text,xp+0 yp+50 w300, File menu, Drag and drop mode:`nIf you activate this option, the windows will be always on top, until you deactivate it.
Gui, 3:Add, Text,xp+0 yp+50 w300, More about subtitles and framerates:
Gui, 3:Add, Text,yp+15 cBlue g3LaunchSubinfo, http://www.doom9.org/sub.htm
Gui, 3:Add, Button, g3CloseHelp vbutton4_cancel x+50 yp+70 w70 h20, Cancel
Gui, 3:Show, w330 h380, %script_name% Help
GuiControl, 3:Focus, button4_cancel
}
return
3CloseHelp:
3GuiClose:
Gui, 1:-Disabled
Gui, 3:Destroy
help_exists = 0
return
3LaunchSubinfo:
Run, http://www.doom9.org/sub.htm
return
;DRAG AND DROP ACTIVATE/DEACTIVATE
DragDrop:
If dragdropmode_active = 0
{
dragdropmode_active = 1
Menu, DragDropMenu, Check, A&ctivate
Menu, Tray, Check, &Drag and drop mode
WinSet, AlwaysOnTop, On, %script_name%
GuiControl, Choose, GuiTab, 2
}
Else
{
dragdropmode_active = 0
Menu, DragDropMenu, Uncheck, A&ctivate
Menu, Tray, Uncheck, &Drag and drop mode
WinSet, AlwaysOnTop, Off, %script_name%
}
return
;/////////////////////////
; MAINGUI FUNCTIONS
; SINGLE FILE TAB FUNCTIONS
;/////////////////////////
InputBrowse:
Gui +OwnDialogs
WinSet, AlwaysOnTop, Off
FileSelectFile, dialog_b_input, 3, %A_Desktop%, Select input subtitle file..., Subtitle files (*.srt)
If dialog_b_input =
Return
GuiControl,, input_b_input, %dialog_b_input%
If dialog_b_input <>
GuiControl, Focus, button_b_output
WinActivate, %script_name%
If dragdropmode_active = 1
WinSet, AlwaysOnTop, On
GuiControl, Choose, GuiTab, 1
return ;END InputBrowse
OutPutBrowse:
Gui +OwnDialogs
WinSet, AlwaysOnTop, Off
FileSelectFolder, dialog_b_output,, 1, Select output folder...
If dialog_b_output =
Return
GuiControl,, input_b_output, %dialog_b_output%
GuiControlGet, read_input_b_input,, input_b_input
GuiControlGet, read_input_b_output,, input_b_output
If read_input_b_input =
GuiControl, Focus, button_b_input
Else If read_input_b_output =
GuiControl, Focus, button_b_output
Else
GuiControl, Focus, input_fps_input
WinActivate, %script_name%
If dragdropmode_active = 1
WinSet, AlwaysOnTop, On
GuiControl, Choose, GuiTab, 1
return ;END OutPutBrowse
Convert:
Gui +OwnDialogs
WinSet, AlwaysOnTop, Off, %script_name%
GuiControlGet, convert_file_input,, input_b_input
GuiControlGet, convert_file_output,, input_b_output
GuiControlGet, convert_fps_input,, input_fps_input
GuiControlGet, convert_fps_output,, input_fps_output
If convert_file_input =
{
MsgBox, 48, Cannot proceed, Select a subtitle file (.srt) to convert and an output folder!
Return
}
StringSplit, substrings_inputpath, convert_file_input, \
substrings_inputpath_last = %substrings_inputpath0%
output_filename := substrings_inputpath%substrings_inputpath_last%
nr_of_loops := substrings_inputpath_last
convert_file_out =
Loop
{
If a_index >= %nr_of_loops%
break
convert_file_out := convert_file_out "\" substrings_inputpath%a_index%
}
StringTrimLeft, convert_file_out_trimmed, convert_file_out, 1
If convert_file_output =
{
convert_file_output = %convert_file_out_trimmed%\converted_subtitles
FileCreateDir, %convert_file_output%
}
Else If convert_file_output = %convert_file_out_trimmed%
{
MsgBox, 52, Warning!, The input folder and the output folder is the same. This way the selected subtitle file will be overwritten.`nDo you proceed?
IfMsgBox, No
{
convert_file_output = %convert_file_out_trimmed%\converted_subtitles
MsgBox, 64, Output folder changed, The subtitle file will be converted to this folder:`n%convert_file_output%
FileCreateDir, %convert_file_output%
}
}
convert_filepath_output := convert_file_output "\" output_filename
Gui, 1:+Disabled
Menu, Tray, Disable, &File
Menu, Tray, Disable, &Help
Menu, Tray, Disable, &Drag and drop mode
WinGetPos, X,Y, Width,, %script_name%
Gui, 4:+owner1
Gui, 4:-0xC00000
Gui, 4:+0x800000
Gui, 4:Font, s12,
Gui, 4:Add,Text,x+80 y+50,Conversion in progress...
Gui, 4:Show, x%X% y%Y% w%Width% h130,Conversion in progress...
WinSet, AlwaysOnTop, Off,,Conversion in progress...
WinMove,,Conversion in progress..., %X%, Y+140,
WinActivate,, Conversion in progress...
RunWait, %A_ScriptDir%\srtrate.exe "%convert_fps_input%" "%convert_fps_output%" "%convert_file_input%" "%convert_filepath_output%",,Hide
Gui, 4:Destroy
Gui, 1:-Disabled
Menu, Tray, Enable, &File
Menu, Tray, Enable, &Help
Menu, Tray, Enable, &Drag and drop mode
MsgBox, 68, Done!, Conversion done. Your converted file is in:`n%convert_file_output%`nWould you like to open the folder now?
IfMsgBox, Yes
Run, explorer.exe %convert_file_output%
WinActivate, %script_name%
If dragdropmode_active = 1
WinSet, AlwaysOnTop, On, %script_name%
return ;END Convert
;/////////////////////////
; MAINGUI FUNCTIONS
; MULTIPLE FILES TAB FUNCTIONS
;/////////////////////////
Input2Browse:
Gui +OwnDialogs
WinSet, AlwaysOnTop, Off
FileSelectFile, dialog2_b_input, M3, %A_Desktop%, Selext two or more subtitle files..., Subtitle files (*.srt)
If dialog2_b_input =
Return
GuiControlGet, i2_b_i_blank,, input2_b_input
add_to_list =
If i2_b_i_blank <>
{
MsgBox, 35, Warning!, The list isn't blank. Should I add the files to the list?`n`nAdd the files to the list (Press YES)`nReplace the files on the list with the new ones (Press NO)`nNeither one / I don't know (Press CANCEL)
IfMsgBox, Cancel
return
IfMsgBox, Yes
add_to_list = yes
}
fullpath =
Loop, parse, dialog2_b_input, `n
{
If a_index = 0
{
dialog2_b_input_substrings_nr = %A_LoopField%
Continue
}
Else If a_index = 1
{
dialog2_b_input_folder = %A_LoopField%
Continue
}
fullpath = %fullpath%%dialog2_b_input_folder%\%A_LoopField%`n
}
If add_to_list = yes
fullpath = %i2_b_i_blank%%fullpath%
GuiControl,, input2_b_input, %fullpath%
GuiControl, Focus, button2_b_output
WinActivate, %script_name%
If dragdropmode_active = 1
WinSet, AlwaysOnTop, On
GuiControl, Choose, GuiTab, 2
return ;END Input2Browse
Output2Browse:
Gui +OwnDialogs
WinSet, AlwaysOnTop, Off
FileSelectFolder, dialog2_b_output,, 1, Select output folder...
If dialog2_b_output =
Return
GuiControl,, input2_b_output, %dialog2_b_output%
GuiControlGet, read_input2_b_input,, input2_b_input
GuiControlGet, read_input2_b_output,, input2_b_output
If read_input2_b_input =
GuiControl, Focus, button2_b_input
Else If read_input2_b_output =
GuiControl, Focus, button2_b_output
Else
GuiControl, Focus, input2_fps_input
WinActivate, %script_name%
If dragdropmode_active = 1
WinSet, AlwaysOnTop, On
GuiControl, Choose, GuiTab, 2
return ;END Output2Browse
Convert2:
Gui +OwnDialogs
WinSet, AlwaysOnTop, Off, %script_name%
GuiControlGet, convert2_file_input,, input2_b_input
GuiControlGet, convert2_file_output,, input2_b_output
GuiControlGet, convert2_fps_input,, input2_fps_input
GuiControlGet, convert2_fps_output,, input2_fps_output
If convert2_file_input =
{
MsgBox, 48, Cannot proceed, Select a subtitle file (.srt) to convert and an output folder!
Return
}
StringSplit, splitrows_c2_f_i, convert2_file_input, `n
StringSplit, splitunits_splitrows_c2_f_i, splitrows_c2_f_i1, \
convert2_file_inpath =
Loop {
If a_index = %splitunits_splitrows_c2_f_i0%
Break
convert2_file_inpath := convert2_file_inpath "\" splitunits_splitrows_c2_f_i%a_index%
}
StringTrimLeft, convert2_file_inpath_trimmed, convert2_file_inpath, 1
If convert2_file_output =
{
convert2_file_output = %convert2_file_inpath_trimmed%\converted_subtitles ;
FileCreateDir, %convert2_file_output%
}
Else If convert2_file_output = %convert2_file_inpath_trimmed%
{
MsgBox, 52, Warning!, The input files are in the output folder. They will be overwritten this way. Do you proceed?
IfMsgBox, No
{
convert2_file_output = %convert2_file_inpath_trimmed%\converted_subtitles ;
MsgBox, 64, Changed output folder, The output folder is changed to:`n%convert2_file_output%`n
FileCreateDir, %convert2_file_output%
}
}
Gui, 1:+Disabled
Menu, Tray, Disable, &File
Menu, Tray, Disable, &Help
Menu, Tray, Disable, &Drag and drop mode
WinGetPos, X,Y, Width,, %script_name%
Gui, 4:+owner1
Gui, 4:-0xC00000
Gui, 4:+0x800000
Gui, 4:Font, s12,
Gui, 4:Add,Text,x+80 y+50,Conversion in progress...
Gui, 4:Show, x%X% y%Y% w%Width% h130,Conversion in progress...
WinSet, AlwaysOnTop, Off,,Conversion in progress...
WinMove,,Conversion in progress..., %X%, Y+140,
WinActivate,, Conversion in progress...
Loop
{
If a_index > %splitrows_c2_f_i0%
Break
current_loop_item := splitrows_c2_f_i%a_index%
StringSplit, splitunits_current_loop_item, current_loop_item, \
last_loop_unit_nr = %splitunits_current_loop_item0%
filename_output := splitunits_current_loop_item%last_loop_unit_nr%
convert2_file_output_with_filename = %convert2_file_output%\%filename_output%
RunWait, %A_ScriptDir%\srtrate.exe "%convert2_fps_input%" "%convert2_fps_output%" "%current_loop_item%" "%convert2_file_output_with_filename%",, Hide
}
Gui, 4:Destroy
Gui, 1:-Disabled
Menu, Tray, Enable, &File
Menu, Tray, Enable, &Help
Menu, Tray, Enable, &Drag and drop mode
MsgBox, 68, Done!, Conversion done. Your converted files are in:`n%convert2_file_output%`nWould you like to open the folder now?
IfMsgBox, Yes
Run, explorer.exe "%convert2_file_output%"
WinActivate, %script_name%
If dragdropmode_active = 1
WinSet, AlwaysOnTop, On, %script_name%
Return ;END Convert2
;On Exit
Ex:
GuiClose:
FileDelete, %A_ScriptDir%\srtrate.exe
ExitApp
|
|
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
