Doom9 Italia https://forum.doom9.it/ |
|
ant movie catalog https://forum.doom9.it/viewtopic.php?t=10670 |
Pagina 2 di 4 |
Autore: | maudel [ lunedì 4 aprile 2005, 20:18 ] |
Oggetto del messaggio: | |
vers.3.5.0.0 (ultima ufficiale, non beta) accessori->scripting nella nuova finestra che appare selezioni FilmUp pulsante editor copi tutto (ma proprio tutto) l'ambaradan incolli sul vecchio script e salvi a me funziona...probabilmente è importante avere questa versione di Ant Version 3.5.0.0 - Complete package with installation (recommended) Version 3.5.0.0 - Complete package without installation (same as above, but as RAR file to expand manually) |
Autore: | rob [ lunedì 4 aprile 2005, 20:20 ] |
Oggetto del messaggio: | |
in teoria così dovrebbe funzionare accessori -> scripting -> editor -> apri (ctrl+o) -> salva con nome (nella cartella scripts di ant) -> nomeascelta.ifs non è tanto l'icona da prendere in considerazione, quanto l'estensione ke viene riconosciuta dal computer http://www.antp.be/temp/scripts/ (script originali) http://forum.antp.be/ (problemi&co.) Rob PS. probabilmente serve una versione AGGIORNATA |
Autore: | figaroli [ martedì 5 aprile 2005, 16:20 ] |
Oggetto del messaggio: | |
begin expected in linea 25 (errore) non funziona |
Autore: | figaroli [ martedì 5 aprile 2005, 16:34 ] |
Oggetto del messaggio: | |
Cita: begin expected in linea 25 (errore) non funziona rettifico con leditor ho ripulito il vecchio script completamente e ho incollato il nuovo ed ora funziona....una curiosità...qualcuno di voi riesce ad acquisire le info da script sul film the last sign?
|
Autore: | Pivello [ martedì 5 aprile 2005, 17:32 ] |
Oggetto del messaggio: | |
Ciao a tutti gli appassionati di AMC e dei suoi scripts in Inner-Pascal ------------------------------------------------------------------------------- Un paio di note sugli script della versione 3.5.0.0: A differenza dalla precedente versione 3.4.x non si può incollare semplicemente tutto il file nella finestra dell'editor degli script e salvare... questo perchè tra le prime righe di asterischi dello script sono contenuti i campi descrittivi dello script stesso (autore, lingua, parametri, ecc...), e andrebbero inseriti uno ad uno dall'apposito parameter editor della finestra di scripting. E' perciò necessario creare un nuovo file testo, incollarci dentro lo script (anche con il notepad) e poi rinominare l'estensione del file da .txt a .ifs. ------------------------------------------------------------------------------- Altra cosa: L'amico Antoine (l'autore di AMC) ha incluso nella ultima versione scaricabile della 3.5.0.0 anche i miei ultimi script per: - 35mm.it - AFdigitale - FilmTV che usano una libreria comune, che ho scritto per gli script italiani, che verrà distribuita da questa versione in poi... avete forse provato questi miei nuovi script? potete darmi qualche feedback sul loro corretto funzionamento? Vi ringrazio per la collaborazione ------------------------------------------------------------------------------- Gli altri script: Per quel che riguarda il corretto funzionamento con gli altri script italiani, non di mia produzione, se volete mi potete segnalare quali non funzionano... posso darci un'occhiata ed aggiustarli (previa autorizzazione degli autori). Ciao Pivello |
Autore: | figaroli [ martedì 5 aprile 2005, 17:51 ] |
Oggetto del messaggio: | |
[quote="Pivello"]Ciao a tutti gli appassionati di AMC e dei suoi scripts in Inner-Pascal ------------------------------------------------------------------------------- Un paio di note sugli script della versione 3.5.0.0: A differenza dalla precedente versione 3.4.x non si può incollare semplicemente tutto il file nella finestra dell'editor degli script e salvare... questo perchè tra le prime righe di asterischi dello script sono contenuti i campi descrittivi dello script stesso (autore, lingua, parametri, ecc...), e andrebbero inseriti uno ad uno dall'apposito parameter editor della finestra di scripting. E' perciò necessario creare un nuovo file testo, incollarci dentro lo script (anche con il notepad) e poi rinominare l'estensione del file da .txt a .ifs A me funziona avendo fatto il copia incolla nella finestra editor...ed ho la versione 3.5.0.0. |
Autore: | Pivello [ martedì 5 aprile 2005, 18:33 ] |
Oggetto del messaggio: | |
Cita: A me funziona avendo fatto il copia incolla nella finestra editor...ed ho la versione 3.5.0.0.
Ok, usi però il nuovo script con i parametri di quello vecchio; ti faccio un esempio:nello script che si trova a monte di questo thread è presente questa parte Codice: [Options] AlternateURL=0|0|0=Use the FilmUP web site for FieldURL|1=Try to use ufficial movie web site for FieldURL MezzoVoto=1|1|0=Integer Ratings|1=Ratings with ,5queste opzioni vanno perse quando le incolli; se hai incollato sul vecchio script di FilmUp erano impostate in modo diverso e ti condizionano il funzionamento. L'unico modo di inserirle correttamente è tramite l'editing del file come testo o tramite il parameter editor della finestra di scripting. Antoine ha deciso di scorporare la parte parametri dalla parte corpo dello script perchè incollando si perdevano spesso i vari dati ed opzioni relative allo script. Lo script di FilmUp fà uso delle opzioni e può disfunzionare. Fammi sapere se il tuo script ibrido và al 100% Ciao Pivello. |
Autore: | StePaz [ mercoledì 6 aprile 2005, 13:37 ] |
Oggetto del messaggio: | |
C'è un modo x eliminare la visualizzazione del percorso della copertina, che viene visualizzato al di sopra di essa quando si ingrandisce? |
Autore: | Pivello [ mercoledì 6 aprile 2005, 15:39 ] |
Oggetto del messaggio: | |
Questa è la ultima versione per lo script di FilmUp: Codice: (*************************************************** Ant Movie Catalog importation script www.antp.be/software/moviecatalog/ [Infos] Authors=L. Francisco Title=FilmUP Description=Get movie info from LeoFilmUP.it Site=http://filmup.leonardo.it Language=IT Version=1.0.1 - 02.02.2005 Requires=3.5.0 Comments=**Changes**|Pivello: query URL changed|Zandal: sistemato puntamento a COMMENTS|Pivello: Film site URL selectable instead of FilmUp page URL|dinolib: adapted to v.3.5.0 and little bugfix | ABNormal restarted... License=* The source code of the script can be used in |* another program only if full credits to |* script author and a link to Ant Movie Catalog |* website are given in the About box or in |* the documentation of the program | GetInfo=1 [Options] AlternateURL=0|0|0=Use the FilmUP web site for FieldURL|1=Try to use ufficial movie web site for FieldURL MezzoVoto=1|1|0=Integer Ratings|1=Ratings with ,5 ***************************************************) program LeonardoFilmUP; uses StringUtils1; var MovieName: string; TheMovieAddress: string; function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer; var i: Integer; begin result := -1; if StartAt < 0 then StartAt := 0; for i := StartAt to List.Count-1 do if Pos(Pattern, List.GetString(i)) <> 0 then begin result := i; Break; end; end; procedure AnalyzePage(Address: string); var Page: TStringList; LineNr: integer; BeginPos: integer; begin Page := TStringList.Create; Page.Text := GetPage(Address); LineNr := FindLine('Ordina risultati per', Page, 0); if LineNr = -1 then begin SetField(fieldURL, Address); AnalyzeMoviePage(Page); end else begin PickTreeClear; AddMoviesTitles(Page); if TheMovieAddress='' then begin if PickTreeExec(Address) then AnalyzePage(Address); end else begin SetField(fieldURL, TheMovieAddress); Page.Text := GetPage(TheMovieAddress); AnalyzeMoviePage(Page); end; end; Page.Free; end; procedure AnalyzeMoviePage(Page: TStringList); var Line: string; NomeHtml: string; LineNr,PrevLineNr: Integer; BeginPos, EndPos: Integer; Field: integer; begin LineNr := FindLine('<font face="arial, helvetica" size="3"><b>', Page, 0); if LineNr > -1 then begin //Translated Title Line := Page.GetString(LineNr); HTMLRemoveTags(Line); SetField(fieldTranslatedTitle, Line); repeat //Look for next info repeat LineNr := LineNr + 1; Line := Page.GetString(LineNr); HTMLRemoveTags(Line); until Line<>''; //Look for type of line if Line = 'Titolo originale: ' then Field := fieldOriginalTitle else if Line = 'Regia: ' then Field := fieldDirector else if Line = 'Produzione: ' then Field := fieldProducer else if Line = 'Nazione: ' then Field := fieldCountry else if Line = 'Genere: ' then Field := fieldCategory else if Line = 'Anno: ' then Field := fieldYear else if Line = 'Durata: ' then Field := fieldLength //Special case: get number only else if Line = 'Sito ufficiale: ' then Field := fieldURL else if Line = 'Cast: ' then Field := fieldActors else if Line = 'Trama:' then Field := fieldDescription else Field := 0; // I have to add this test, for sometimes the description // is on the same line as the tag 'Trama' if (copy(Line,1,6)='Trama:') and (length(Line)>6) then begin Field := fieldDescription; Delete(Line,1,6); HTMLDecode(Line); end else begin //Get values LineNr := LineNr + 1; Line := Page.GetString(LineNr); HTMLRemoveTags(Line); HTMLDecode(Line); //Special case: Length if Field = fieldLength then Line := copy(Line,1,length(Line)-1); end; //Alternative URL case if (field = fieldURL) then begin if (Length(Line) = 0) or (GetOption('AlternateURL')=0) then // if WEB url missing or explicitly requested... Line := GetField(fieldURL) // ...restore FilmUp URL else Line := 'http://'+Line; end; if Field<>0 then SetField(Field,Line); until Field=fieldDescription; end; PrevLineNr := LineNr; //Comments LineNr := FindLine('">Recensione</a>', Page, PrevLineNr); if LineNr > -1 then begin Line := Page.GetString(LineNr); if Pos('DVD', Line) <> 0 then Delete(Line,1,pos('DVD',Line)); if Pos('Scheda', Line) <> 0 then Delete(Line,1,pos('Scheda',Line)); Delete(Line,1,pos('<a href="',Line)+8); NomeHtml :=Copy(Line,1,pos('"',Line)-1); if (copy(NomeHtml,1,1)<>'/') then begin NomeHtml := '/' + NomeHtml; end; GetComments('http://filmup.leonardo.it'+NomeHtml); PrevLineNr := LineNr; end; //Rating LineNr := FindLine('">Opinioni</a>', Page, PrevLineNr); if LineNr > -1 then begin Line := Page.GetString(LineNr); Delete(Line,1,pos('Recensione',Line)); Delete(Line,1,pos('<a href="',Line)+8); Line := GetLineFromOtherPage(Copy(Line,1,pos('"',Line)-1),'</b> - <img src="'); if Line <> '' then begin Line := Copy(Line,1,pos('</b> - <img src="',Line)-1); if GetOption('MezzoVoto')=0 then if pos('.',Line)>0 then Line := Copy(Line,1,pos('.',Line)-1); SetField(fieldRating,Line); end; PrevLineNr := LineNr; end; //Picture LineNr := FindLine('<a href="posters/locp/', Page, PrevLineNr); if LineNr = -1 then begin LineNr := FindLine('<img src="locand', Page, PrevLineNr); if LineNr > -1 then begin Line := Page.GetString(LineNr); Delete(Line,1,pos('<img src="locand', Line)+9); GetPicture('http://filmup.leonardo.it/'+Copy(Line,1,pos('"',Line)-1)); end; end else begin Line := Page.GetString(LineNr); Delete(Line,1,pos('<a href="posters/locp/',Line)+8); Line := GetLineFromOtherPage('http://filmup.leonardo.it/'+Copy(Line,1,pos('"',Line)-1),'<img src="../loc/500/'); if Line <> '' then begin Delete(Line,1,pos('<img src="../',Line)+12); GetPicture('http://filmup.leonardo.it/posters/'+Copy(Line,1,pos('"',Line)-1)); end; end; //DisplayResults; end; function GetLineFromOtherPage(address: string; hint: string): string; var Page: TStringList; LineNr: integer; begin Page := TStringList.Create; Page.Text := GetPage(Address); LineNr := FindLine(hint, Page, 0); if LineNr > -1 then result := Page.GetString(LineNr); Page.Free; end; procedure GetComments(address: string); var Page: TStringList; BeginLine: integer; EndLine: integer; i: integer; Line, Comments: string; begin Page := TStringList.Create; Page.Text := GetPage(Address); BeginLine := FindLine('RECENSIONI', Page, 0); BeginLine := FindLine('<font face="arial,helvetica" size="2"><b>', Page, BeginLine); EndLine := FindLine('<a href="opinioni.htm">Scrivi la tua recensione!</a></font><br><br>', Page, BeginLine); for i:= BeginLine+1 to EndLine-1 do begin Line := Page.GetString(i); Line := StringReplace(Line, '<br>', #13#10); Line := StringReplace(Line, #13#10#32, #13#10); HTMLRemoveTags(Line); HTMLDecode(Line); Comments := Comments + Line; end; SetField(fieldComments, Comments); Page.Free; end; procedure AddMoviesTitles(Page: TStringList); var LineNr: Integer; Line: string; MovieTitle, MovieAddress: string; BeginPos, EndPos: Integer; begin LineNr := 0; LineNr := FindLine('FilmUP - Scheda: ',Page,LineNr); while LineNr > -1 do begin MovieAddress := 'http://filmup.leonardo.it/sc_' + TextBetween((Page.GetString(LineNr-1)), '_', '.') + '.htm'; Line := Page.GetString(LineNr); MovieTitle := TextAfter(Page.GetString(LineNr), 'Scheda: '); While pos ('<span', MovieTitle) > 0 Do begin MovieTitle := TextBefore(MovieTitle, '<span', '') + TextAfter(MovieTitle, 'bold;">'); end; While pos ('</span', MovieTitle) > 0 Do begin MovieTitle := TextBefore(MovieTitle, '</span', '') + TextAfter(MovieTitle, '/span>'); end; HTMLRemoveTags(MovieTitle); HTMLDecode(Movietitle); LineNr := FindLine('FilmUP - Scheda:',Page,LineNr+1); PickTreeAdd(MovieTitle, MovieAddress); if TheMovieAddress='*' then TheMovieAddress := MovieAddress else TheMovieAddress := ''; end; LineNr := FindLine('Successivo',Page,LineNr); Line := Page.GetString(LineNr); BeginPos := pos('HREF',Line); if BeginPos>0 then begin Delete(Line,1,BeginPos + 5); EndPos := pos('"',Line); MovieAddress := copy(Line,1,EndPos-1); PickTreeMoreLink(MovieAddress); end; if TheMovieAddress='*' then TheMovieAddress := ''; end; // ----------------------------- // Questo è il main dello script // ----------------------------- begin if CheckVersion(3,5,0) then begin TheMovieAddress := '*'; MovieName := StringReplace(GetField(fieldTranslatedTitle), '.', ' '); if MovieName = '' then MovieName := StringReplace(GetField(fieldOriginalTitle), '.', ' '); While pos ('[', MovieName) > 0 Do begin MovieName := TextBefore(MovieName, '[', '') + TextAfter(MovieName, ']'); end; if Input('FilmUP Import', 'Digita il titolo del film:', MovieName) then begin AnalyzePage('http://filmup.leonardo.it/cgi-bin/search.cgi?q='+UrlEncode(MovieName)+'&ul=%25%2Fsc_%25'); end; end else ShowMessage('Questo script richiede una versione più nuova di Ant Movie Catalog (almeno la versione 3.5.0)'); end.Procedura: 1 - Eliminate il vecchio file FilmUp.ifs dalla cartella Scripts di AMC 1 - Copiate lo script da questo post 2 - Create un file testo (FilmUp.txt) 3 - Apritelo con il blocco note, incollateci lo script e salvate 4 - Rinominate il file in FilmUp.ifs e copiatelo nella cartella Scripts Ciao Pivello |
Autore: | rob [ mercoledì 6 aprile 2005, 15:47 ] |
Oggetto del messaggio: | |
allora mi ricordavo giusto sul fatto ke bastava rinominare grazie Rob |
Pagina 2 di 4 | Tutti gli orari sono UTC+01:00 |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |