6 replies to this topic

[Delusion]

QuickSubs v1.1 by Alex Sotirakis (Delusion)
Fast and Small Subtitle Finder for opensubtitles.org

Usage : Simply select a video file on windows explorer and hit Ctrl+Shift+S

#NoEnv
#SingleInstance Force

~^+s::QuickSubs()

QuickSubs($SubtitleLanguage = "all") {
  ;QuickSubs v1.1 by Alex Sotirakis (Delusion)
  ;Created on : 21/04/2012 Last Modified : 23/04/2012
  $ClipBack := ClipboardAll, Clipboard := ""
  Send ^c
  ClipWait 2
  StringSplit $VideoFile, Clipboard, `n, `r
  IF ($VideoFile0 != 1) {
    TrayTip, QuickSubs, Error : Incorrect number of files passed. Please select one video file!, 5, 2
    RETURN
  } ELSE SplitPath, $VideoFile1, $VideoFile1Name, , $VideoFile1Ext, ,
  IF InStr(",avi,mkv,mp4,mpg,wmv,divx,mov,mpeg,wmp,flv,vob,", "," $VideoFile1Ext ",") {
    FileGetSize, $VideoSize, % $VideoFile1
    Run % "http://www.opensubtitles.org/en/search/sublanguageid-" . $SubtitleLanguage . "/moviebytesize-" . $VideoSize,, UseErrorLevel
    TrayTip, QuickSubs, % ErrorLevel ? "Error : There was a problem with the subtitle search!" : "Searching [" . $SubtitleLanguage . "] subtitles for the video file : [" . $VideoFile1Name . "]", 5, % ErrorLevel ? 3 : 1
  } ELSE {
    TrayTip, QuickSubs, Error : You have passed incorrect file types. Please select one video file!, 5, 2
    RETURN
  }
  Clipboard := $ClipBack 
}

/*
Supported ISO639 Language Codes

all All Languages
alb	Albanian
ara	Arabic
arm	Armenian
baq	Basque 
ben	Bengali
bos	Bosnian
bre	Breton
bul	Bulgarian
cat	Catalan
chi	Chinese
cze	Czech
dan	Danish
dut	Dutch
eng	English
epo	Esperanto
est	Estonian
fin	Finnish
fre	French
geo	Georgian
ger	German
glg	Galician
ell	Greek
heb	Hebrew
hin Hindi
hrv	Croatian
hun	Hungarian
ice	Icelandic
ind	Indonesian
ita	Italian
jpn	Japanese
kaz	Kazakh
khm	Khmer
kor	Korean
lav	Latvian
lit	Lithuanian
ltz	Luxembourgish
mac	Macedonian
may Malay
nor	Norwegian
oci	Occitan
per	Persian
pol	Polish
por	Portuguese
rus	Russian
scc	Serbian
sin	Sinhalese
slo	Slovak
slv	Slovenian
spa	Spanish
swa	Swahili
swe	Swedish
syr	Syriac
tgl	Tagalog
tha	Thai
tur	Turkish
ukr	Ukrainian
urd	Urdu
vie	Vietnamese
rum	Romanian
pob	Brazilian
*/

Nothing special.But i use it alot lately and i thought i will share it.Maybe someone will find it usefull

[Nazzal]

Thanks for the idea Delusion, here is my version, simple and short..

FindSub(Language = "All") {
	SavedClip:= Clipboard, Clipboard:= ""
	Send ^c
	ClipWait, 4
	SplitPath, Clipboard, OutFileName, , Ext
	If !Instr(",avi,mkv,mp4,mpg,wmv,divx,mov,mpeg,wmp,flv,vob,", "," Ext ",")
		Return
	FileGetSize, Size, %Clipboard%
	Run % "http://www.opensubtitles.org/en/search/sublanguageid-" Language "/moviebytesize-" Size,, UseErrorLevel
	TrayTip, OpenSubtitles, % ErrorLevel ? "Error running search link!" : "`nLanguage:`t" Language "`nFile:`t`t" OutFileName, 5, % ErrorLevel ? 3 : 1
	Clipboard := SavedClip
	}

[Delusion]

thanks for your idea! i striped down my code a little also using some things from your version