cls
TYPE Tnote
IDCLASS AS STRING * 2
MATRICULE AS STRING * 2
IDMAT AS STRING * 2
NOM AS STRING * 10
PRENOM AS STRING * 10
NOTE AS STRING * 5
END TYPE

DIM POSITION AS INTEGER
DIM note AS Tnote
DIM MEMOmatricule AS STRING
DIM NBmatiere AS INTEGER
DIM SOMnote AS DOUBLE
OPEN "note.txt" FOR RANDOM AS #1 LEN = LEN(note) + 2
POSITION = 1
GET #1, POSITION, note
MEMOmatricule = note.matricule
PRINT "Bulletin trimestriel"
PRINT "________________________"
WHILE not EOF(1)
NBmatiere = 0
SOMnote = 0
PRINT "Eleve :" note.nom; note.prenom
PRINT "Classe:" note.idclass
PRINT "IDMAT NOTE"
WHILE not EOF(1) AND note.matricule = MEMOmatricule
NBmatiere = NBmatiere + 1
SOMnote = SOMnote + VAL(note.note)
PRINT note.idmat; Spc(8); note.note
POSITION = POSITION + 1
GET #1, POSITION, note
WEND

MEMOmatricule = note.matricule
PRINT "---------------"
PRINT "Moyenne : " ; USING "##.##"; SOMnote/NBmatiere
PRINT ""
PRINT ""
WEND
CLOSE #1

<?php

$fnote = fopen("note.txt","r"); //lecture du fichier note
$LigneNote = fgets($fnote, 40);

// TYPE NOTE
$idclass = substr($LigneNote, 0, 2);
$matricule = substr($LigneNote, 2, 2);
$idmat = substr($LigneNote, 4, 2);
$nom = substr($LigneNote, 6, 10);
$prenom = substr($LigneNote, 16, 10);
$note = substr($LigneNote, 26, 5);
// FIN TYPE NOTE


$MEMOidclass = $idclass;
$MEMOmatricule = $matricule;



while(!feof($fnote)) {
$SOMnote = 0;
$SOMcoeff = 0;

ect....
}
fclose($fnote); // On ferme le fichier note
?>

daviddu54 a écrit:
Salut dugris

Non malheureusement ce n'est pas pour xoops mais en php pure