Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VB6: Initialisatie Tip

Dag Allemaal, weer eens wat anders, geen probleem maar een tip dit keer. Een tijd heb ik lopen zoeken hoe ik sleutels of zelfs hele secties kon verwijderen uit een INI-bestand. Ik heb ook hier de vraag neergelegd, maar geen bevredigend antwoord gekregen, terwijl het heel simpel blijkt te zijn. Misschien dat iemand er iets aan heeft, ik ben er blij mee in ieder geval. Ik heb er even een Subje van gemaakt zodat hij makkelijker is te gebruiken... [code:1:8f80d7139d]Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, _ ByVal lplFilename As String) As Long Public Sub IniDeleteKey(Inibestand As String, Sectie As String, Sleutel As String) 'Wanneer Inibestand niet bestaat, wordt deze (leeg en overbodig) gecreeerd, dus let op! If Len(Sleutel$) > 0 Then Dim Karakters As Long Karakters = WritePrivateProfileString(Sectie$, Sleutel$, vbNullString, Inibestand$) Else MsgBox "U moet een sleutelnaam opgeven, anders wordt de hele sectie verwijderd.", vbExclamation, "Let op" End If End Sub Public Sub IniDeleteSection(Inibestand As String, Sectie As String) 'Wanneer Inibestand niet bestaat, wordt deze (leeg en overbodig) gecreeerd, dus let op! Dim Karakters As Long Karakters = WritePrivateProfileString(Sectie$, vbNullString, vbNullString, Inibestand$) End Sub[/code:1:8f80d7139d] De truc zit 'm in de vbNullstring gedeelten. Om een sleutel te verwijderen: vbNullString meegeven aan 'Waarde' Om een hele sectie te verwijderen: vbNullString meegeven aan 'Sleutel' Let op! Beide methoden dmv WritePrivateProfileString Succes! Rob

Rob V