XProfan

Déclarer film$,imdb_url$,imdb_data$
Déclarer pos1&,pos2&,cover$,nom$
Déclarer found&,string$
CLS
Film$ = @Contribution$("Filmtitel eingeben","Imdb Suche",»)

Si film$ <> »

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

d'autre

    end

endif

@downloadfile(imdb_url$)

tandis que %Loading

endwhile

si @instr("Keine Treffer", $Télécharger)

    imprimer "Nichts gefunden"

elseif @instr("teilweise Treffer gefunden", $Télécharger)

    imprimer "Zu Viele Treffer"

d'autre

    pos1& = @InStr("Ergebnis", $Télécharger)
    found& = @Val(@Mid $($Télécharger,pos1& - 2,2))   comment viele trouvé
    imprimer found& + " Treffer"
    imprimer »
    string$ = @SUBSTR$(@Right$($Télécharger, @len($Télécharger) - pos1&),1,"/table")

    whileloop found&

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

    endwhile

endif

waitinput
end