XProfan

English

Normann
Strübli

Hallöchen,

have time from langeweile started a IMDB (internet Movie Database) parser To write.

I wanted to the with my Mediacenter with new eingelegter DVD The data base quizzed becomes, one between
whom Ergebnissen select can and the Program then a suitable Ordner prepares circa
The Files there into To copy.

the whole is yet really primitiv held, in the moment go too similar Filmtitel sought and
displayed. the whole becomes yet extended, würd me only interested whether it with you so far working.

or time quite different demand - knows jmd. another (elegantere)Possibility such a thing abzufragen - then
could I me The work save...

The View source is too not yet sooo beautiful (must to the long interval first again reinkommen

)

Compile Mark Separation

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 hits gefunden", $Download)

    print "Zu many Treffer"

else

    pos1& = @InStr("Ergebnis", $Download)
    found& = @Val(@Mid$($Download,pos1& - 2,2))   How many found
    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 - and Umlaute bring into action
        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