Newsgroup: it.comp.lang.visual-basic
Titolo: files .ini +NOTIZIE!!

Salve a tutto il N.G.
Chi mi sa dare notizie, file d'esempio  e ogni sorta di materiale sui files
.ini?
Con che programma si creano? 
come interagiscono con il VB?
Quali sono i comandi base?
Grazie a tutti!!!
buon lavoro! :)
-- 
Posted from  [195.223.93.201] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
c25067dce3bfbdf93af...@mygate.mailgate.org...


 Quali sono i comandi base?
...fopen...        :-P
...scherzi a parte: un file ini è un file di testo e come tale non fa nulla.
E' il tuo programma, eventualmente, se ne hai voglia, se ti è utile, a
scriverci e fare qualcosa in funzione di ciò che ci sta scritto.
In teoria tuttavia, Ms vorrebbe farti usare il registry. Scrivo in teoria,
perchè per certi aspetti trovo assurdo accrescere a dismisura il registry
con impostazioni e settaggi specifici della singola app.
Sarebbe _molto_ meglio, imho, usare il registry per la configurazione
generale della macchina e una bella cartella "ini" con tutti i file ini
delle singole app...  opinione personale, ovviamente.
Per la gestione dei file ini, vedi SC.
ciao
ugo

 ha scritto nel messaggio
news:9tavff$3e9$1...@lacerta.tiscalinet.it...

Prego a favorire:
Creati un modulo ed inserisci le seguenti
dopo di ciò leggiti l'msdn e fai delle prove:
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, _
     ByVal lpKeyName As Any, _
     ByVal lpString As Any, _
     ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, _
     ByVal lpKeyName As Any, _
     ByVal lpDefault As String, _
     ByVal lpReturnedString As String, _
     ByVal nSize As Long, _
     ByVal lpFileName As String) As Long
Function fnLeggiIni(Percorso_File_Ini As String, Sezione As String, Chiave
As String) As String
Dim lpszS As String
Dim lpszE As String
Dim lpszD As String
Dim lpszFN As String
Dim buffer As String
Dim r As Long
    '
    ' Lettura del file ini, sezione SEZIONE_DB e chiave PERCORSO_DB
    '
    Screen.MousePointer = 11
    lpszS = Sezione '& Chr(0)
    lpszE = Chiave '& Chr(0)
    lpszD = ""  '"ERRORE_INI"  & Chr(0)
    lpszFN = Percorso_File_Ini ' & Chr(0)
    buffer = Space(256)
    r = GetPrivateProfileString(lpszS, lpszE, lpszD, buffer, Len(buffer),
lpszFN)
    If Left(buffer, r) <> lpszD Then
        lpszD = Left(buffer, r)
    End If
    fnLeggiIni = lpszD
    Screen.MousePointer = 0
End Function
Public Sub fnScriviIni(Percorso_File_Ini As String, Sezione As String,
Chiave As String, Value As String)
Dim lpszS As String
Dim lpszE As String
Dim lpszD As String
Dim lpszFN As String
Dim buffer As String
Dim r As Long
    '
    ' Scrittura del file ini, sezione SEZIONE_DB e chiave PERCORSO_DB
    '
    Screen.MousePointer = 11
    lpszS = Sezione & Chr(0)
    lpszE = Chiave & Chr(0)
    lpszD = Value & Chr(0)
    lpszFN = Percorso_File_Ini & Chr(0)
    r = WritePrivateProfileString(lpszS, lpszE, lpszD, lpszFN)
    If Left(buffer, r) <> lpszD Then
        lpszD = Left$(buffer, r)
    End If
    Screen.MousePointer = 0
End Sub
 A proposito Buon Natale!...
BN

 delle singole app...  opinione personale, ovviamente.
Sono perfettamente d'accordo... Inoltre modificare un file INI a mano e' una cosa, il
registro e' un'altra. Se poi un programma viene installato su + macchine, per le
impostazioni e' sufficiente copiare l'INI da una all'altra, cone il reg bisogna
esportare TUTTE le chiavi (ovunque siano state messe nel reg) ed inserirle negli altri
PC.

 "GetPrivateProfileStringA" _
E se in future versioni di win non verranno + supportate? Potrebbe succedere? WinXP ce
le ha ancora?

 ha scritto nel messaggio
news:2V7K7.733$263....@news1.tin.it...

ce le ha, ce le ha... figurati se tolgono i file INI (speriamo non siano
'le ultime parole famose'! :))
Faber