noitide (Normal User)
Pro
Messaggi: 107
Iscritto: 24/06/2009
|
Premessa: il metodo qui sotto è diverso dal tuo, l'ho usato per un mio programma, quasi certamente oggi sarà obsoleto ma a me non ha mai dato problemi e forse è più comodo della tua strada. Così puoi sia leggere che scrivere in un file .ini
Codice sorgente - presumibilmente VB.NET |
Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32 Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Public Function ReadIniData(ByVal Section As String, ByVal Key As String, ByVal filename As String) As String Dim Valore As Long Dim RetVal As String = Space(256) Valore = GetPrivateProfileString(Section, Key, "<Nessun valore>", RetVal, RetVal.Length, filename) ReadIniData = Trim(RetVal.ToString) End Function Public Function WriteIniData(ByVal Section As String, ByVal Key As String, ByVal Value As String, ByVal filename As String) As String Dim Valore As Long Dim RetVal As String = Space(256) Valore = WritePrivateProfileString(Section, Key, Value, filename) WriteIniData = Trim(RetVal.ToString) End Function
|
P.S. quando usi la funzione readinidata assicurati di fare così
Codice sorgente - presumibilmente C# / VB.NET |
dim stringaottenuta as string = readinidata("tuasezione","tuavoce","percorsofile")
stringaottenuta = stringaottenuta.remove(stringaottenuta.Length - 1, 1)
|
in parole povere elimini l'ultimo carattere della stringa, altrimenti essa non sarà manipolabile.
Spero di essere stato utile e chiaro Ultima modifica effettuata da noitide il 12/05/2011 alle 18:42 |