Visual Basic - Colegas..Necesito Ayuda para Modificar Archivo.ini

Life is soft - evento anual de software empresarial
 
Vista:

Colegas..Necesito Ayuda para Modificar Archivo.ini

Publicado por LayerZeek (1 intervención) el 07/02/2006 14:06:26
El Asunto es el Siguiente... en este archivo.ini se almacenan las opciones generales de inicio del programa.. como el idioma, colores personalizados de usuario, cadena de conexion a sql... bueno, en fin... por lo que este archivo debe ser modificado segun los cambios que realice el usuario en la aplicacion q estoy creando....
Puedo crear un archivo nuevo perfectamente... pero no modificarlo... existe alguna forma facil y rapida de hacerlo sin tener que borrar el anterior, y crearlo nuevamente con todos los datos que ya estaban antes.??........ Gracias a todos .
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:Colegas..Necesito Ayuda para Modificar Archivo.

Publicado por Cecilia Colalongo (3116 intervenciones) el 07/02/2006 14:31:49
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