|
PROCEDURE LitTAGMP3(NomFic)
//Procédure tirée de la LST
//Cette procédure va chercher dans le fichier
//le nom de l'artiste et de la chanson, elle doit retrouver la balise TAG
// Les 128 derniers caractères sont structurés de la manière suivante
// Offset Type Len Name
// 0 char 3 "TAG"
// 3 char 30 titre
// 33 char 30 Artiste
// 63 char 30 Album
// 93 char 4 Année
// 97 char 30 Commentaires
// 127 byte 1 Genre (Exemple : Blues, Dance...)
//Variables locales
st_Idtag est un ST_Tag //Structure des Tags
sGenre est une chaîne
nGenre est un entier sur 1 octet //Genre sur 1 byte
//Ouverture du fichier son
nResultat est un entier
nResultat=fOuvre(NomFic,foLecture)
//On se positionne sur le 128EME caractère en partant de la fin du fichier MP3
fPositionne(nResultat,-128,fpFin)
//***********************************************************************
//******* On vérifie si une balise TAG existe ************
//***********************************************************************
//Lecture des trois premier caractères
SI fLit(nResultat,3) = "TAG" ALORS
// //***********************************************************************
// //******* On récupère et on affiche les indos du fichier son ************
// //***********************************************************************
//Titre
st_Idtag:sTitre = fLit(nResultat,30)
//Artiste
st_Idtag:sArtiste=fLit(nResultat,30)
//Album
st_Idtag:sAlbum=fLit(nResultat,30)
//Année
st_Idtag:sAnnée=fLit(nResultat,4)
//Commentaire
st_Idtag:sBlabLa=fLit(nResultat,30)
//Genre
fLit(nResultat,1,&nGenre)
SELON nGenre+1
CAS 1 : sGenre="Blues"
CAS 2 : sGenre="Classic Rock"
CAS 3 : sGenre="Country"
CAS 4 : sGenre="Dance"
CAS 5 : sGenre="Disco"
CAS 6 : sGenre="Grunge"
CAS 7 : sGenre="Hip-Hop"
CAS 8 : sGenre="Jazz"
CAS 9 : sGenre="Metal"
CAS 10 : sGenre="New-Age"
CAS 11 : sGenre="Oldies"
CAS 12 : sGenre=""
CAS 13 : sGenre="Pop"
CAS 14 : sGenre="Rithme&Blues"
CAS 15 : sGenre="Rap"
CAS 16 : sGenre="Reggae"
CAS 17 : sGenre="Rock"
CAS 18 : sGenre="Techno"
CAS 19 : sGenre="Industrial"
CAS 20 : sGenre="Alternative"
CAS 21 : sGenre="Ska"
CAS 22 : sGenre="Death-Metal"
CAS 23 : sGenre="Pranks"
CAS 24 : sGenre="Soundtrack"
CAS 25 : sGenre="Euro-Techno"
CAS 26 : sGenre="Ambiant"
CAS 27 : sGenre="Trip-Hop"
CAS 28 : sGenre="Vocal"
CAS 29 : sGenre="Jazz&Funk"
CAS 30 : sGenre="Fusion"
CAS 31 : sGenre="Trance"
CAS 32 : sGenre="Classical"
CAS 33 : sGenre="Instrumental"
CAS 34 : sGenre="Acid"
CAS 35 : sGenre="House"
CAS 36 : sGenre="Game"
CAS 37 : sGenre="Sound-Clip"
CAS 38 : sGenre="Gospel"
CAS 39 : sGenre="Noise"
CAS 40 : sGenre="AlternRock"
CAS 41 : sGenre="Bass"
CAS 42 : sGenre="Soul"
CAS 43 : sGenre="Punk"
CAS 44 : sGenre="Space"
CAS 45 : sGenre="Mediative"
CAS 46 : sGenre="Instrumental-Pop"
CAS 47 : sGenre="Instrumental-Rock"
CAS 48 : sGenre="Ethnic"
CAS 49 : sGenre="Gothic"
CAS 50 : sGenre="Darkwave"
CAS 51 : sGenre="Techno-Industrial"
CAS 52 : sGenre="Electronicien"
CAS 53 : sGenre="Pop&Folk"
CAS 54 : sGenre="Eurodance"
CAS 55 : sGenre="Dream"
CAS 56 : sGenre="Southern-Rock"
CAS 57 : sGenre="Comedie"
CAS 58 : sGenre="Cult"
CAS 59 : sGenre="Gansta"
CAS 60 : sGenre="Top-40"
CAS 61 : sGenre="Christian-Rap"
CAS 62 : sGenre="Pop/Funk"
CAS 63 : sGenre="Jungle"
CAS 64 : sGenre="Native-American"
CAS 65 : sGenre="Cabaret"
CAS 66 : sGenre="New-Wave"
CAS 67 : sGenre="Psychadelic"
CAS 68 : sGenre="Rave"
CAS 69 : sGenre="Showtunes"
CAS 70 : sGenre="Trailer"
CAS 71 : sGenre="Lo-Fi"
CAS 72 : sGenre="Tribal"
CAS 73 : sGenre="Acid-Punk"
CAS 74 : sGenre="Acid-Jazz"
CAS 75 : sGenre="Polka"
CAS 76 : sGenre="Retro"
CAS 77 : sGenre="Musical"
CAS 78 : sGenre="Rock&Folk"
CAS 79 : sGenre="Hard-Rock"
CAS 80 : sGenre="Unknow"
AUTRES CAS : sGenre=""
FIN
st_Idtag:sGenre=sGenre
FIN
RENVOYER st_Idtag
| |
|