You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
703 B
26 lines
703 B
2 years ago
|
Function LPad(s, l, c)
|
||
|
|
Dim n : n = 0
|
||
|
|
If l > Len(s) Then n = l - Len(s)
|
||
|
|
LPad = String(n, c) & s
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Dim ShowName, EpisodeCount, Season
|
||
|
|
ShowName = InputBox("Serienname")
|
||
|
|
EpisodeCount = CInt(InputBox("Wie viele Folgen benennen?"))
|
||
|
|
Season = InputBox("Staffel?")
|
||
|
|
|
||
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
||
|
|
WScript.Sleep 500
|
||
|
|
|
||
|
|
For CurrentEpisode = 1 to EpisodeCount
|
||
|
|
WScript.Sleep 100
|
||
|
|
WshShell.SendKeys "{F2}"
|
||
|
|
CurrentSeason = LPad(Season, 2, "0")
|
||
|
|
CurrentEpisodePadded = LPad(CStr(CurrentEpisode), 2, "0")
|
||
|
|
WshShell.SendKeys ShowName & " S" & CurrentSeason & "E" & CurrentEpisodePadded
|
||
|
|
WshShell.SendKeys "{DOWN}"
|
||
|
|
Next
|
||
|
|
|
||
|
|
WScript.Sleep 1000
|
||
|
|
MsgBox "DONE"
|