DESCRIPTION.

L'instruction BPUT # écrit les enregistrements dans un fichier ouvert en écriture en ajoutant un Saut de Ligne (LF).

SYNTAXE.

BPUT #kfichier& , kdonnee$

BPUT#kfichier& , kdonnee$

REMARQUES.

kfichier& doit être une valeur numérique correspondant au canal de communication avec un ficher ouvert valide.

BGET # retourne toujours des valeurs numériques positives comprises entre 0 et 255.

L'instruction BPUT # enregistre une chaine de caractères. A la fin de l'enregistrement, l'instruction BPUT #, place un caractère Saut de Ligne (LF ou CHR$10) ou rien à la suite de chaque enregistrement, à  la place de Retour Chariot (RC) avec PRINT #.

Pour enregistrer des chaine de caractères, on indiquera cette chaine de caractères en deuxième paramètre, comme pour l'instruction PRINT #. Par défaut BPUT # place un Saut de Ligne (LF) à la suite de la chaine de caractères, mais ce comportement peut être annulé si l'on place un point-virgule (;) après la chaine de caractères à sauvegarder.

Si on utilise la fonction BPUT # pour enregistrer des valeurs numériques, en plaçant cette valeur comme second argument, c'est son octet le moins significatif qui est écrit dans le fichier. La valeur de l'enregistrement sera donc toujours une valeur entre 0 et 256, quelle que soit la valeur numérique indiquée pour l'enregistrement.

De plus, on pourra utiliser l'instruction BPUT # avec une chaine vide ("") comme second argument, à la suite d'un enregistrement avec l'instruction PRINT #, pour placer un Saut de Ligne (LF) à cet enregistrement. Cette technique, permet d'assurer la compatibilité avec d'autres langages informatiques qui attendent un Saut de Ligne comme délimiteur d'enregistrement, si votre fichier devait être utilisé avec ceux-ci.

RUBRIQUE.

Les fichiers de données pour plus de détails sur la création et l'utilisation des fichiers de données.

EXEMPLES.

1. Enregistrer des chaine de caractères.

kfichier$ = @dir$ + "Tester.txt"

kfichier& = OPENOUT( kfichier$ )

BPUT #kfichier&, "BBC BASIC"

BPUT #kfichier&, "Mon BBC BASIC " ;

BPUT #kfichier&, "pas a pas"

BPUT #kfichier&, "par origine NERD"

CLOSE #kfichier&

PRINT "Operation terminee ..."

END

Vous pouvez vérifier le résultat en ouvrant le fichier, à l'aide du bloc-notes de votre système d'exploitation. Cela devrait ressembler à ceci :

BBC BASIC

Mon BBC BASIC pas a pas

par Origine NERD

2. Enregistrer des valeurs numériques.

kfichier$ = @dir$ + "Tester.txt"

kfichier& = OPENOUT( kfichier$ )

FOR kvaleur = 1 TO 1000 STEP 25 : BPUT #kfichier&, kvaleur : NEXT kvaleur

CLOSE #kfichier&

PRINT "Operation terminee ..."

END

Vous pouvez vérifier le résultat en ouvrant le fichier, à l'aide du bloc-notes de votre système d'exploitation. Cela devrait ressembler à ceci : 3Le~Ч░╔т√-F_xСк├▄ї'@YrЛд╜╓я!:SlЕЮ╖╨щ4MfШ▒╩у№.G`yТл─▌Ў(AZsМе╛╫Ё ";TmЖЯ╕. En effet, chaque valeur enregistrée étant comprise en 0 et 255, elles peuvent être représentées par un caractère ASCII. 

Notez, qu'il n'y a pas de Saut de Ligne (LF) placé entre les valeurs enregistrées.

3. Placer un Saut de Ligne (LF) à la suite d'un enregistrement standard.

kfichier$ = @dir$ + "Tester.txt"

kfichier& = OPENOUT( kfichier$ )

PRINT #kfichier&, "BBC BASIC pour SDL 2.0"

BPUT #kfichier&, ""

PRINT #kfichier&, "Mon BBC BASIC Pas a Pas"

BPUT #kfichier&, ""

PRINT #kfichier&, "par Origine NERD"

BPUT #kfichier&, ""

CLOSE #kfichier&

PRINT "Operation terminee ..."

END

Vous pouvez vérifier le résultat en ouvrant le fichier, à l'aide du bloc-notes de votre système d'exploitation. Cela devrait ressembler à ceci :

BBC BASIC

Mon BBC BASIC pas a pas

par Origine NERD