+++ /dev/null
-
-$doc:=Creer document("c:\formations.txt";"TXT")
-Si (ok=1)
- $tab:=Caractere(9)
- $fin:=Caractere(13)
- TOUT SELECTIONNER([Phono])
- Boucle ($i;1;Enregistrements trouves([Phono]))
- $cote:=[Phono]Cote_Phono
- TOUS LES SOUS ENREGISTREMENTS([Phono]Formation)
- Boucle ($j;1;Sous enregistrements trouves([Phono]Formation)
- $texte:=$cote+$tab+[Phono]Formation'Instr_Scientif+$tab+[Phono]Formation'Instr_Vernacul+$tab+[Phono]Formation'Interpr?te+$tab+[Phono]Formation'Total_Instrum+$fin
- ENVOYER PAQUET($doc;Mac vers Windows($texte))
- SOUS ENREGISTREMENT SUIVANT([Phono]Formation)
- Fin de boucle
- LIBERER ENREGISTREMENT([Phono])
- ENREGISTREMENT SUIVANT([Phono])
- Fin de boucle
-
- FERMER DOCUMENT($doc)
-
-Fin de si
-