Visual Basic - por k alguien me expliqeu estto

Life is soft - evento anual de software empresarial
 
Vista:

por k alguien me expliqeu estto

Publicado por yeni (146 intervenciones) el 15/09/2005 03:30:35
por fa... quisiera k alguien me enseñe un poko de esto:

Hay un archivo .INI con el nombre de routers y contiene esto:
[Routes]
sUnitBdf=C:\Sistema ADEMIFE\Data\BDAlmacen.mdb
sUnitImage=C:\Sistema ADEMIFE\Icon\
sMessages=FERRETERIA ADEMIFE
--->Se supone k esos son variables y contiene la ruta donde se encuentra la Base de Datos,la ruta donde se encuentran las imagenes y la ultima variable k se supone contiene un titulo.

Ahora lo k quiero saber es :
como hago para extraer el valor de esas variables , que se encuentran en ese archivo .INI
como puedo programar utilizando esas variables

---------------------------------------------
Bueno epsro alguien me ayude... por fa.... no soy tan experta y quisiera k me ayuden... besos nenes
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
Imágen de perfil de alberto
Val: 538
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:por k alguien me expliqeu estto

Publicado por alberto (294 intervenciones) el 17/09/2005 18:58:13
Tienes que usar las APIs
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

Por ejemplo para leer el valor de una variable puedes usar:
Public Function ReadString(Seccion As String, Variable As String, File As String) As String

Dim Valor As String * 255
Dim resp As Long

resp = GetPrivateProfileString(Seccion, Variable, "", Valor, 255, File)
ReadString = Left(Valor, resp)

End Function
y para escribir:
Public Function WriteString(Seccion As String, Variable As String, File As String, Valor As String)

WritePrivateProfileString Seccion, Variable, Valor, File

End Function
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:por k alguien me expliqeu estto

Publicado por yeni (146 intervenciones) el 18/09/2005 01:00:55
Por fa un pregunta .....

yo llamo asi a la funcion desde el formulario
Text1.Text = Module1.ReadString( ? , "Igv", App.Path + "\Programa para leer variables de archivo INI/inical.ini")

Por fa no entiendo k va en "seccion"

'''''modulo k me enviaste
Public Function ReadString(Seccion As String, Variable As String, File As String) As String

Dim Valor As String * 255
Dim resp As Long

resp = GetPrivateProfileString(Seccion, Variable, "", Valor, 255, File)
ReadString = Left(Valor, resp)

End Function
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:por k alguien me expliqeu estto

Publicado por Juan_K (181 intervenciones) el 18/09/2005 05:04:10
Un fichero ini tiene lasiguiente estructura

[VARDESECCION1]
var1=20
mensaje=Hola

[Variables de SECCION2]
nombre= jose
apellidos=Sanchez del Solar

como ves aqui hay dos secciones "VARDESECCION1" y "Variables de SECCION2" y dentro da cada una tienes un grupo de variables.
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