BOUCLE
vDoc = fOuvre(<mon_fichier_txt>,foLecture)
SI vDoc<>-1 ALORS
SI PositionEnCours<>0 ALORS
fPositionne(vDoc,PositionEnCours,fpDébut)
FIN
PageWeb = fLitLigne(vDoc)
PositionEnCours = fPositionne(vDoc, 0, fpCourant)
SI (PageWeb=EOT) ALORS //(PageWeb="")ET
attente = Vrai
Message("Attente = vrai")
SINON
Message("")
<ma_procedure>(PageWeb)
FIN
res est un entier = fFerme(vDoc)
SI res = -1 ALORS
// Affichage du message d'erreur si la fermeture n'a pas été effectuée
//Erreur(ErreurInfo( errMESSAGE ))
FIN
SI attente=Vrai ALORS
Multitâche(-100)
attente=Faux
FIN
FIN
A FAIRE TANTQUE CtiVoIP=Vrai
ThreadArrête("mon_thread")
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3505&post_id=14810