Comunidad PHPeros
Lenguajes => Visual Basic => Mensaje iniciado por: javipilo en 16 de Mayo de 2010, 17:20:11 pm
-
Bueno pues como mis programas no guardaban información ya que no se de bases de datos ni nada quiero guardarlo en un .ini pero ninguna guía aclara lo que yo quiero hacer, por ejemplo un usuario se registra con un nombre y contraseña en su PC, entonces yo quiero leer desde ahí los datos y comprobar que la contraseña y el usuario que introduce es correcto ¿me entienden?
Saludos
-
Echale un vistazo a http://en.wikipedia.org/wiki/INI_file
-
ESO ES EXACTAMENTE LO QUE ESTOY BUSCANDO!!!
Pero ni idea de como hacerlo :(
ya e buscado y no aparece nada..
-
A ver, si buscamos mejor, sale este codigo
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
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
Function ReadINI(Section As String, KeyName As String, FileName As String) As String
Dim sRet As String
sRet = String(255, Chr(0))
ReadINI = Left(sRet, GetPrivateProfileString(Section, ByVal KeyName$, "", sRet, Len(sRet), FileName))
End Function
Sub WriteINI(sSection As String, sKeyName As String, sNewString As String, sFilename)
Call WritePrivateProfileString(sSection, sKeyName, sNewString, sFilename)
End Sub
Parametros de ReadINI:
A ver, todos sabemos que un ini es asi:
[datos] <- Eso es Section
version=1.2 <- version es KeyName y 1.2 sera lo que devuelve
lenguaje=es
[usuarios] <- Eso es Section
admin_1=pepe <- admin_1 es KeyName y pepe sera lo que devuelve
clave_1=123456
Lo de WriteINI es identico, pero sNewString seria el valor que queremos darle
Fuente: http://www.moparisthebest.com/smf/index.php?topic=1286.0
-
Gracias Rodrinete me servió y si hay alguna duda me decís y os ayudo;)
Saludos