Visual Basic - Podrían explicarme como leer y escribir los *.INI

Life is soft - evento anual de software empresarial
 
Vista:

Podrían explicarme como leer y escribir los *.INI

Publicado por Andrés (43 intervenciones) el 20/08/2003 19:39:50
Yo se que es un tema del que talvez se ha hablado mucho, y lo digo porque he visto muchas preguntas y sus correspondientes respuestas, pero como no lo he necesitado, pues nunca le he puesto atención, al punto de creer que nunca lo necesitaria, pero, que crees, ahora si ocupo saberlo, y de emergencia.
Quiero crear un archivo INI (creo que es un archivo de texto con extension INI) para escribirle y despues leer lo que escribi, he inclusive, reemplazar lo que escribi por otra cosa, etc.
Gracias por tu ayuda
Saludos desde Costa Rica
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Podrían explicarme como leer y escribir los *.I

Publicado por pablo guzman (5 intervenciones) el 20/08/2003 21:06:18
Te lo paso por mail
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Podrían explicarme como leer y escribir los *.I

Publicado por Cecilia Colalongo (3116 intervenciones) el 21/08/2003 02:45:50
Con las API's para archivos INI GetPrivateProfileString para leerlo y WritePrivateProfileString para escribirlo.

Public 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

Public 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

strBuffer = String(255, " ")

WritePrivateProfileString "MiSeccion", "MiValor", "MiValor", App.Path + "\MiArchivo.ini"

GetPrivateProfileString "MiSeccion", "MiValor", "0", strBuffer,255, App.Path + "\MiArchivo.ini"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar