Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

[VB6] - Leggere & Scrivere i file .INI o .INF

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

[VB6] - Leggere & Scrivere i file .INI o .INF

Messaggioda SuperRomu » ven dic 10, 2004 5:17 pm

Ciao a tutti !!!

mi chiedevo se qualcuno sapeva dirmi come posso fare per leggere dei dati scrittti in un file ini o inf...... [sedia]

grazie in anticipo
[8D] ciao [8D] ciao [8D]
Avatar utente
SuperRomu
Aficionado
Aficionado
 
Messaggi: 147
Iscritto il: mar ago 24, 2004 9:52 pm

Messaggioda crazy.cat » ven dic 10, 2004 5:22 pm

Notepad o un editor di testo qualsiasi.
Avatar utente
crazy.cat
MLI Hero
MLI Hero
 
Messaggi: 30959
Iscritto il: lun gen 12, 2004 1:38 pm
Località: Mestre

Messaggioda SuperRomu » ven dic 10, 2004 5:26 pm

crazy.cat ha scritto:Notepad o un editor di testo qualsiasi.


ehm ehm scusatemi......

per leggerli con Visual basic 6........ [!!!]
Avatar utente
SuperRomu
Aficionado
Aficionado
 
Messaggi: 147
Iscritto il: mar ago 24, 2004 9:52 pm


Messaggioda Ices_Eyes » ven dic 10, 2004 5:26 pm

Ma intendi con visual basic??? [?]
Non ti è sufficiente aprire il file e leggere? [?]

Se si spostiamo...
Avatar utente
Ices_Eyes
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 5543
Iscritto il: ven ott 24, 2003 10:37 am
Località: Prov. di Venezia

Messaggioda Robby78 » ven dic 10, 2004 5:27 pm

X Leggere un file INI devi fare questa dichiarazione in un modulo:

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

x usarla i parametri sono:
(Section, Entry, [valore di ritorno se nn viene trovata la entry], [valore di ritorno se viene trovata la entry], [lunghezza del 4 parametro], [path completo del file])

X scrivere:

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

x usarla i parametri sono:
(Section, Entry, [valore da scrivere], [path completo del file])

Ciao
Povera patria! Schiacciata dagli abusi del potere di gente infame, che non sa cos'è il pudore - Franco Battiato
ricordati di pensare! - mia mamma
Avatar utente
Robby78
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 3829
Iscritto il: gio gen 08, 2004 5:25 pm
Località: Emilia Romagna

Messaggioda SuperRomu » ven dic 10, 2004 5:34 pm

grazie.... una cosa ma come si usa la sintassi non mi è molto chiaro [cry] [cry+] .... puoi farmi qualche esempio ?? [cry+]

[:I] [:I] [:I]
Avatar utente
SuperRomu
Aficionado
Aficionado
 
Messaggi: 147
Iscritto il: mar ago 24, 2004 9:52 pm

Messaggioda Robby78 » ven dic 10, 2004 5:41 pm

si, tu copi le dichiarazioni che ti ho scritto nel post precedente in un modulo, dopodikè le puoi usare all'interno del programma; ad es:

Call WritePrivateProfileString("Sezione di Prova", "Entry di Prova", "Testo","c:\ciccio.ini")

questa istruzione scrive nel file c:\ciccio.ini questo:

[Sezione di Prova]
Entry di Prova=Testo

se poi vuoi leggerla fai così:

dim sRead as string

Call GetPrivateProfileString("Sezione di Prova", "Entry di Prova", "?",sRead,255,"c:\ciccio.ini")

questa istruzione ti riporta nella variabile sRead una stringa di 255 caratteri giustificata con chr(0) in coda quello che hai scritto nell'istruzione precedente; nel caso la Entry nn esista invece ti ritorna il valore di default "?"

tutto chiaro? :)
Povera patria! Schiacciata dagli abusi del potere di gente infame, che non sa cos'è il pudore - Franco Battiato
ricordati di pensare! - mia mamma
Avatar utente
Robby78
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 3829
Iscritto il: gio gen 08, 2004 5:25 pm
Località: Emilia Romagna

Messaggioda SuperRomu » ven dic 10, 2004 5:46 pm

Ok ti ringrazio. !!!!

ora vedo un po se riesco ad usarla come dico io.

Ti farò sapere e se nn riesce ti assillero !!!!!! [:-D]


[afro] [afro] [afro] [afro]
Avatar utente
SuperRomu
Aficionado
Aficionado
 
Messaggi: 147
Iscritto il: mar ago 24, 2004 9:52 pm

Messaggioda Robby78 » ven dic 10, 2004 5:53 pm

[8D] ok! ma ti avverto che fino a lunedì sono troppo off line!
Povera patria! Schiacciata dagli abusi del potere di gente infame, che non sa cos'è il pudore - Franco Battiato
ricordati di pensare! - mia mamma
Avatar utente
Robby78
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 3829
Iscritto il: gio gen 08, 2004 5:25 pm
Località: Emilia Romagna

Messaggioda SuperRomu » ven dic 10, 2004 6:00 pm

no.................
mi crasha vb6 quando esegue la lettura..........
xchè? [cry+] [cry+] [cry+] [cry+]
Avatar utente
SuperRomu
Aficionado
Aficionado
 
Messaggi: 147
Iscritto il: mar ago 24, 2004 9:52 pm

Messaggioda Robby78 » lun dic 13, 2004 8:49 am

SuperRomu ha scritto:no.................
mi crasha vb6 quando esegue la lettura..........
xchè? [cry+] [cry+] [cry+] [cry+]

mmm nn mi è mai capitato.... assicurati di aver installato l'ultimo service pack (credo sia il 5), poi prova a mettere il 255 dentro una variabile prima di passarlo alla funzione...
Povera patria! Schiacciata dagli abusi del potere di gente infame, che non sa cos'è il pudore - Franco Battiato
ricordati di pensare! - mia mamma
Avatar utente
Robby78
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 3829
Iscritto il: gio gen 08, 2004 5:25 pm
Località: Emilia Romagna

Messaggioda Robby78 » lun dic 13, 2004 8:59 am

SuperRomu ha scritto:no.................
mi crasha vb6 quando esegue la lettura..........
xchè? [cry+] [cry+] [cry+] [cry+]


aspetta forse ho capito... prova così:


dim sRead as string

sRead = String$(255, 32)

Call GetPrivateProfileString("Sezione di Prova", "Entry di Prova", "?",sRead,255,"c:\ciccio.ini")

Formatto la stringa di ritorno della stessa lunghezza richiesta alla funziuone GetPrivateProfileString (255)
Povera patria! Schiacciata dagli abusi del potere di gente infame, che non sa cos'è il pudore - Franco Battiato
ricordati di pensare! - mia mamma
Avatar utente
Robby78
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 3829
Iscritto il: gio gen 08, 2004 5:25 pm
Località: Emilia Romagna

Messaggioda SuperRomu » lun dic 13, 2004 2:07 pm

siiiiiiiiiii ora funziona!!!!

grazie!! tnx [applauso] [applauso] [applauso]
Avatar utente
SuperRomu
Aficionado
Aficionado
 
Messaggi: 147
Iscritto il: mar ago 24, 2004 9:52 pm


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising