Attualmente per leggere e scrivere un file INI uso la seguente Function e Sub:
codice:
'Legge il config.INI percorso cartella:
Public Function INIRead(File As String, Section As String, Item As String) As String
Dim sBuf As String, iRC As Integer
sBuf = Space(255)
iRC = GetPrivateProfileString(Section, Item, "Not Found", sBuf, 255, App.Path + "/" + File)
sBuf = Left$(sBuf, iRC)
If StrComp(sBuf, "Not Found") = 0 Then
INIRead = vbNullString
Else
INIRead = sBuf
End If
End Function
'---------------------------------------------
'Scrive il config.INI percorso cartella:
Public Sub INIWrite(File As String, Section As String, Item As String, ItemValue As String)
WritePrivateProfileString Section, Item, ItemValue, App.Path + "/" + File
End Sub
Dovrei aggiungere un'ulteriore informazione nel File INI contenuta in una variabile numerica Long (RevXRGB), è possibile aggiungere il predetto valore alle due sezioni sopra riportate o devo crearne delle nuove?
Non ho domestichezza con il sopra riportato codice, sarei grato se mi mostrate le modifiche o le nuove implementazioni.