begin process at 2008 07 06 02:56:19
1 205 441 membres
21 nouveaux aujourd'hui
14 119 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SUPPRESION D'UNE VARIABLE DANS UNE SECTION D'UN FICHIER .INI


Information sur la source

Description

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

  • 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
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
  • signaler à un administrateur
    Commentaire de PROGRAMMIX le 27/02/2004 18:57:59

    Malheureusement, je vais te contredire : une petite recherche sur le site avec le mot-clé INI permet d'avoir quelques sources sur ce thème, y compris la suppression.

    Ceci dit, il y a également moyen d'utiliser les API pour manipuler ce genre de fichier (tant pour écrire que supprimer) ; ce qui évite d'avoir à parcourir l'entièreté d'une fichier au niveau du code.
    Un exemple : http://www.vbfrance.com/code.aspx?ID=7885 (LIRE/ECRIRE/SUPPRIMER DANS UN FICHIER INI GRÂCE AUX APIS WINDOWS)

Ajouter un commentaire

Pub



Appels d'offres

Plugin Dialer outlook
Budget : 2 000€
Travail graphique- ill...
Budget : 1 000€
creation de marque et ...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS