Attualmente per leggere e scrivere un file INI uso la seguente Function e 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?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
Non ho domestichezza con il sopra riportato codice, sarei grato se mi mostrate le modifiche o le nuove implementazioni.![]()

Rispondi quotando
