Valide sous UNIX et Windows
La fonction WriteIniSection crée ou écrase une section entière d'un fichier d'initialisation (.ini) particulier. Si le fichier .ini n'existe pas, il est créé par cette fonction.
Cette fonction de fichier d'initialisation (.ini) présente le format suivant :
WriteIniSection(section as String, value as String, filename as String) as Boolean
Identifie le nom de la section à écrire. Si la section n'existe pas, elle est créée par cette fonction.
Identifie les entrées à écrire. L'entrée du paramètre value doit avoir le format suivant :
Entry_1 = Value_1 <LF>
Entry_n = Value_n <LF>
Indique le nom du fichier d'initialisation.
En cas de réussite, la fonction renvoie True, sinon elle renvoie False.
Exemple : Fonction WriteIniSection
Dim entries as String
Dim LF as String
LF = chr(10)
entries = "Entry_1 = Value_1" + LF + "Entry_n = Value_n"
Rem cet exemple écrit la section LIST dans c:\temp\test.ini
Dim attrList as String
lf = chr(10)
attrList = "Entry_1=Value_1"+lf+"Entry_2=Value_2"
If Not(WriteIniSection("LIST", attrList, "c:\temp\test.ini")) Then
MessageBox("Impossible de créer la section LIST", "DMS", MB_OK + MB_ICONEXCLAMATION)
SetStatus(1)
quitter
End If
|
Copyright © 2013 CA.
Tous droits réservés.
|
|