Programación General > Visual Basic 6.0 e inferiores
Dejo las funciones del archivo .INI
(1/1)
Jimbenit:
Ya se, ya se...
Ya se que muchos manipulas los achivos .INI, seguramente ya tienes sus funciones, bueno para estos no este mensaje...
Este mensaje es para aquellos que aun tienen errores en su codigo de como manejar los archivos .INI
Copien lo siguiente en un modulo standar.
--- Código: Text ---'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ARCHIVO INI EN VB6.0 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ [NILSON JIMENEZ] @@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 28/ENERO/2008= @@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@ I N I @@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 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 Public Function GetINI(ArchivoINI As String, Seccion As String, Clave As _String, Default) Dim Temp As String * 256Dim Longitud As Integer Temp = Space$(256)Longitud = GetPrivateProfileString(Seccion, Clave, Default, Temp, 255, ArchivoINI)GetINI = Left$(Temp, Longitud) End Function Sub WriteINI(ArchivoINI As String, Seccion As String, Clave As String, Valor)Dim n As IntegerDim Temp As String Temp = Valor 'Reemplazar todos los caracteres CR/LF con espaciosFor n = 1 To Len(Valor) If Mid$(Valor, n, 1) = vbCr Or Mid$(Valor, n, 1) = vbLf Then Mid$(Valor, n) = " " End IfNext n n = WritePrivateProfileString(Seccion, Clave, Temp, ArchivoINI)End Sub '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@ AHORA SOLO PARA "LEER" UN DATO DE INFORMACIÓN SOLO TIENE QUE COPIAR @@@@@@@@'@@@@@@@ LA SIGUIENTE INTRUCCIÓN EN EL LUGAR DONDE QUIERA INSERTAR EL DATO @@@@@@@@'@@@@@@@ GetINI(DireccionINI, "Sectores", "Clave", "?") @@@@@@@@'@@@@@@@ @@@@@@@@'@@@@@@@ EJEMPLO: @@@@@@@@'@@@@@@@ Nom_Usu = GetINI(DireccionINI, "Sectores", "NombreUsuario", "?") @@@@@@@@'@@@@@@@ La variable Nom_Usu debe almacenar la información que se encuentre @@@@@@@@'@@@@@@@ en [Sectores] NombreUsuario= @@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@ PARA "GUARDAR" UN DATO DE INFORMACIÓN SOLO TIENE QUE INSERTAR LA @@@@@@@@@'@@@@@@@ SIGUIENTE INSTRUCCIÓN... @@@@@@@@@'@@@@@@@ Call WriteINI(DireccionINI, "Sectores", "Clave", Nom_Usu) @@@@@@@@@'@@@@@@@ @@@@@@@@@'@@@@@@@ EJEMPLO: @@@@@@@@@'@@@@@@@ Call WriteINI(DireccionINI, "Sectores", "NombreUsuario", Nom_Usu) @@@@@@@@@'@@@@@@@ La variable que inserta la información a guardar es Nom_Usu, esta @@@@@@@@@'@@@@@@@ información se guarda en [Sectores] NombreUsuario= @@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Las intrucciones de como manejar estas funciones estan indicadas en el mismo modulo como comentarios...
Bueno... saludos y espero que les sirva.
Jimbenit:
Alguien pidió los INI???
m0skit0:
Una preguntita
--- Citar ---'Reemplazar todos los caracteres CR/LF con espacios
--- Fin de la cita ---
¿Por qué?
P.D: Que sepas que los ficheros INI están obsoletos, usa mejor el registro.
Jimbenit:
Que es mas sencillo que el INI cuando se quiere guardar solo unos cuantos datos y poderlo leer mientras desarrollas tu aplicacion??? ^_^
m0skit0:
^_^
Pero no has respondido a mi pregunta principal...
Navegación
Ir a la versión completa