XProfan

Deutsch

Normann
Strübli

Hallöchen,

Habe mal aus langeweile angefangen einen IMDB (Internet Movie Database) parser zu schreiben.

Ich wollte das bei meinem Mediacenter bei neu eingelegter DVD die Datenbank abgefragt wird, man zwischen
den Ergebnissen auswählen kann und das Programm dann einen entsprechenden Ordner erstellt um
die Dateien dort hinein zu kopieren.

Das ganze ist noch wirklich primitiv gehalten, im Augenblick werden auch ähnliche Filmtitel gesucht und
angezeigt. Das ganze wird noch erweitert, würd mich nur interessieren ob es bei euch soweit funzt.

Oder mal ganz anders gefragt - kennt jmd. eine andere (elegantere)Möglichkeit so etwas abzufragen - dann
könnte ich mir die Arbeit sparen...

Der Quelltext is auch noch nicht sooo schön (muss nach der langen Pause erstmal wieder reinkommen

)

Kompilieren Markieren Separieren

Declare Film$,imdb_url$,imdb_data$
Declare pos1&,pos2&,cover$,name$
Declare found&,string$
CLS
Film$ = @Input$("Filmtitel eingeben","Imdb Suche","")

If Film$ <> ""

    imdb_url$ = "https://www.imdb.de/find?s=tt&q=" + Film$

else

    end

endif

@downloadfile(imdb_url$)

while %Loading

endwhile

if @instr("Keine Treffer", $Download)

    print "Nichts gefunden"

elseif @instr("teilweise Treffer gefunden", $Download)

    print "Zu Viele Treffer"

else

    pos1& = @InStr("Ergebnis", $Download)
    found& = @Val(@Mid$($Download,pos1& - 2,2))   wie viele gefunden
    print found& + " Treffer"
    print ""
    string$ = @SUBSTR$(@Right$($Download, @len($Download) - pos1&),1,"/table")

    whileloop found&

        pos2& = @InStr("href=q/title/", string$)
        cover$ =  @Mid$(string$,pos2& + 13,9)
        name$ = @SUBSTR$(@Mid$(string$,@InStr(cover$+ "/q>" , String$) + 12,50),1,"<")
        Deutsche Sonderzeichen - und Umlaute einsetzen
        string$ = @Right$(string$, @len(string$) - @InStr(name$, string$))
        name$ = @Translate$(name$,"ß","ß")
        name$ = @Translate$(name$,"Ä","Ä")
        name$ = @Translate$(name$,"ä","ä")
        name$ = @Translate$(name$,"ü","ü")
        name$ = @Translate$(name$,"Ü","Ü")
        name$ = @Translate$(name$,"ö","ö")
        name$ = @Translate$(name$,"Ö","Ö")
        print cover$ + " >" + name$
        dec found&

    endwhile

endif

waitinput
end