- The script loads from www.sergiobonelli.it informations about a lot of comics series from that publisher.
- Not all the series are considered, if you need any other serie, I will add it in the script
- to load informations, simply insert a free line in AMC and schedule the script: you will be requested to input serie number and the comic number.
- In the language file: Italian fumetti 1152x864.lng Remember to shift and enlarge the image to the right side of the window!
I hope you will enjoy!
Code: Select all
(***************************************************
Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/
[Infos]
Authors=
Title=sergiobonellieditore.it.ifs
Description=
Site=
Language=IT
Version=
Requires=3.5.1
Comments=
License=
GetInfo=0
[Options]
***************************************************)
program sergiobonellied1itore;
uses
StringUtils1; // Script needs external unit StringUtils1.pas in scripts folder !
var
ComicURL, ComicSeries, ComicNumber, Collana: string; // Define some script variables
Page, SavePage, Value, saveValue : string;
CharAbNormal, CharNormal : String;
update: string;
Titolo_e_Periodicita: string;
sw_serie, StartDelimiter, endDelimiter : string;
numCollana : integer;
CharCut: integer;
DataPubbl,Mese_Pubblicazione: String;
// i, j: integer;
const
crlf = #13#10; // carriage return/line feed
Procedure alborist;
begin
ComicURL := 'http://www.sergiobonellieditore.it/auto/alborist?collana=' + ComicSeries + '&numero=' + ComicNumber + '&subnum=0'; // Build item URL
Setfield(fieldURL, ComicURL); // Save variable URL to field URL
AnalyzePageAlborist(ComicURL); // Script hands over item URL and jumps to procedure AnalyzePageAlborist
end;
Procedure albo_speciale;
begin
ComicURL := 'http://www.sergiobonellieditore.it/auto/scheda_speciale?collana=' + ComicSeries + '&numero=' + ComicNumber + '&subnum=0'; // Build item URL
Setfield(fieldURL, ComicURL); // Save variable URL to field URL
AnalyzePageScheda_speciale(ComicURL); // Script hands over item URL and jumps to procedure AnalyzePageScheda_speciale
end;
// ***** Analyze Item's Page *****
procedure AnalyzePageAlborist(URL: String); // Variable "URL" is handed over (former variable "ComicURL")
begin
Page := GetPage(URL); // Fetch source code from website and store inside "Page"
Value := ''; // Make sure "Value" is empty
Value := TextBetween(Page, '<html>', '</html>'); // Extract the picture URL from "Page"
if length (Value) < 1024 then
begin
showError ('Errore. collana ' + getfield(fieldMedia) + ' n.' + getfield(fieldOriginaltitle) + '. URL errato *' + Page + '*');
exit;
// showmessage ('proseguo con errori');
end
CharAbNormal := '<B';
CharNormal := '<b';
StringReplace(Page, CharAbNormal, CharNormal);
CharAbNormal := '</B';
CharNormal := '</b';
StringReplace(Page, CharAbNormal, CharNormal);
SavePage := Page;
// Serie import
Value := ''; // Make sure "Value" is empty
Value := TextBetween(Page, '<title>Archivio arretrati: scheda dell''albo di ', '</title>');
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim (Value);
SetField(fieldSource, Value); // Save title to field Label
// Picture import
Value := ''; // Make sure "Value" is empty
Value := TextBetween(Page, 'window.open(''', ''''); // Extract the picture URL from "Page"
if Value = '' then // If "Value" is still empty ( = no picture URL ) then..
Value := 'http://www.sergiobonellieditore.it' + TextBetween(Line, '<img src="', '"'); // .. try to extract URL for small picture instead
if Value <> '' then // If "Value" now contains picture URL then..
GetPicture(Value); // .. download and save picture
// Titolo tradotto
Value := '';
Value := TextBetween(Page, '<table border=0 cellspacing=0 cellpadding=0>', '</table>');
Titolo_e_Periodicita := Value;
Value := TextBetween(Value, '<b>', '</b>'); // Extract exact title from variable "Value" now
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim (Value);
// Value := StringReplace(Value, '’', '''');
SetField(fieldTranslatedTitle, Value); // Save title to field TranslatedTitle
// Description / Storia
// struttura dei primi numeri
Value := '';
saveValue := '';
// Storia
Value := TextBetween(Page, '<table width=100% cellspacing=0 cellpadding=0 border=0>', '</DIV>'); // Extract description part from variable "Page"
Value := TextBetween(Value, '<font face="Arial" size=2>', 'In questo numero:'); // Extract exact description from variable "Value" now
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
saveValue := Value;
// ***************** inizio periodicità
StartDelimiter := '<font face="Arial" size=2>';
CharCut := Pos(StartDelimiter, Value);
EndDelimiter := '</font>';
Value := TextBetween(Page, StartDelimiter, EndDelimiter);
CharCut := CharCut + length(StartDelimiter) + length(Value) + length(EndDelimiter);
Delete(SaveValue, 1, Charcut); // stringa in cui cercare il prossimo campo
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim (Value);
// DataPubbl := Value + '</font>'; //serie 18: contiene titolo + 'mensile' e ripristino fine delimiter
Mese_Pubblicazione := ''; // pulisco Mese_Pubblicazione
Mese_Pubblicazione := TextBetween(Page, '<font face="Verdana" size="1" color="#FFFFFF">', '</font>');
HTMLDecode(Mese_Pubblicazione); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Mese_Pubblicazione); // Clean title from HTML tags (if some exist)
Mese_Pubblicazione := FullTrim (Mese_Pubblicazione);
Value := Mese_Pubblicazione;
// Inizio Data di pubblicazione e periodicità
if (ComicSeries = '1') or (ComicSeries = '10') or (ComicSeries = '13')
or (ComicSeries = '17') or (ComicSeries = '18')
then
begin
Value := TextBetween(Titolo_e_Periodicita, ',', '<br>');
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim (Value);
if Mese_pubblicazione <> '' then
Value := Mese_pubblicazione + ' - ' + Value;
end
// fine Data di pubblicazione e periodicità
SetField(fieldDirector, Value); // Save data pubblicazione to Field Director
// ***************** fine periodicità
// Comments + In questo numero
Value := TextBetween(page, '<DIV VALIGN=TOP>', ' </td>'); // Extract description part from variable "Page"
Value := TextBetween(value, '<DIV VALIGN=TOP><font face="Arial" size=2>', '</font></DIV>');
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value); // Clean up the description
if length (Value) < 2 then // 2 as there must be crlf
showError ('Errore. collana ' + getfield(fieldMedia) + ' n.' + getfield(fieldOriginaltitle) + '. Trama non presente');
saveValue := Value;
SetField(fieldDescription, saveValue); // Save description to field Description
// <td width="50%" valign="bottom" ><font color="#0080C0" face="Verdana" size=1>
// Comments / In questo numero
Value := TextBetween(Page, '<td width="50%" valign="bottom" ><font color="#0080C0" face="Verdana" size=1>', ' </td>');
Value := TextBetween(Value, '<strong>', '</strong>'); // Extract exact description from variable "Value" now
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value);
if length(Value) > 0 then
SetField(fieldComments, ('In questo numero: ' + Value)); // Save description to field Description
// fieldActors / Autori
EstraiAutori;
SetField(fieldActors, saveValue); // Save description to field Actors
end; // *********************** End of procedure "AnalyzePageAlborist" *****************************************
procedure AnalyzePageScheda_speciale(URL: String); // Variable "URL" is handed over (former variable "ComicURL")
begin
Page := GetPage(URL); // Fetch source code from website and store inside "Page"
Value := ''; // Make sure "Value" is empty
Value := TextBetween(Page, '<html>', '</html>'); // Extract the picture URL from "Page"
if length (Value) < 1024 then
begin
showError ('Errore. collana ' + getfield(fieldMedia) + ' n.' + getfield(fieldOriginaltitle) + '. URL errato *' + Page + '*');
exit;
showmessage ('proseguo con errori');
end
CharAbNormal := '<B';
CharNormal := '<b';
Page := StringReplace(Page, CharAbNormal, CharNormal);
CharAbNormal := '</B';
CharNormal := '</b';
Page := StringReplace(Page, CharAbNormal, CharNormal);
SavePage := Page;
// Picture import
Value := ''; // Make sure "Value" is empty
Value := TextBetween(Page, 'window.open(''', ''''); // Extract the picture URL from "Page"
if Value = '' then // If "Value" is still empty ( = no picture URL ) then..
Value := 'http://www.sergiobonellieditore.it' + TextBetween(Value, '<img src="', '"'); // .. try to extract URL for small picture instead
if Value <> '' then // If "Value" now contains picture URL then..
GetPicture(Value); // .. download and save picture
// Serie import
Value := ''; // Make sure "Value" is empty
Value := TextBetween(Page, 'Archivio arretrati: scheda dell''albo di ', '</title>'); // Extract title part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim (Value);
SetField(fieldSource, Value); // Save title to field Label
if (ComicSeries = '2') then
begin
Value := 'Almanacco del West';
SetField(fieldSource, Value); // Save serie to field Source
end
if (ComicSeries = '25') then
begin
Value := 'Almanacco dell''avventura (Zagor)';
SetField(fieldSource, Value); // Save serie to field Source
end
if (ComicSeries = '28') then
begin
Value := 'Maxi Tex';
SetField(fieldSource, Value); // Save serie to field Source
end
if (ComicSeries = '32') then
begin
Value := 'Almanacco del Giallo (Nick Raider)';
SetField(fieldSource, Value); // Save serie to field Source
end
if (ComicSeries = '33') then
begin
Value := 'Almanacco del Mistero';
SetField(fieldSource, Value); // Save serie to field Source
end
if (ComicSeries = '34') then
begin
Value := 'Almanacco della Fantascienza';
SetField(fieldSource, Value); // Save serie to field Source
end
if (ComicSeries = '36') then
begin
Value := 'Almanacco della Paura';
SetField(fieldSource, Value); // Save serie to field Source
end
if (ComicSeries = '50') then
begin
Value := 'Almanacco dell''avventura (Mister No)';
SetField(fieldSource, Value); // Save serie to field Source
end
if (ComicSeries = '70') then
begin
Value := 'Almanacco del Giallo (Julia)';
SetField(fieldSource, Value); // Save serie to field Source
end
// Numero, titolo e periodicità
Value := ''; // Make sure "Value" is empty
Value := TextBetween(Page, '<table border=0 cellspacing=0 cellpadding=0>', '</table'); // Extract serie from variable "Page"
SaveValue := Value; // SaveValue contiene tutta la table (meno i delimiters)
Titolo_e_Periodicita := Value;
// ***************** inizio periodicità
StartDelimiter := '<font face="Arial" size=2>';
CharCut := Pos(StartDelimiter, Value);
EndDelimiter := '</font>';
Value := TextBetween(Value, StartDelimiter, EndDelimiter);
CharCut := CharCut + length(StartDelimiter) + length(Value) + length(EndDelimiter);
Delete(SaveValue, 1, Charcut); // stringa in cui cercare il prossimo campo
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim (Value);
DataPubbl := Value + '</font>'; //serie 18: contiene titolo + 'periodicità irregolare' e ripristino fine delimiter
Mese_Pubblicazione := ''; // pulisco Mese_Pubblicazione
Mese_Pubblicazione := TextBetween(Page, '<font face="Verdana" size="1" color="#FFFFFF">', '</font></strong>');
HTMLDecode(Mese_Pubblicazione); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Mese_Pubblicazione); // Clean title from HTML tags (if some exist)
Mese_Pubblicazione := FullTrim (Mese_Pubblicazione);
if (ComicSeries = '7') or (ComicSeries = '8') then
begin
Value := TextBetween(Titolo_e_Periodicita, ';</font> ', '<br>');
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim(Value);
if Value = 'mensil' then
Value := 'mensile';
if Value = 'bimestral' then
Value := 'bimestrale';
if Mese_pubblicazione <> '' then
Value := Mese_pubblicazione + ' - ' + Value;
end
if (ComicSeries = '4') or (ComicSeries = '5') or(ComicSeries = '6') or (ComicSeries = '11')
or (ComicSeries = '12') or (ComicSeries = '14') or (ComicSeries = '15') or (ComicSeries = '16')
or (ComicSeries = '25') or (ComicSeries = '33') or (ComicSeries = '34') or (ComicSeries = '36')
or (ComicSeries = '69') or (ComicSeries = '73') or (ComicSeries = '74')
then
begin
Value := TextBetween(Titolo_e_Periodicita, ',', '<br>');
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim(Value);
if Value = 'mensil' then
Value := 'mensile';
if Value = 'bimestral' then
Value := 'bimestrale';
if Mese_pubblicazione <> '' then
Value := Mese_pubblicazione + ' - ' + Value;
end
if (ComicSeries = '2') or (ComicSeries = '32') or (ComicSeries = '33') or (ComicSeries = '34') or (ComicSeries = '36')
or (ComicSeries = '50') or (ComicSeries = '70')
then
begin
Value := TextBetween(DataPubbl, ',', '</font>');
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim (Value);
if Mese_pubblicazione <> '' then
Value := Mese_pubblicazione + ' - ' + Value;
end
SetField(fieldDirector, Value); // Save periodicità to field Director
// ***************** fine periodicità
// Titolo tradotto
Value := SaveValue;
Value := TextBetween(Value, '<font face="Arial" size=2>', '</font>'); // Extract exact title from variable "SaveValue"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value); // Clean title from HTML tags (if some exist)
Value := FullTrim (Value);
SetField(fieldTranslatedTitle, Value); // Save title to field TranslatedTitle
// Beschreibung / Description / Storia
// struttura dei primi numeri
Value := '';
saveValue := '';
// Storia
Value := TextBetween(Page, '<table width=100% cellspacing=0 cellpadding=0 border=0>', '</DIV>'); // Extract description part from variable "Page"
Value := TextBetween(Value, '<font face="Arial" size=2>', 'In questo numero:'); // Extract exact description from variable "Value" now
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
saveValue := Value;
// Comments / In questo numero
Value := TextBetween(Page, '<td width="50%" valign="bottom" ><font color="#0080C0" face="Verdana" size=1>', ' </td>');
Value := TextBetween(Value, '<strong>', '</strong>'); // Extract exact description from variable "Value" now
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value);
if length(Value) > 0 then
SetField(fieldComments, ('In questo numero: ' + Value)); // Save description to field Description
// Comments / In questo numero
Value := TextBetween(Page, '<table width=100% cellspacing=0 cellpadding=0 border=0>', ' </td>');
Value := TextBetween(Value, 'In questo numero:', '</font>'); // Extract exact description from variable "Value" now
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value); // Clean up the description
if length(Value) > 0 then
SetField(fieldComments, ('In questo numero: ' + Value)); // Save description to field Description
// struttura dei numeri successivi (es. 214)
if length (saveValue) = 0 then
begin
Value := TextBetween(page, '<DIV VALIGN=TOP>', ' </td>'); // Extract description part from variable "Page"
Value := TextBetween(value, '<DIV VALIGN=TOP><font face="Arial" size=2>', '</font></DIV>'); // Extract description part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value);
if length (Value) < 2 then // 2 as there must be crlf
showError ('Errore. collana ' + getfield(fieldMedia) + ' n.' + getfield(fieldOriginaltitle) + '. Trama mancante');
saveValue := Value;
end
SaveValue := FullTrim(Value);
SetField(fieldDescription, SaveValue); // Save description to field Description
EstraiAutori;
SetField(fieldActors, saveValue); // Save description to field Actors
end; // *********************** End of procedure "AnalyzeScheda_speciale" *****************************************
Procedure EstraiAutori;
begin // fieldActors / Autori
SaveValue := '';
Value := '';
Value := TextBetween(Page, 'Soggetto e sceneggiatura:', '</b>'); // NB: questo deve essere il primo della sequenza!
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := 'Soggetto e sceneggiatura: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Soggetto e Sceneggiatura:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := SaveValue + 'Soggetto e sceneggiatura: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Testi:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := SaveValue + 'Testi: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Testo, disegni e copertina:', '</b>)<br>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := SaveValue + 'Testo, disegni e copertina: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Testo, disegni e copertina:', '</b><br>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := SaveValue + 'Testo, disegni e copertina: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Soggetto, sceneggiatura, disegni e copertina:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := SaveValue + 'Soggetto, sceneggiatura, disegni e copertina:' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Soggetto, sceneggiatura e copertina:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim(Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := SaveValue + 'Soggetto, sceneggiatura e copertina: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Soggetto:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := SaveValue + 'Soggetto: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Soggetto, sceneggiatura e disegni:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := SaveValue + 'Soggetto, sceneggiatura e disegni: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Sceneggiatura:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := SaveValue + 'Sceneggiatura: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Disegni e copertina:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := saveValue + 'Disegni e copertina: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Matite:', '</b><br>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := saveValue + 'Matite: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Disegni:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := saveValue + 'Disegni: ' + Value + crlf;
end
Value := '';
Value := TextBetween(Page, 'Copertina:', '</b>'); // Extract part from variable "Page"
HTMLDecode(Value); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Value);
Value := FullTrim (Value); // Clean up the description
if length(Value) > 0 then
begin
saveValue := saveValue + 'Copertina: ' + Value + crlf;
end
end; // *********************** End of procedure "EstraiAutori" *****************************************
Procedure Menu;
begin
Repeat
sw_serie := 'OK';
case ComicSeries of
'Tex', '1': ComicSeries := '1';
'Almanacco del West', '2': ComicSeries := '2';
'Julia', '4': ComicSeries := '4';
'Magico Vento (Mensile)', '5': ComicSeries := '5';
'Jonathan Steele', '6': ComicSeries := '6';
'Brendon', '7': ComicSeries := '7';
'Dampyr', '8': ComicSeries := '8';
'Zagor', '10': ComicSeries := '10';
'Il Comandante Mark', '12': ComicSeries := '12';
'Martin Mystère', '13': ComicSeries := '13';
'Napoleone', '11': ComicSeries := '11';
'Nathan Never', '15': ComicSeries := '15';
'Legs Weaver', '14': ComicSeries := '14';
'Nick Raider', '16': ComicSeries := '16';
'Mister No', '17': ComicSeries := '17';
'Dylan Dog', '18': ComicSeries := '18';
'Almanacco dell''avventura (Zagor)', '25': ComicSeries := '25';
'Maxi Tex', '28': ComicSeries := '28';
'Almanacco del Giallo (Nick Raider)', '32': ComicSeries := '32';
'Almanacco del Mistero', '33': ComicSeries := '33';
'Almanacco della Fantascienza', '34': ComicSeries := '34';
'Almanacco della Paura', '36': ComicSeries := '36';
'Almanacco dell''avventura (Mister No)', '50': ComicSeries := '50';
'Brad Barron', '69': ComicSeries := '69';
'Almanacco del Giallo (Julia)', '70': ComicSeries := '70';
'Magico Vento (Bimestrale)', '73': ComicSeries := '73';
'Demian', '74': ComicSeries := '74';
else
begin
PickTreeClear;
PickTreeAdd(' (1) Tex', '1');
PickTreeAdd(' (2) Almanacco del West', '2');
PickTreeAdd(' (4) Julia', '4');
PickTreeAdd(' (5) Magico Vento (Mensile)', '5');
PickTreeAdd(' (6) Jonathan Steele', '6');
PickTreeAdd(' (7) Brendon', '7');
PickTreeAdd(' (8) Dampyr', '8');
PickTreeAdd('(10) Zagor', '10');
PickTreeAdd('(11) Napoleone', '11');
PickTreeAdd('(12) Il Comandante Mark', '12');
PickTreeAdd('(13) Martin Mystère', '13');
PickTreeAdd('(14) Legs Weaver', '14');
PickTreeAdd('(15) Nathan Never', '15');
PickTreeAdd('(16) Nick Raider', '16');
PickTreeAdd('(17) Mister No', '17');
PickTreeAdd('(18) Dylan Dog', '18');
PickTreeAdd('(25) Almanacco dell''Avventura (Zagor)', '25');
PickTreeAdd('(28) Maxi Tex', '28');
PickTreeAdd('(32) Almanacco del Giallo (Nick Raider)', '32');
PickTreeAdd('(33) Almanacco del Mistero', '33');
PickTreeAdd('(34) Almanacco della Fantascienza', '34');
PickTreeAdd('(36) Almanacco della Paura', '36');
PickTreeAdd('(50) Almanacco dell''Avventura (Mister No)', '50');
PickTreeAdd('(69) Brad Barron', '69');
PickTreeAdd('(70) Almanacco del Giallo (Julia)', '70');
PickTreeAdd('(73) Magico Vento (bimestrale)', '73');
PickTreeAdd('(74) Demian', '74');
if PickTreeExec(ComicSeries) then
ShowMessage('Series number is: ' + ComicSeries);
sw_serie := 'error'
end;
end;
until sw_serie = 'OK';
end;
// ***** Beginning of the script *****
begin
if CheckVersion(3,5,0) then // Checks if Ant Movie Catalog version is 3.5.0 or higher
begin
ComicSeries := GetField(fieldMedia);
menu;
ComicNumber := GetField(fieldOriginalTitle);
if ComicNumber = '' then
Input('www.sergiobonellieditore.it', ComicSeries + crlf + 'Enter comic number:', ComicNumber);
If (ComicSeries = '1') or (ComicSeries = '10')or (comicSeries = '13') or (ComicSeries = '17') or (ComicSeries = '18')
// or (ComicSeries = '25')
then
begin
ComicURL := 'http://www.sergiobonellieditore.it/auto/alborist?collana=' + ComicSeries + '&numero=' + ComicNumber + '&subnum=0'; // Build item URL
Setfield(fieldURL, ComicURL); // Save variable URL to field URL
AnalyzePageAlborist(ComicURL); // Script hands over item URL and jumps to procedure AnalyzePageAlborist
end
If (ComicSeries = '2') or (comicSeries = '4') or (comicSeries = '5') or (comicSeries = '6') or (comicSeries = '7')
or (ComicSeries = '8') or (ComicSeries = '11') or (ComicSeries = '12') or (comicSeries = '14')
or (ComicSeries = '15') or (ComicSeries = '16') or (ComicSeries = '25') or (ComicSeries = '28')
or (ComicSeries = '32') or (ComicSeries = '33') or (ComicSeries = '34') or (ComicSeries = '36')
or (ComicSeries = '50') or (ComicSeries = '69') or (ComicSeries = '70')
or (ComicSeries = '73') or (ComicSeries = '74')
then
begin
ComicURL := 'http://www.sergiobonellieditore.it/auto/scheda_speciale?collana=' + ComicSeries + '&numero=' + ComicNumber + '&subnum=0'; // Build item URL
Setfield(fieldURL, ComicURL); // Save variable URL to field URL
AnalyzePageScheda_speciale(ComicURL); // Script hands over item URL and jumps to procedure AnalyzePageScheda_speciale
end
end
else
ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.0)');
// If Checkversion fails end.
end.
Language File: Italian fumetti 1152x864.lng
Code: Select all
[FileInformation]
Icon=Qk32AAAAAAAAAHYAAAAoAAAAEAAAABAAAAABAAQAAAAAAIAAAAAzCwAAMwsAABAAAAAQAAAAAAAAAAAiAAATNRMAAFQAAACHAAAAAKoAAAD9AGVl/wCqqqoAzMzMAO7u7gD///8AAAAAAAAAAAAAAAAAAAAAALu7u7u7u7u7AAAAAAAAAAACIiGIiFVVYAIzM5mZZmZwAjMzmZlmZnACMzOZmWZmcAIzM5mZZmZwAjMzmZlmZnACMzOZmWZmcAIzM5mZZmZwAjMzmZlmZnACMzOZmWZmcAIzM5mZZmZwA0REqqp3d3AAAAAAAAAAALu7u7u7u7u7
Name=Italian fumetti
LocalName=Italian fumetti 1152x864
Version=3.5.1
VersionFormat=3.5.1
Comments=
Authors=Jancker v.3.4.x|jancker@divxmania.it|Dino Librandi v.3.5.x|dinolib@libero.it
;
; Nota: altezza 292 visualizza 22 righe di testo
;
;***********************
;* Finestra Principale *
;***********************
[MainWindow]
ActionFileNew.Caption=&Nuovo
ActionFileNew.Hint=Nuovo|Crea nuovo file
ActionFileOpen.Caption=&Apri...
ActionFileOpen.Hint=Apri...|Apre un file
ActionFileOpenNoRecent.Caption=Nessun file recente
ActionFileSave.Caption=&Salva
ActionFileSave.Hint=Salva|Salva il file corrente
ActionFileSaveAs.Caption=S&alva con nome...
ActionFileSaveAs.Hint=Salva con nome...|Salva il file corrente con un nuovo nome
ActionFilePrint.Caption=Stam&pa...
ActionFilePrint.Hint=Stampa la lista|Stampa la lista del contenuto del catalogo
ActionFileImport.Caption=&Importa...
ActionFileImport.Hint=Importa...|Importa dati da un altro formato
ActionFileExport.Caption=&Esporta...
ActionFileExport.Hint=Esporta...|Esporta il catalogo in un altro formato
ActionFileProperties.Caption=&Proprietà...
ActionFileProperties.Hint=Proprietà...|Visualizza le proprietà del file e le informazioni sul catalogo
ActionExit.Caption=Esci
ActionExit.Hint=Esci|Esci dal programma
ActionOptions.Caption=&Preferenze...
ActionOptions.Hint=Preferenze...|Cambia le opzioni del programma
ActionLanguage.Caption=L&ingua...
ActionLanguage.Hint=Linga...|Cambia lingua dell'interfaccia utente
ActionLoan.Caption=&Prestiti...
ActionLoan.Hint=Prestiti...|Lista dei film che sono stati prestati
ActionToolsScripting.Caption=S&cripting...
ActionToolsScripting.Hint=Scripting|Applica uno script al film selezionato
ActionToolsGrid.Caption=V&isualizza come griglia
ActionToolsGrid.Hint=Visualizza come griglia|Visualizza la lista come una grande griglia con tutti i film
ActionGroupNone.Caption=< none >
ActionGroupNone.Hint=|Nessun gruppo di film
ActionHelpIndex.Caption=&Aiuto
ActionHelpIndex.Hint=Aiuto|Lancia l'aiuto del programma
ActionHelpAbout.Caption=&Info...
ActionHelpAbout.Hint=Info...|Informazioni sul programma
ActionHelpVersion.Caption=&Versioni...
ActionHelpVersion.Hint=Versioni...|Mostra informazioni sulle versioni dei file
ActionMovieAdd.Caption=&Aggiungi...
ActionMovieAdd.Hint=Aggiungi...|Aggiunge un nuovo film
ActionMovieUndo.Caption=Annulla
ActionMovieUndo.Hint=Annulla|Annulla le modifiche effettuate
ActionMovieDelete.Caption=&Elimina
ActionMovieDelete.Hint=Elimina|Elimina il film selezionato
ActionMovieCopy.Caption=&Copia
ActionMovieCopy.Hint=Copia|Copia le informazioni sul film negli appunti
ActionMoviePaste.Caption=&Incolla
ActionMoviePaste.Hint=Incolla|Incolla le informazioni sul film dagli appunti
ActionMovieRenumber.Caption=&Rinumera...
ActionMovieRenumber.Hint=Rinumera i film...
ActionMovieFind.Caption=&Cerca...
ActionMovieFind.Hint=Cerca...|Cerca un film basandosi su specifici criteri di ricerca
ActionFindFindNext.Caption=Prossimo
ActionFindFindNext.Hint=|Cerca la voce successiva basandosi sui criteri precedentemente impostati
ActionFindWholeField.Caption=Solo campo intero
ActionFindWholeField.Hint=|Include i film solo se il valore specificato eguaglia l'intero campo
ActionFindDisplay.Caption=Visualizza risultati
ActionFindDisplay.Hint=|Mostra tutti i film che corrispondono al criterio di ricerca
LField.Caption=Cerca nel campo:
LValue.Caption=Cerca il valore:
ActionMovieNumber.Caption=Cambia il &numero...
ActionMovieNumber.Hint=Cambia il numero
ActionMovieStats.Caption=&Statistiche...
ActionMovieStats.Hint=Statistiche...|Visualizza le statistiche riguardanti il catalogo e i films che contiene
ActionMovieImportFiles.Caption=Da &file...
ActionMovieImportFiles.Hint=Ricava informazioni da file...
ActionMovieImportScript.Caption=Da internet usando uno &script...
ActionMovieImportScript.Hint=Ottiene info da internet usando uno script...|Ottiene informazioni sul film da internet utilizzando uno script
ActionMovieSearch.Caption=Cerca su Internet
ActionMovieSearch.Hint=Ricerca informazioni su Internet
ActionMoviePictureShow.Caption=Visualizza copertine
ActionMoviePictureShow.Hint=Mostra o nascondi le copertine
ActionPicSelect.Caption=&Seleziona...
ActionPicSelect.Hint=Seleziona una copertina...|Seleziona un'immagine da importare o collegare per il film attuale
ActionPicDelete.Caption=Elimina
ActionPicDelete.Hint=Elimina|Elimina la copertina
ActionPicUndock.Caption=Blocca/Sblocca
ActionPicUndock.Hint=Blocca/Sblocca|Finestra delle copertine: Blocca (integra nella finestra principale) o sblocca (finestra volante)
ActionPicSaveAs.Caption=&Salva come...
ActionPicSaveAs.Hint=Salva immagine come...|Salva una copia della copertina in un nuovo file
ActionPicCopy.Caption=&Copia
ActionPicCopy.Hint=Copia negli appunti|Copia l'immagine negli appunti
ActionMenuFile.Caption=&File
ActionMenuMovie.Caption=&Film
ActionMenuTools.Caption=&Accessori
ActionMenuHelp.Caption=&Aiuto
ActionMenuPicture.Caption=Copert&ine
ActionMenuPicture.Hint=Copertine film
ActionMenuGet.Caption=Acquisisci informazioni
ActionMenuGet.Hint=Acquisisci informazioni
ActionMenuGroup.Caption=Crea gruppo
ActionMenuGroup.Hint=Crea gruppo|Raggruppa i film basandosi su campi specifici
ActionRefresh.Caption=Aggiorna
ActionRefresh.Hint=Aggiorna la lista
ActionMovieCheck.Caption=Visto
ActionMovieCheck.Hint=Visto|Contrassegna il film come visto
ActionMovieUncheck.Caption=Non ancora visto
ActionMovieUncheck.Hint=Non ancora visto|Contrassegna il film come non ancora visto
ActionMovieSelGroup.Caption=Seleziona tutto il gruppo
ActionMovieSelGroup.Hint=Seleziona gruppo|Seleziona tutti i film di questo gruppo
ActionMovieSelCheck.Caption=Seleziona abilitati
ActionMovieSelCheck.Hint=Seleziona abilitati|Seleziona soltanto i film abilitati
ActionMovieSelUncheck.Caption=Seleziona non abilitati
ActionMovieSelUncheck.Hint=Seleziona non abilitati|Seleziona soltanto i film che non sono abilitati
ActionDisplayPictureToolbar.Caption=Visualizza barra immagini
ActionDisplayPictureToolbar.Hint=Visualizza la barra delle immagini
ActionDisplayMainToolbar.Caption=Barra delle applicazioni
ActionDisplayMainToolbar.Hint=Visualizza la barra delle applicazioni
ActionDisplayStatusBar.Caption=Barra di stato
ActionDisplayStatusBar.Hint=Visualizza la barra di stato
ActionURLOpen.Caption=Apri URL
ActionURLOpen.Hint=|Apre l'URL o file specificato nel campo
ActionURLBrowse.Caption=Sfoglia...
ActionURLBrowse.Hint=|Cerca un nome di file da inserire nel campo
ToolbarMenu.Caption=Barra dei menù
ToolbarMain.Caption=Barra delle applicazioni
ToolbarPicture.Caption=Barra delle immagini
ToolbarPictureWindow.Caption=Immagini
ToolbarFind.Caption=Cerca
Listview1.HeaderSections.Item[0].Text=N.
Listview1.HeaderSections.Item[1].Text=Titolo
MoviePicture.Hint=|Cliccare per vedere l'immagine alla massima dimensione
Messages.Strings.String[0]=Sei sicuro di voler eliminare il film %s: %s?
Messages.Strings.String[1]=Sei sicuro di voler convertire le informazioni precedenti per il film corrente?
Messages.Strings.String[2]=%d film
Messages.Strings.String[3]=(%d visibile)
Messages.Strings.String[4]=Il file corrente è stato modificato. Si desidera salvarlo?
Messages.Strings.String[5]=Non richiedere ulteriori conferme
Messages.Strings.String[6]=Modificato
Messages.Strings.String[7]=Immagine
Messages.Strings.String[8]=Salva una copia dell'immagine come nuovo file
Messages.Strings.String[9]=Importazione %s ...
Messages.Strings.String[10]=Salvataggio %s ...
Messages.Strings.String[11]=Caricamento %s ...
Messages.Strings.String[12]=Selezione un'immagine
Messages.Strings.String[13]=Questo eliminerà l'immagine. Sei sicuro?
Messages.Strings.String[14]=Impossibile utilizzare l'immagine selezionata: %s
Messages.Strings.String[15]=B
Messages.Strings.String[16]=Selezionare il file da cui ricavare informazioni
Messages.Strings.String[17]=Ricerca informazioni su %0:s|Ricerca informazioni sul film su %0:s
Messages.Strings.String[18]=Nessun file recente
Messages.Strings.String[19]=Questo catalogo ha immagini memorizzate internamente. Per salvare il catalogo in formato XML, le immagini devono risiedere su file distinti.|Se vuoi ancora salvare il file in XML, clicca OK per convertire le immagini, oppure Ignora se vuoi mantenerle (le immagini collegate saranno tenute).|Il nome dell'immagine sarà basato sul valore di "Nomenclatura Immagini" della pagina "Importazione Copertina" dalla finestra delle preferenze.
Messages.Strings.String[20]=|Raggruppa per %s
Messages.Strings.String[21]=< nessuno >
Messages.Strings.String[22]=Oltre a rimuovere il collegamento, si desidera procedere alla completa eliminazione del file dall'hard disk? (%s)
Messages.Strings.String[23]=Questo film attualmente è collegato ad una immagine, sostituendo il collegamento con un'altra immagine vuoi cancellare la vecchia immagine dal tuo hard disk? (%s)
Messages.Strings.String[24]=L'immagine non pu= essere copiata nella cartella del catalogo finché il catalogo non ha un nome; salvarlo da qualche parte e riprovare
Messages.Strings.String[25]=Salvato nel catalogo come %s
Messages.Strings.String[26]=File esterno: %s
Messages.Strings.String[27]=%.0n bytes
Messages.Strings.String[28]=Anteprima di stampa
Messages.Strings.String[29]=Ricerca stampante
Messages.Strings.String[30]=Seleziona un file a cui fare riferimento nel campo URL
Messages.Strings.String[31]=< altri >
Messages.Strings.String[32]=Tutti
Fields.Strings.String[0]=N.
Fields.Strings.String[1]=Verificato
Fields.Strings.String[2]=Serie
Fields.Strings.String[3]=Tipo
Fields.Strings.String[4]=Origine
Fields.Strings.String[5]=Data
Fields.Strings.String[6]=Annotazioni
Fields.Strings.String[7]=Valutazione
Fields.Strings.String[8]=Titolo originale
Fields.Strings.String[9]=Titolo tradotto
Fields.Strings.String[10]=Titolo formattato
Fields.Strings.String[11]=Periodicità
Fields.Strings.String[12]=Produttore
Fields.Strings.String[13]=Paese
Fields.Strings.String[14]=Categoria
Fields.Strings.String[15]=Anno
Fields.Strings.String[16]=Durata
Fields.Strings.String[17]=Autori
Fields.Strings.String[18]=URL
Fields.Strings.String[19]=Trama
Fields.Strings.String[20]=Commento
Fields.Strings.String[21]=Qualità
Fields.Strings.String[22]=Flusso video (bit)
Fields.Strings.String[23]=Formato audio
Fields.Strings.String[24]=Flusso audio (bit)
Fields.Strings.String[25]=Risoluzione
Fields.Strings.String[26]=Frequenza video
Fields.Strings.String[27]=Lingue
Fields.Strings.String[28]=Sottotitoli
Fields.Strings.String[29]=Dimensione dei file
Fields.Strings.String[30]=Numero di dischi
;****************
;* Message Form *
;****************
[MessageWin]
Captions.Strings.String[0]=Avvertimento
Captions.Strings.String[1]=Errore
Captions.Strings.String[2]=Informazione
Captions.Strings.String[3]=Conferma
Captions.Strings.String[4]=&Si
Captions.Strings.String[5]=&No
Captions.Strings.String[6]=&OK
Captions.Strings.String[7]=&Annulla
Captions.Strings.String[8]=&Interrompi
Captions.Strings.String[9]=&Riprova
Captions.Strings.String[10]=I&gnora
Captions.Strings.String[11]=&Tutti
Captions.Strings.String[12]=No, tutti
Captions.Strings.String[13]=Sì, tutti
Captions.Strings.String[14]=&Help
;**************
;* Input Form *
;**************
[InputWin]
btn2.Caption=OK
btn1.Caption=Annulla
;*********
;* About *
;*********
[AboutWin]
Caption=Informazioni sul programma
btn3.Caption=Chiudi
btn2.Caption=Versione
btn1.Caption=Crediti
Messages.Strings.String[0]=%s : versione %s (creata il %s)
Messages.Strings.String[1]=(premere Ctrl+C se vuoi copiare queste informazioni negli appunti)
;******************
;* Enter a number *
;******************
[NumberWin]
Caption=Seleziona il numero del film
btn2.Caption=OK
btn1.Caption=Annulla
LEnterNumber.Caption=Inserisci un numero da assegnare al film:
btnFindNum.Hint=Trova un numero disponibile|
grpNotUnique.Caption=Già esiste un film con questo nome...
grpNotUnique.Items.String[0]=Accetta duplicati
grpNotUnique.Items.String[1]=Assegna un altro numero ad un film esistente
grpNotUnique.Items.String[2]=Trasla la numerazione dei film finché non ci sono più duplicati
CBDoNotAsk.Caption=Non richiedere in futuro; usa la numerazione automatica
Width=365
;**************
;* Properties *
;**************
[PropertiesWin]
btn2.Caption=OK
btn1.Caption=Annulla
Caption=Proprietà del catalogo
LHOwnerInfo.Caption=Informazioni sul creatore
LFileName.Caption=Nome:
LFileSize.Caption=Dimensione:
LFileVersion.Caption=Formato:
LHXMLHeader.Caption=Intestazione XML
LEncoding.Caption=Codifica:
LOwnerName.Caption=Nome:
LOwnerMail.Caption=E-mail:
LOwnerSite.Caption=Sito Web:
LDescription.Caption=Trama:
EOwnerMail.ButtonHint=Invia una mail
EOwnerSite.ButtonHint=Vai sul sito web
;*********
;* Loans *
;*********
[LoanWin]
Caption=Prestiti
btn2.Caption=Chiudi
btn1.Caption=Aiuto
ActionBorrowerAdd.Caption=Aggiungi...
ActionBorrowerAdd.Hint=Aggiungi prestatario|Aggiunge una persona alla lista di chi ha ricevuto prestiti
ActionBorrowerDel.Caption=Elimina
ActionBorrowerDel.Hint=Elimina prestatario|Elimina la persona selezionata dalla lista di chi ha ricevuto prestiti
ActionCheckOut.Caption=In uscita
ActionCheckOut.Hint=In uscita|Aggiunge il film selezionato alla lista di quelli prestati alla persona selezionata
ActionCheckIn.Caption=In entrata
ActionCheckIn.Hint=In entrata|Rimuove il film selezionato dalla lista di quelli prestati alla persona selezionata
ActionMovieGetBorrower.Caption=Prestatario
ActionMovieGetBorrower.Hint=Cerca prestatario|Cerca, nella lista dei prestatari, la persona a cui è stato prestato il film selezionato
ActionMovieFindNext.Caption=Prossimo
ActionMovieFindNext.Hint=Cerca successivo|Cerca il prossimo film nel cui titolo sia contenuto il testo indicato
ActionOptions.Caption=&Opzioni
ActionOptions.Hint=Opzioni|Opzioni per prestiti e riconsegne
ActionOptionsIncNum.Caption=Includi film con lo stesso &numero
ActionOptionsIncNum.Hint=Include film con lo stesso numero|Include in prestiti e riconsegne altri film che hanno lo stesso numero di quello selezionato
ActionOptionsIncLab.Caption=Includi film con la stessa serie
ActionOptionsIncLab.Hint=Includi film con la stessa serie|Include in prestiti e riconsegne altri film che hanno la stessa serie di quello selezionato
LvMovies.HeaderSections.Item[0].Text=N.
LvMovies.HeaderSections.Item[1].Text=Serie
LvMovies.HeaderSections.Item[2].Text=Titolo
LvMovies.HeaderSections.Item[3].Text=Prestatario
LvNames.HeaderSections.Item[0].Text=Prestatario
LvNames.HeaderSections.Item[1].Text=Quantità
LvLent.HeaderSections.Item[0].Text=N.
LvLent.HeaderSections.Item[1].Text=Serie
LvLent.HeaderSections.Item[2].Text=Titolo
Messages.Strings.String[0]=Questo eliminerà "%s" dalla lista e farà rientrare tutti i film prestati a questa persona.
Messages.Strings.String[1]=Caricamento della lista ...
Messages.Strings.String[2]=Questo film è già associato a qualcun'altro
Messages.Strings.String[3]=Inserire un nome
Messages.Strings.String[4]=Il seguente film è già in prestito a qualcun altro:
;Messages.Strings.String[5]=
Messages.Strings.String[6]=Inserire un nome
Messages.Strings.String[7]=Nuovo prestatario
;Messages.Strings.String[8]=
;Messages.Strings.String[9]=
;**********
;* Export *
;**********
[ExportWin]
Caption=Esporta in un altro formato
lvFormat.Columns.Item[0].Caption=Formati file supportati
Btn3.Caption=Esporta...
Btn2.Caption=Chiudi
Btn1.Caption=Aiuto
grpImages.Caption=Immagini
CBCopyPictures.Caption=Copia il file esportato
CBCopyPictures.Hint=Copia le immagini nella stessa cartella del file esportato
CBCopyPicturesNew.Caption=Solo se non esiste già
CBCopyPicturesNew.Hint=Copia solo i file di immagini che ancora non esistono (non sovrascrive)
LSelectFormat.Caption=Selezionare un formato...
ActionHTMLNew.Caption=Nuovo
ActionHTMLNew.Hint=Nuovo modello
ActionHTMLOpen.Caption=Carica
ActionHTMLOpen.Hint=Carica...e
ActionHTMLNoRecent.Caption=Nessun file recente
ActionHTMLSave.Caption=Salva
ActionHTMLSave.Hint=Salva|Salva come modello
ActionHTMLSaveAs.Caption=Salva con nome...
ActionHTMLSaveAs.Hint=Salva con nome...
ActionInsertTag.Caption=&Inserisci tag speciali
ActionInsertTag.Hint=|Inserisce un valore associato al catalogo
ActionEditUndo.Caption=&Annulla
ActionEditCut.Caption=Taglia
ActionEditCopy.Caption=&Copia
ActionEditPaste.Caption=Incolla
ActionEditDelete.Caption=&Elimina
ActionEditSelectAll.Caption=Seleziona tutto
ActionExportBoth.Caption=Esporta tutti
ActionExportBoth.Hint=|Esporta sia i modelli 'completi' sia quelli 'individuali'
ActionExportSelected.Caption=Esporta la selezione
ActionExportSelected.Hint=|Esporta solo il modello selezionato
ActionDisplayFull.Caption=Tutto
ActionDisplayFull.Hint=Visualizza la lista dei modelli
ActionDisplayIndividual.Caption=Singolo
ActionDisplayIndividual.Hint=Visualizza il singolo modello
MnuGen.Caption=&Generale
MnuGenDte.Caption=Data
MnuGenTme.Caption=Ora
MnuCat.Caption=&Catalogo
MnuCatNme.Caption=Nome file
MnuCatPth.Caption=Origine file
MnuCatNbr.Caption=Numero di film
MnuCatDsk.Caption=Numero di dischi
MnuOwnNam.Caption=Nome prestatario
MnuOwnEml.Caption=E-mail
MnuOwnWeb.Caption=Sito Web
MnuCatDsc.Caption=Trama
MnuMovBeg.Caption=Inizio lista
MnuMovEnd.Caption=Fine lista
MnuMovRec.Caption=Numero
MnuMovInd.Caption=Nome file della pagina dei film
MnuMov.Caption=&Film
MnuMovPic.Caption=Copertina
MnuMovPfn.Caption=Origine Copertina
MnuMovApp.Caption=Valutazione
LCSVDelimiter.Caption=Separatore di campo:
ECSVDelimiter.Hint=|Carattere di separazione dei valori dei campi
LCSVBloc.Caption=Separatore blocchi di testo:
ECSVBloc.Hint=|Carattere di delimitazione delle stringhe (lasciare vuoto se non usato)
LCSVLinebreaks.Caption=Sostituisci linebreaks con:
ECSVLinebreaks.Hint=|Carattere da utilizzare per rappresentare l'a capo nelle descrizioni e nei commenti
CBCSVColumnTitles.Caption=Aggiungi colonna
LSQLTableName.Caption=Nome tabella:
CBSQLUpdate.Caption="Aggiorna" invece di "Inserire"
LSQLCommands.Caption=Includi comandi SQL:
LSQLLinebreaks.Caption=Sostituisci linebreaks con:
LImgFilename.Caption=Nome File:
RBImgAppend.Caption=Associa il numero del film al file selezionato
RBImgNumber.Caption=Usa il numero del film
RBImgTitle.Caption=Usa la formattazione
LOrigonsLink.Caption=Questo formato consente di mettere il tuo film online sul sito Origons <br><br><link>www.origons.com</link>
FieldsCSV.LSelected.Caption=Campi da esportare:
FieldsSQL.LSelected.Caption=Campi da esportare:
LXMLNote.Caption=Si può inoltre esportare in XML dalla finestra principale utilizzando File -> Salva con nome, e selezionando il formato XML. Questo file potrà successivamente essere aperto ed utilizzato da Ant Movie Catalog come un normale catalogo.
Messages.Strings.String[0]=Impossibile salvare il file "%s": %s
Messages.Strings.String[1]=Impossibile caricare il file "%s": %s
Messages.Strings.String[2]=Esporta come file per Origons.com
Messages.Strings.String[3]=Lista ...
Messages.Strings.String[4]=Esporta su %s ...
Messages.Strings.String[5]=Copia file ...
Messages.Strings.String[6]=Esporta come HTML
Messages.Strings.String[7]=Esporta come CSV
Messages.Strings.String[8]=Esporta come SQL
Messages.Strings.String[9]=Esporta immagini
Messages.Strings.String[10]=Il modello HTML è stato modificato. Si desidera salvarlo?
Messages.Strings.String[11]=Il modello HTML è stato modificato. Si desidera salvarlo?
;**********
;* Import *
;**********
[ImportWin2]
Caption=Importa da un altro formato
Btn3.Caption=&Importa
Btn2.Caption=&Annulla
Btn1.Caption=&Aiuto
lvFormat.Columns.Item[0].Caption=Formati di file supportati
[TImportFrame]
lblLink.Caption=Permette di importare film da %s
grpSettings.Caption=Impostazioni
chkAllowDup.Caption=Permette numeri duplicati
chkAutoAssign.Caption=Cerca di assegnare i campi alle colonne automaticamente
lblPictures.Caption=Metodo di importazione immagini:
cmbPictures.Items.String[0]=Salva nel catalogo
cmbPictures.Items.String[1]=Copia nella cartella del catalogo e crea il relativo link
cmbPictures.Items.String[2]=Copia in [...] solo se non è stato salvato
cmbPictures.Items.String[3]=Crea un link assoluto alla immagine corrente
cmbPictures.Items.String[4]=Crea un link relativo alla immagine corrente
grpSourceFile.Caption=File sorgente
btnBrowse.Hint=Sfoglia...|Cerca un file da importare
btnReload.Caption=&Ricarica il file
grpPreview.Caption=Anteprima
lblPreview.Caption=Cliccare sull'intestazione della colonna per assegnarle un campo
ActionListCheck.Caption=&Spunta selezionati
ActionListCheck.Hint=Spunta selezionati|Spunta le voci selezionate
ActionListUncheck.Caption=&Togli spunta selezionati
ActionListUncheck.Hint=Togli spunta selezionati|Toglie spunta alle voci selezionate
ActionListAll.Caption=Spunt&a tutte
ActionListAll.Hint=Spunta tutte|Spunta tutte le voci
ActionListNone.Caption=Spunta &nessuna
ActionListNone.Hint=Spunta nessuna|Toglie la spunta a tutte le voci
ActionHeaderNoImport.Caption=Non importare questo campo
Messages.Strings.String[0]=Nessun film da importare
Messages.Strings.String[1]=Non hai assegnato un campo a nessuna colonna. Cliccare sull'intestazione della colonna per farlo.
Messages.Strings.String[2]=Per questo metodo di importazione delle immagini, il catalogo deve avere un nome; prego, salvarlo da qualche parte e riprovare
[TImportFrameCSV]
chkFirstLineHeaders.Caption=La prima line contiene le intestazione
lblDelim.Caption=Separatore di campo:
edtDelim.Hint=|Carattere per delimitare i valori dei campi
lblQuote.Caption=Separatore blocchi di testo:
edtQuote.Hint=|Carattere di delimitazione delle stringhe (lasciare vuoto se non usato)
lblLinebreaks.Caption=Linebreaks:
edtLinebreaks.Hint=|Carattere da utilizzare per rappresentare l'a capo nelle descrizioni e nei commenti
btnFieldsLoad.Hint=Carica campi|Carica i link campo-colonna che sono stati precedentemente salvati
btnFieldsSave.Hint=Salva campi|Salva i link campo-colonna attuali
[TImportFrameQuery]
grpQuery.Caption=Query da eseguire
btnQueryExec.Hint=Esegui|Esegue query
;***************
;* Preferences *
;***************
[OptionsWin]
Caption=Preferenze
Btn3.Caption=OK
Btn2.Caption=Annulla
Btn1.Caption=Aiuto
LvCat.Items.Item[0].Text=Visualizzazione
LHToolbar.Caption=Barre e menù
LIconSet.Caption=Set di Icone:
LColorType.Caption=Colore:
cbxColorType.Items.String[0]=Automatico
cbxColorType.Items.String[1]=Grigio quando inattivo
cbxColorType.Items.String[2]=Schiarisci quando inattivo
cbxColorType.Items.String[3]=Scurisci quando inattivo
cbxColorType.Items.String[4]=Sempre colorato
CBOfficeXP.Caption=Stile Office XP
CBMenuImages.Caption=Immagini nei menù
LHMainWindow.Caption=Visualizzazione
CBSoftBorders.Caption=Bordi leggeri per la lista, il pannello delle informazioni e delle immagini
LHStartup.Caption=Avvio
CBLogo.Caption=Visualizza logo
LvCat.Items.Item[1].Text=Personalizza barre
LHCustomizeToolbar.Caption=Seleziona le icone che devono apparire nella barra dei menù
LvCat.Items.Item[2].Text=File
LHSaving.Caption=Cataloghi
CBBackup.Caption=Crea sempre una copia di sicurezza
CBAutoLoad.Caption=All'avvio, apri il seguente file anziché crearne uno nuovo:
EAutoLoad.ButtonHint=Sfoglia...|Selezionare un file
CBAutoLoadLast.Caption=Apri l'ultimo file utilizzato
LRecentFiles.Caption=Numero dei file recenti da visualizzare nel menù:
LRepairAssociations.Caption=Per associare i file *.amc con Ant Movie Catalog, clicca sul pulsante sottostante:
BtnRepairAssoc.Caption=Ripara le associazioni
LHHistory.Caption=Prestiti
CBHistory.Caption=Salva la storia dei prestiti nel file seguente (usando il formato tab-delimited):
EHistoryFile.ButtonHint=Sfoglia...|Selezionare un file
LvCat.Items.Item[3].Text=Lista Film
LHDisplay.Caption=Visualizza
CBCheckboxes.Caption=Caselle di selezione
CBHotTrack.Caption=Novità
CBEnhScrollbars.Caption=Barre di scorrimento avanzate
CBMovieNumColumn.Caption=colonna "Numero Film"
LHOperations.Caption=Operazioni
CBDelete.Caption=Conferma eliminazione
CBUndo.Caption=Conferma annullamento
LHShortcut.Caption=Comandi rapidi
LShortcutPrev.Caption=Film precedente
LShortcutNext.Caption=Film successivo
LvCat.Items.Item[4].Text=Formattazione del titolo
LHFormatting.Caption=Formattazione
LTitleColumn.Caption=Titolo da visualizzare:
cbxTitle.Items.String[0]=Titolo originale
cbxTitle.Items.String[1]=Titolo tradotto
cbxTitle.Items.String[2]=Titolo originale (Titolo tradotto)
cbxTitle.Items.String[3]=Titolo tradotto (Titolo originale)
cbxTitle.Items.String[4]=Etichette
CBPrefixes.Caption=Metti il seguente prefisso alla fine del titolo:
LPrefixes1.Caption=Nel titolo verranno riconosciute solo le parole seguite da uno spazio o da una virgoletta.
LPrefixes2.Caption=Inserirle nella lista, ciascuna su una linea separata, senza spazi né virgolette.
LvCat.Items.Item[5].Text=Raggruppamenti
LHGrouping.Caption=Gruppi
CBNotAloneInGroup.Caption=Non creare gruppi per valori che potrebbero essere unici in questo gruppo
CBGroupCount.Caption=Mostra conteggio gruppi
CBGroupExpand.Caption=Espandi completamente come default
LHGroupUngrouped.Caption=Voci non raggruppate
lblGroupLocation.Caption=Posizione:
RBGroupsAbove.Caption=Gruppi sopra le voci non raggruppate
RBGroupsBelow.Caption=Gruppi sotto le voci non raggruppate
CBGroupLabelNumber.Caption=Quando raggruppa per Serie o Numero e ordinato per numero, mischia gruppi e singole voci
CBGroupUnique.Caption=Metti in un gruppo speciale comune le voci che sono da sole nel l
