AppendStringToFile
Ajoute la chaîne de caractères data à la fin du fichier fileName.
Syntaxe
procedure AppendStringToFile(fileName: String; data: String)
Remarques
Si la fonction échoue (chemin introuvable, fichier protégé, pas de droit en écriture sur le fichier et/ou le dossier, etc.), cela provoque une erreur d'exécution.
Attention :
- si le fichier fileName n'existe pas, il sera automatiquement créé.
- si le fichier fileName existe, la chaîne de caractères data sera directement ajoutée à la suite des données du fichier.
Dans le cas classique de la génération d'un fichier de log par exemple, avec plusieurs appels successifs à AppendStringToFile, n'oubliez pas d'ajouter un retour chariot (caractères #13#10) à la fin de data, sinon tous les logs que vous écrirez dans le fichier vont être sur une seule ligne.
Précision technique
En réalité, cette fonction écrit un flux binaire dans le fichier.
Ainsi, elle ajoute au fichier les octets de poids faible des caractères de la chaîne passée en paramètre (pour mémoire, les chaînes sont gérées en UTF-16 dans Windows, soit 2 octets par caractère).
Si la chaîne est du texte traitée par le script en Unicode (c'est le cas avec toutes les chaînes écrites dans l'éditeur de script), qui contient un caractère qui ne fait pas partie des caractères ASCII de base (voire des caractères de l'ISO-8859-1) et que le point de code de ce caractère est supérieur à 255 (cas du € par exemple), seul l'octet de poids faible sera enregistré.
Dans ce cas, il est recommandé d'utiliser un encodage UTF-8 pour les données de texte.
Exemples
Exemple de construction d'un fichier de log:
var fichier : String;
var connexion : String;
fichier := 'C:\log.txt';
s := 'date et heure de connexion : ';
connexion := s + DateTimeToStr(Now) + #13#10;
AppendStringToFile(fichier, connexion);