XProfan

Español

Normann
Strübli

Hallöchen,

Posesiones veces de langeweile angefangen una IMDB (Internet Movie Database) parser a escribir.

Yo quería en el mi Mediacenter en neu eingelegter DVD el Datenbank abgefragt se, uno zwischen
el Ergebnissen auswählen kann y el Programa entonces una entsprechenden Ordner erstellt en
el Archivos hay hinein a kopieren.

Das todo es todavía wirklich primitiv mantenido, en el Augenblick voluntad auch ähnliche Filmtitel gesucht y
adecuado. Das todo se todavía erweitert, würd mich sólo interés si en euch soweit funzt.

Oder veces bastante anders gefragt - sabe jmd. una otro (elegantere)Möglichkeit así algo abzufragen - entonces
podría Yo el Arbeit sparen...

Der Ver código fuente is auch todavía no sooo schön (muss después de el langen Pause primero otra vez reinkommen

)

Kompilieren Marca Separación

Declarar Film$,imdb_url$,imdb_data$
Declarar pos1&,pos2&,cover$,name$
Declarar found&,cadena$
CLS
Film$ = @Entrada$("Filmtitel eingeben","Imdb Suche","")

If Film$ <> ""

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

más

    end

endif

@downloadfile(imdb_url$)

mientras que %Loading

endwhile

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

    imprimir "Nichts gefunden"

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

    imprimir "Zu Viele Treffer"

más

    pos1& = @InStr("Ergebnis", $Descargar)
    found& = @Val(@Mid$($Descargar,pos1& - 2,2))   como viele gefunden
    imprimir found& + " Treffer"
    imprimir ""
    cadena$ = @SUBSTR$(@Right$($Descargar, @len($Descargar) - pos1&),1,"/table")

    whileloop found&

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

    endwhile

endif

waitinput
end