Suppr une section *.ini avec nettoyage auto!

Soyez le premier à donner votre avis sur cette source.

Vue 4 563 fois - Téléchargée 370 fois

Description

Cette Fonction simple sert à supprimer les section des fichier ini et de nettoyer les clés orphelines!
pas mal non; je pense que ça servira!!!!...

Source / Exemple :


'Il faut un boutton=command1

'============
'La Fonction====
'============
Public Function SupprSection(Section As String, FichierINI As String)
Dim a As Long
Dim i As Long
Dim Lettre As String
Dim Ligne As String
Dim Found As String
Dim INI As String
Dim Detect As Boolean
Dim LongeurChaine As Long
Detect = True
i = 0
a = FreeFile()
Open FichierINI For Input As #a
While Not EOF(a)
    Line Input #a, Ligne
    Lettre = Left(Ligne, 1)
    If Lettre = "[" Then
        i = i + 1
        Found = InStr(Ligne, "[" & Section & "]")
        If Found = 0 Then INI = INI & vbCrLf & Ligne: Detect = True Else Detect = False
    ElseIf Lettre <> "" And Lettre <> "[" Then
        If Detect = True Then
            Found = InStr(Ligne, "=")
            If Found <> 0 Then INI = INI & vbCrLf & Ligne
        End If
    End If
Wend
Close #a
LongeurChaine = Len(INI)
Open FichierINI For Output As a
If LongeurChaine = 0 Then
    Print #a, INI
Else
    Print #a, Right(INI, LongeurChaine - 2)
End If
Close a
End Function

'==========
'L'appel=====
'==========
Private Sub Command1_Click()
SupprSection "Setting", App.Path & "\Fichierini.ini"
End Sub

Conclusion :


Rgardez dans le Fichier INI
Appuyez sur le boutton
Et regardez à nouveau dans le fichier Ini
@++
Megatrix

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Belial
Messages postés
13
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
23 février 2004
-
C'est vrai que ça servira cette fonction, car avec VB on a bo chercher mais on est obligé de se taper une fonction pour supprimer les sections... Les boules quand je sais qu'en C il suffit de rappeller l'API comme ça :

WritePrivateProfileString(SectionAEffacer, NULL, NULL, FichierINI);

bon aller je te met 10 car tu m'as évité de l'écrire.

bonne prog
ToblerOWNED
Messages postés
18
Date d'inscription
lundi 8 septembre 2003
Statut
Membre
Dernière intervention
8 novembre 2004
-
mmh c surement tres efficace mais ya tellement plus simple...

http://www.vbfrance.com/code.aspx?ID=7885
cs_cosmic
Messages postés
61
Date d'inscription
mercredi 30 octobre 2002
Statut
Membre
Dernière intervention
16 mai 2005
-
Cette fonction est exactement ce que je cherchais!!!

Merci a toi

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.