validação de senha via txt

[skylopirata]

Bom galera, alguém sabe algum modo ou link ou algo para me ajudar , fiz um campo de senha e criei com textbox e caracter com senha. até ai beleza... como eu faço para o meu campo com senha buscar em um .txt em minha maquina ex: (c:\windows\password.txt) para validação :unsure:

Valeu pessoal!

[kuroi]

seria isso??

Dim f As Long, senha As String

f = FreeFile
Open "c:\windows\password.txt" For Input As f
senha = Input$(LOF(f), f)
Close f[/code]
mais sobre arquivos texto: http://www.macoratti.net/txt_arqs.htm

[skylopirata]

Valeu kuroi.

[skylopirata]

Bem amigo, funcional certinho o que eu queria.

Só tenho mais 1 duvidas.

Como faço para deletar o conteudo do do arquivo password.txt ? via vb.

Agradeço de qualquer modo.

[kuroi]

você quer dexar o arquivo em branco??

se for, em vez de Open For Input, abra pra Output (pra escrever dentro em vez de ler).

ai so de fazer isso acho q ele já sobrepoe o arquivo por um novo em branco, então você nem precisaria escrever nd, pode so abrir e fechar direto.

ou se não der, então tenta escrever um texto em branco e já era:

Print #f, ""

mas se quiser apagar (deletar) o arquivo, use a funcao Kill. exemplo:

Kill "c:\windows\password.txt"

[skylopirata]

Kuroi o programa esta redondinho, a unica coisa que esta me atrapalhando é que.

Por incrivel que pareça. quando eu executo este codigo, no meu arquivo .txt que eu criei aparece. duas linhas.

uma com o codigo, e uma linha extra em baixo.. em branco...

Preciso que somente fique a linha numero 1 sem a linha extra em baixo.. :(

Dim fnum As Integer

Dim txt As String

fnum = FreeFile

Open "C:\key.txt" For Output As fnum ' cria o txt

txt = "teste123" 'manda o texto para o txt, variavel

Print #fnum, txt ' pega a variavel e manda para o txt

Close fnum

aparece assim no .txt

exemplo===================

teste123

|

e aquela barinha piscando em baixo... :( do teste123

Preciso que fique assim

exemplo===================

teste123

sabe como eu posso apagar essa linha extra via codigo eu fazer o codigo sem esta linha em baixo.?

[kuroi]

não sei.

tente com o FileSystemObject (http://www.macoratti.net/filesyst.htm) mas não acho q va resolver.

acho q você teria q abrir como binario e gravar os valores ascii de cada caractere

[Jonathan Queiroz]

Você está abrindo o arquivo com algum editor de texto ?

Pode ser o próprio editor que gera a linha automaticamente...

Tente remover a linha manualmente e depois abra o arquivo com o mesmo editor de texto

Verifique, então, se a linha foi gerada novamente !

O código está certo...

Mas se não conseguir resolver mesmo assim tente fazer o seguinte:

Dim f As Long, senha As String

f = FreeFile
Open "c:\windows\password.txt" For Input As f
senha = Input$(LOF(f), f)
senha = replace(senha, vbcrlf, "")
Close f

[skylopirata]

Pessoal muito obrigado...

Perfeito Agora..

Abraçoss;...

[skylopirata]

amigos, aproveitando a oportunidade. e sem querer ser chato!

A ULTIMA DIVIDA. PROMETO AGORA, hehehheheh...

Pessoal até aqui tudo certinho,

Private Sub Command1_Click()

Dim F As Long, senha As String

F = FreeFile

On Error Resume Next 'escapa da mensagem de erro

Open "C:\serial.txt" For Input As F 'abre o arquivo texto

Do While Not EOF(F)

Line Input #F, Linha

codigo = Mid(Linha, 1) 'aqui ele a primeira linha certinho! mais não consigo fazer ele ler linha avulsas. ex: ler apenas a linha 2 ou 5 ou 12.. ele lê somente a primeira..

Lab.Caption = codigo

Close F

Close #F

Exit Sub

Loop

Close #F

Exit Sub

trata_erro:

MsgBox Err.Description

End Sub

Muito Obrigado a todos..

[kuroi]

mas porque você ta pondo o close f e o exit sub dentro do loop?? e porque 3 close f??

mas o q você tem q fazer é um contador. comeca ele com 1 e le uma linha e depois soma mais 1. quando ele voltar no loop vai tentar ler a proxima linha.

e ai você sabe qual linha é pelo contador. então assim q chegar na linha q você quer, depois do line input ponha um exit do.