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
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.
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