1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
| // un fichier MP3 contient :
// le genre, le titre et le compositeur du morceau
sGenre est une chaîne //sgenre de la chanson
sTitre est une chaîne //Titre de la chanson
sArtiste est une chaîne //Artiste
sValCaract est un caractère //récupère le caractère lu
sBalise est une chaîne //Récupère la position de la balise TAG
nCpt est un entier //Compteur
nValRet est un entier //Valeur de retour de recherche dans une chaîne
nIdFic est un entier // identifiant du fichier ouvert
//Ouverture du fichier son
nIdFic=fOuvre(sNomFic,foLecture)
// test de l'ouverture
SI nIdFic=-1 ALORS
RETOUR
FIN
//On se positionne sur le 128ème caractère en partant de la fin du fichier MP3
fPositionne(nIdFic,-128,fpFin)
//Lecture des trois premiers caractères
sBalise = fLit(nIdFic,3)
//Si la balise est TAG, c'est un MP3
SI sBalise ~= "TAG" ALORS
//***********************************************************************
//******* On récupère et on affiche le titre du fichier son ************
//***********************************************************************
// 30 caractères qui suivent
POUR nCpt= 1 A 30
sValCaract = fLit(nIdFic,1)
//On supprime le caract(0) considéré comme fin de chaine
SI sValCaract=Caract(0) ALORS
sValCaract=Caract(160) //Caract(160) correspond à un espace
FIN
sTitre += sValCaract
FIN
sTitre = SansEspace(sTitre)
//Si aucun titre
SI sTitre = EOT ALORS sTitre = "Unknown"
//Affichage du titre
Lbl_Titre = sTitre
//***********************************************************************
//******* On récupère et on affiche le nom de l'artiste ************
//***********************************************************************
// 30 caractères qui suivent
POUR nCpt= 1 A 30
sValCaract = fLit(nIdFic,1)
//On supprime le caract(0) considéré comme fin de chaine
SI sValCaract = Caract(0) ALORS
sValCaract = Caract(160) //Caract(160) correspond à un espace
FIN
sArtiste += sValCaract
FIN
//Affichage du nom de l'artiste
Lbl_Artiste = sArtiste
//***********************************************************************
//******* On récupère et on affiche le sgenre du fichier son **********
//***********************************************************************
//On se positionne sur le 128ème caractère en partant de la fin du fichier MP3
fPositionne(nIdFic,-1,fpFin)
//Lecture des trois premiers caractères
sValCaract = fLit(nIdFic,1)
// recherche du genre
sgENRE = sRenvoieGenre(sValCaract)
//Affichage du sgenre
Lbl_Genre = sGenre
SINON
//Affichage du nom du fichier
Lbl_Titre = fExtraitChemin(sNomFic,fFichier)
Lbl_Genre = "Inconnu"
Lbl_Artiste = "Inconnu"
FIN
// fermeture du fichier
fFerme(nIdFic) |
Partager