Visual Basic - Como tomar una variable de un archivo de texto.ini

Life is soft - evento anual de software empresarial
   
Vista:

Como tomar una variable de un archivo de texto.ini

Publicado por Miguel (16 intervenciones) el 27/01/2008 17:44:16
Hola a todos....

¿¿Alquien sabe como tomar valores para varibles, que esten guardadas en un archivo de texto, tal vez con extensión .ini ??

Por ejemplo para guardar en ese archivo, variables que puedan tomar distintos parametros, conforme pasa el tiempo, y que con solo modificar el archivo de texto tome el nuevo valor.

De antemano gracias.
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:Como tomar una variable de un archivo de texto.

Publicado por yoyovisual (140 intervenciones) el 28/01/2008 17:29:01
en la pagina del guille

http://www.elguille.info/vb/VB_TIP2.HTM#vb2_005

hay un articulo bastante bueno al respecto

espero que te sirva.
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:Como tomar una variable de un archivo de texto.

Publicado por Mario (107 intervenciones) el 28/01/2008 17:45:48
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

Dim sValor As String, sPath As String, sUsuarioRed As String
Dim iCaract As Integer, iCara As Integer, iUsuario As Long
On Error GoTo ManejadoErrores
Set cnConexion = New ADODB.Connection
Set cnxDBF = New ADODB.Connection
'Para leer en el fichero Ini si esta configurado para trabajar en Red, de ser asi
'el camino donde se localizara la base de datos
bUsuario = False
sValor = Space(255)
sPath = Space(255)
sUsuarioRed = Space(255)
iUsuario = GetPrivateProfileString("Configuracion", "Usuario", "Defecto", sUsuarioRed, 255, App.Path & "facturacion.ini")
If Left$(sUsuarioRed, iUsuario) = ".T." Then
'Si es multiusuarios
bUsuario = True
Else
bUsuario = False
End If
iCaract = GetPrivateProfileString("Configuracion", "Red", "Defecto", sValor, 255, App.Path & "facturacion.ini")
'Si esta trabajando en red
If Left$(sValor, iCaract) = ".T." Then
iCara = GetPrivateProfileString("Configuracion", "Camino", "Defecto", sPath, 255, App.Path & "facturacion.ini")
sCamino = Left$(sPath, iCara)
Else
sCamino = App.Path & ""
End If
Y este seria el fichero INI
[Configuracion]
Red=.F.
Camino=\maquinacarpeta
Usuario=.F.
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