C'est simple, c'est une function qui permet de retourner si la suppresion de la variable dans une section dun fichier .ini a été supprimé.
Syntaxe: ok=supVariable("C:\temp\essais.ini","teste","no1")
Retourne un boolean.
Source / Exemple :
Function supVariable(fichier As String, section As String, variable As String)
Dim ecrire As String
Dim trouver As Boolean
Dim ligne As String
Dim supprimer As Boolean
If (section <> "") Then
Open fichier For Input As #1
trouver = False
supprimer = False
While Not EOF(1)
Line Input #1, ligne
If (InStr(ligne, "[") = 1) And (InStr(ligne, "]") > 0) Then
If (InStr(ligne, "[" & section & "]") = 1) And trouver = False Then
trouver = True
Else
trouver = False
End If
ecrire = ecrire & ligne & vbCrLf
Else
If trouver = True Then
If (InStr(ligne, variable & "=") = 1) Then
supprimer = True
'pas d'ajout-=-> suppression
Else
ecrire = ecrire & ligne & vbCrLf
End If
Else
ecrire = ecrire & ligne & vbCrLf
End If
End If
Wend
Close #1 'Fermeture du fichier..
Open "C:\temp\prog.ini" For Output As #1 'ouverture du fichier
Print #1, ecrire 'impression des lignes
Close #1 'fermeture du fichier
End If
supVariable = supprimer
End Function
Conclusion :
Je ne sais pas si ce genre de code sur les fichiers.ini existait, cependant, je n'ai trouvé aucune source qui montrait comment supprimer une variable a l'intérieur d'un fichier .ini alors, j'ai codé cette petite function.
C'est un code de debutant je dirais, mais grandement utilse pour ceux et celle qui veulent faire du traitement de donné avec les extensions .ini.
- Cette function a pas été testé sur de tres gros fichier .ini **
Mais, elle est completement fonctionnelle.
Si il y a un bug, signalez moi un MSG svp.
PaT
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.