begin process at 2010 03 20 22:45:48
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichier / Disque

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

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


 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


 Sources du même auteur

Source avec Zip Source avec une capture APPLICATION APPORTANT DE LA SÉCURITÉ POUR MIRC, PROTECTION, ...
RETOUR D'UN MOT PRÉCIS A L'INTÉRIEUR D'UNE CHAINE

 Sources de la même categorie

Source avec Zip Source avec une capture TRAITEMENT DES NOMS DE FICHIERS. par artgile
Source avec Zip Source .NET (Dotnet) GESTION DE PARC AUTOMOBILE AVEC SÉRIALISATION par guyr07
Source avec Zip Source avec une capture Source .NET (Dotnet) FICHIERS_CACHÉS_LECTURE_SEULE par Le Pivert
Source avec Zip Source avec une capture CHANGEUR D'ICONES par djgab21
Source .NET (Dotnet) DIRECTDISKACCESS par XelectroX

Commentaires et avis

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




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,546 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales