'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 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 * 256
Dim 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 Integer
Dim Temp As String
Temp = Valor
'Reemplazar todos los caracteres CR/LF con espacios
For n = 1 To Len(Valor)
If Mid$(Valor, n, 1) = vbCr Or Mid$(Valor, n, 1) = vbLf Then
Mid$(Valor, n) = " "
End If
Next 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= @@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
