- 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