begin process at 2012 02 12 15:07:22
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
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
Toutes les sources de SpOrTiF

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack
Toutes les sources de la catégorie Fichier / Disque

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...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Single Large Rock Formation in Monument Valley
Photo DSLR Camera Taking a Photograph of a Sunflower Field 

Visiter la 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 : 1,888 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)