ADXIRS |
adxirscontient le séparateur d'enregistrements utilisé pour la lecture ou l'écriture sur un fichier texte.
Char [S]adxirs(2)
# Lecture des utilisateurs du groupe Adonix à partir du fichier
# Unix /etc/passwd
# dont la structure est LOGIN:PWD:UID:GID:NOM:HOM:SHELL
Local Char LOGIN(15), PWD(15),UID(5),GID(5),NOM(80),HOM(80,SHELL(80)
Openi "/etc/passwd"
Iomode adxifs ':'
Iomode adxirs chr$(10)
Repeat
Rdseq LOGIN,PWD,UID,GID,NOM,HOM,SHELL
If [L]GID = num$([L]GROUP_ADONIX)
## suite du traitement
Until fstat <> 0
Openi
# Ecriture d'un fichier comportant un champ par ligne, pour lequel la
# fin de ligne est CR LF (chr$(13)+chr$(10))
Openo "TRACE"
Iomode adxifs ""
Iomode adxirs chr$(13) + chr$(10)
For I = 1 to NB_LIG
Wrseq LIGNE(I)
Next I
adxirsest une chaîne de 2 caractères maximum utilisée en conjonction avec les instructions Rdseq et Wrseq. Ces instructions lisent et écrivent des données sous forme ascii, UCS2 ou UTF8, structurées en champs et en enregistrements :
- Rdseq fait une lecture jusqu'à la fin de l'enregistrement, délimité par la séquence définie par adxirs,
- Wrseq écrit un enregistrement se terminant par la séquence adxirs.
adxirsadmet chr$(10) comme valeur par défaut.
adxirsest à positionner par l'instruction Iomode juste après l'ouverture du fichier texte. Cela permet de définir le séparateur d'enregistrement pour un fichier donné et non plus globalement comme cela était le cas pour les versions antérieures à la version 140.
Pas d'erreur associée.
Adonix X3(r) L4G |