I confess that I am at the bottom of my knowledge
Can you give me some help?
here is my modify script, at the end, in red color are the added lines.
With many thanks
// DESCRIPTION Export to Ant Movie Catalog XML database file with covers; Version 1.1
// BASED ON Yves Charrazac's / Jerome Juin's XML export script
// AUTHOR bad4u
// LANGUAGE All
MessageVersion, amcXML, Temp are String
// Changement de langues
Switch Language
Case 3 // Anglais
MessageVersion = "Please, install 6.08 version or higher. Thanks"
Case 5 // Francais
MessageVersion = "Veuillez installer la version 6.08 ou sup\'e9rieure. Merci."
End
If param.version_texte+"."+param.release_texte<6.08 Then
UserErrorMessage (MessageVersion)
End
fRep_Initial is String = fRepEnCours() + "\\"
First_fRep is String = StringLeft (fRep_Initial , 3 )
amcXML = "<?xml version=""1.0"" encoding=""iso-8859-1""?>" + cr + "<AntMovieCatalog Format=""35"" Version=""3.5.1 (2007-09-22)"" Date=""01/01/2008 00:00:00"" date_vu_avoir=""01/01/2008 00:00:00"">" + cr + " <Catalog>" + cr + " <Properties/>" + cr + " <Contents>" + cr
Debut:
HLitPremier(VIDEOTAP, "titre")
TANTQUE PAS HEnDehors(VIDEOTAP)
MAJ_Fiche:
amcXML = amcXML + " <Movie"
// Number
Temp = ""
Temp = VIDEOTAP.vicleunik
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " Number=""" + Temp + """"
End
// Media Label
Temp = ""
Temp = VIDEOTAP.label
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " MediaLabel=""" + Temp + """"
End
// Media Type
Temp = ""
Temp = VIDEOTAP.TYPE
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " MediaType=""" + Temp + """"
End
// Source
HReadSeek(PROPRIET, "P1CLEUNIK", VIDEOTAP.p1cleunik)
Temp = ""
If VIDEOTAP.p1cleunik > -1 Then
Temp = PROPRIET.NOM
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " Source=""" + Temp + """"
End
End
// Date
Temp = ""
Temp = DateVersChaine(VIDEOTAP.date_acquis)
// Delete the "//" on the beginning of the NEXT line, If your date format is dd.mm.yyyy instead of dd/mm/yyyy
// Temp = StringReplace (Temp , "/" , ".")
Temp = StringReplace (Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " Date=""" + Temp + """"
End
// Rating
If VIDEOTAP.cote_amour > -1 Then
amcXML = amcXML + " Rating=""" + ((VIDEOTAP.cote_amour) * 2) + ".0"""
End
// Original Title
Temp = ""
Temp = VIDEOTAP.titre_orig
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " OriginalTitle=""" + Temp + """"
End
// Translated Title
Temp = ""
Temp = VIDEOTAP.titre
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " TranslatedTitle=""" + Temp + """"
End
// Director
Realisateur is String = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "REALISATEUR")
Realisateur = replace (Realisateur , RC , "; ")
Realisateur = StringReplace(Realisateur, """", """)
If Realisateur <> "" and Realisateur <> "(Nothing)" and Realisateur <> "(N\'e9ant)" Then
amcXML = amcXML + " Director=""" + Realisateur + """"
End
// Producer
Producteur is String = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "PRODUCTEUR")
Producteur = replace (Producteur , RC , "; ")
Producteur = StringReplace(Producteur, """", """)
If Producteur <> "" and Producteur <> "(Nothing)" and Producteur <> "(N\'e9ant)" Then
amcXML = amcXML + " Producer=""" + Producteur + """"
End
// Country
HReadSeek (PAYS, "P0CLEUNIK" , VIDEOTAP.p0cleunik)
Temp = ""
If VIDEOTAP.p0cleunik > -1 Then
Temp = PAYS.PAYS
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " Country=""" + Temp + """"
End
End
// Genre
HReadSeek (CATEG, "CACLEUNIK", VIDEOTAP.CACLEUNIK)
Temp = ""
If VIDEOTAP.CACLEUNIK > -1 Then
Temp = CATEG.CATEGORIE
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " Category=""" + Temp + """"
End
End
// Year
Temp = ""
Temp = VIDEOTAP.annee_real
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " Year=""" + Temp + """"
End
// Length
Temp = ""
Temp = VIDEOTAP.duree
Temp = StringReplace(Temp, """", """)
If Temp <> "" and Temp <> "0" Then
amcXML = amcXML + " Length=""" + Temp + """"
End
// Actors
ListActHTTP is String = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "ACTEUR")
ListActHTTP = replace (ListActHTTP , RC , "; ")
ListActHTTP = StringReplace(ListActHTTP, """", """)
If ListActHTTP <> "" and ListActHTTP <> "(Nothing)" and ListActHTTP <> "(N\'e9ant)" Then
amcXML = amcXML + " Actors=""" + ListActHTTP + """"
End
// URL
Temp = ""
Temp = VIDEOTAP.Movie_URL_Value
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " URL=""" + Temp + """"
End
// Description
HReadSeek (NOTEFILM, "VICLEUNIK", VIDEOTAP.VICLEUNIK)
Temp = ""
If HTrouve() Then
Temp = NOTEFILM.NOTEFILM
Temp = StringReplace(Temp, """", """)
Temp = StringReplace(Temp, RC, "|")
If Temp <> "" Then
amcXML = amcXML + " Description=""" + Temp + """"
End
End
// Comments
Temp = ""
Temp = VIDEOTAP.TEXTE_LIBRE
Temp = StringReplace(Temp, """", """)
Temp = StringReplace(Temp, RC, "|")
If Temp <> "" Then
amcXML = amcXML + " Comments=""" + Temp + """"
End
// Videoformat
HReadSeek (F_VIDEO, "FVCLEUNIK" , VIDEOTAP.fvcleunik)
Temp = ""
If VIDEOTAP.fvcleunik > -1 Then
Temp = F_VIDEO.format_video
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " VideoFormat=""" + Temp + """"
End
End
// Audioformat
HReadSeek (SO, "SOCLEUNIK" , VIDEOTAP.socleunik)
Temp = ""
If VIDEOTAP.socleunik > -1 Then
Temp = SO.SON
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " AudioFormat=""" + Temp + """"
End
End
// Resolution
HReadSeek (F_IMAGE, "FICLEUNIK" , VIDEOTAP.ficleunik)
Temp = ""
If VIDEOTAP.ficleunik > -1 Then
Temp = F_IMAGE.FORMAT_IMAGE
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " Resolution=""" + Temp + """"
End
End
// Disks
Temp = ""
Temp = VIDEOTAP.nb_disques
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " Disks=""" + Temp + """"
End
// Picture
Temp = ""
Temp = VIDEOTAP.IMAGE
Temp = StringReplace(Temp, """", """)
If Temp <> "" and Temp <> "cinehome.jpg" Then
amcXML = amcXML + " Picture=""" + Temp + """"
End
//date_vu_avoir
Temp = ""
Temp = DateVersChaine(VIDEOTAP.date_vu_avoir)
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " date_vu_avoir=""" + Temp + """"
End
// Je possede
Temp = ""
Temp = VIDEOTAP.achete
Temp = StringReplace(Temp, """", """)
If Temp <> "" Then
amcXML = amcXML + " achete=""" + Temp + """"
End
amcXML = amcXML + "/>" + cr
amcXML = StringReplace(amcXML, "; """, """")
HLitSuivant(VIDEOTAP)
End
amcXML = amcXML + " </Contents>" + cr + " </Catalog>" + cr + "</AntMovieCatalog>" + cr
fSauveTexte(fRep_Initial + "AMC_export.xml" , amcXML )
Finscript:
[/code]