Suppr une section *.ini avec nettoyage auto!

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_MEGATRIX)