Gestione file .ini con VB6

[Parsifal]

Salve a tutti,
dovrei gestire un file .ini all'interno di un'applicazione VB ma ho
difficoltà a trovare delle funzioni che mi permettano di
leggere/scrivere le varie "chiavi". Per ora ho trovato solo un'API
(GetPrivateProfileStringA) che mi permette di leggere..... ma come
scrivere?
Grazie
sfr...@hotmail.com
fre...@tiscalinet.it

ICQ: Parsifal #41945202

Rimuovi NS per l'email

[effedipi]

"Parsifal" <sfre...@hotmail.com> ha scritto nel messaggio
news:391bd699.4718597@ute7...

' Lettura file INI
Declare Function OSGetPrivateProfileString% Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal
keydefault$, ByVal ReturnString$, ByVal NumBytes As Integer, ByVal
FileName$)
' Scrittura file INI
Declare Function OSWritePrivateProfileString% Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal
keydefault$, ByVal FileName$)

Anche se ora è consigliato l'uso del registro del Windows al posto dei
file INI:
Public Declare Function GetProfileString Lib "kernel32" Alias
"GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As
String, ByVal lpDefault As String, ByVal lpReturnedString As String,
ByVal nSize As Long) As Long
Public Declare Function WriteProfileString Lib "kernel32" Alias
"WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName
As String, ByVal lpszString As String) As Long

--
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

[INTERBUSINESS]

Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String)
As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal

lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As

String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Function readini(AppName, KeyName, FileName As String) As String
Dim sRet As String
sRet = String(255, Chr(0))
readini = Left(sRet, GetPrivateProfileString(AppName, KeyName, "", sRet,
Len(sRet), FileName))
End Function

Function writeini(AppName, KeyName, FileName, sValue As String) As Boolean
WritePrivateProfileString AppName, KeyName, vbNullString, FileName
If WritePrivateProfileString(AppName, KeyName, sValue, FileName) = 0
Then
writeini = False
Else
writeini = True
End If
End Function

Ciao

Luca

[Parsifal]

Vi ringrazio delle risposte. Subito dopo il mio post ho continuato a
spulciare la documentazione e avevo trovato le funzioni che mi avete
consigliato e volevo fare un post per avvertire che avevo trovato la
soluzione ma..... siete stati velocissimi: gią c'erano delle risposte
;o). Siete state persone davvero molto gentili.
BYE

[Papa vincenzo]

Vedi nel sito comune o in www.vb2themax.com
"Parsifal" <sfre...@hotmail.com> wrote in message

news:391bd699.4718597@ute7...
> Salve a tutti,
> dovrei gestire un file .ini all'interno di un'applicazione VB ma ho
> difficoltà a trovare delle funzioni che mi permettano di
> leggere/scrivere le varie "chiavi". Per ora ho trovato solo un'API
> (GetPrivateProfileStringA) che mi permette di leggere..... ma come
> scrivere?
> Grazie

[Stefano Piersigilli]

Esiste anche la WritePrivateProfileStringA ...se non trovi ulteriori notizie
scivimi in e-mail a webm...@stephensoftware.it che ti mando un pezzaccio
di codice.
Ciao a presto
Stephen

Papa vincenzo <vincen...@hotmail.com> wrote in message
FhsX4.51636$EY1.5...@news.infostrada.it...