Título: [VB 2012] Login con datos de archivo de texto (.txt)
Publicado por: Tomix999 en 10 Marzo 2013, 23:37 pm
Hola, estoy practicando con un programa y quiero hacer un Registro y logueo. Para loguear que verifique de un .txt de esta forma: Nombre,clave & nombre/clave & nombre-clave De cualquier forma que este en el .txt ejemplo: hola,123 tomix,999 y para loguear: Nombre: tomix Clave: 999 El registro lo hago yo facilmente :), pero a la hora de validar y loguear no se como :S Descargo el .txt y se pega en un richtextbox invisible diminuto, uso: if richtextbox.text.contains = user.text then
'seguido de:
if user.text.length < 10 then 'Sigue else 'error end if Pero quiero que compruebe el "Nombre,clave" de 1 txt en 2 textbox(User.textbox,clave.textbox), solo 1 linea (nombre,clave) La verdad no tengo idea como hacerlo :S Espero que puedan ayudarme :D Saludos
Título: Re: [VB 2012] Login con datos de archivo de texto (.txt)
Publicado por: NetJava en 13 Marzo 2013, 19:30 pm
Buenas, a lo mejor para lo que deseas te viene mejor un archivo .ini Public Class mcls_archivosIni ' Funciones API Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer Private Declare Ansi Function GetPrivateProfileInt Lib "kernel32.dll" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer Private Declare Ansi Function FlushPrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As Integer, ByVal lpKeyName As Integer, ByVal lpString As Integer, ByVal lpFileName As String) As Integer Dim strFilename As String ' Constructor, acepta un nombre de fichero (si no existe se creará) Public Sub New(ByVal Filename As String) strFilename = Filename End Sub ' Propiedad para Read-only ReadOnly Property FileName() As String Get Return strFilename End Get End Property Public Function ObtenerString(ByVal sección As String, ByVal Clave As String, ByVal [Default] As String) As String ' Devuelve una cadena desde tu archivo INI Dim intCharCount As Integer Dim objResult As New System.Text.StringBuilder(256) intCharCount = GetPrivateProfileString(sección, Clave, [Default], objResult, objResult.Capacity, strFilename) If intCharCount > 0 Then 'Devuelve el resultado encontrado ObtenerString = Left(objResult.ToString, intCharCount) Else 'En caso de que no se encuentre nada, se devuelve "". ObtenerString = "" End If End Function Public Function ObtenerInteger(ByVal sección As String, ByVal Clave As String, ByVal [Default] As Integer) As Integer ' Devuelve un número desde tu archivo INI Return GetPrivateProfileInt(sección, Clave, [Default], strFilename) End Function Public Function ObtenerBoolean(ByVal sección As String, ByVal Clave As String, ByVal [Default] As Boolean) As Boolean ' Devuelve un valo lógico desde un archivo INI Return ObtenerString(sección, Clave, [Default]) End Function Public Sub EscrbirString(ByVal sección As String, ByVal Clave As String, ByVal Valor As String) ' Escribe una cadena a un archivo INI WritePrivateProfileString(sección, Clave, Valor, strFilename) Flush() End Sub Public Sub EscrbirInteger(ByVal sección As String, ByVal Clave As String, ByVal Valor As Integer) ' Escribe un número a un archivo INI EscrbirString(sección, Clave, CStr(Valor)) Flush() End Sub Public Sub EscrbirBoolean(ByVal sección As String, ByVal Clave As String, ByVal Valor As Boolean) ' Escribe un valor logico a un arhcivo INI EscrbirString(sección, Clave, Valor) Flush() End Sub Private Sub Flush() ' Stores all the cached changes to your INI file ' Guarda todos los cambios al archivo INI FlushPrivateProfileString(0, 0, 0, strFilename) End Sub End Class
Espero que te sirva. UN saludo.
Título: Re: [VB 2012] Login con datos de archivo de texto (.txt)
Publicado por: DaNuK en 16 Marzo 2013, 03:58 am
Acá te dejo un link vick.260mb.org/2011/03/mostrar-texto-plano-en-un-datagridview/ donde encontrarás info sobre manejo.de archivos Saludos
|