USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Código ENTER
RAMIREZ
RIO BRANCO
AC - BRASIL
Postada em 08/02/2008 17:10 hs            
Tenho um arquivo txt, e estou fazendo a leitura dele. Só que quero fazer essa leitura até encontrar um [ENTER]. Qual o código do [ENTER]??? Estou colocando:
 
If &Dados = chr(13). Esta certo isso? Ele nunca entra nessa condição.
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 08/02/2008 18:21 hs            
tenta vbnewline amigo.
 
at+
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 08/02/2008 19:07 hs            
inclua um textbox em seu form no tamanho desejado de preferencia grande o suficiente para ler todo o arquivo, altere a propriedade multiline para true agora cole este código em seu form
 
pode ser feito também em um modulo veja.
 
Function AbreArquivo(sArquivo As String) As String
 Dim iARQ as Integer
 Dim sLinha As String
 Dim sResult As String
 
iARQ=FreeFile
Open sArquivo For Input as iARQ
Do While Not EOF(iARQ)
' Pega o conteúdo da linha
Line Input #iARQ,sLinha
 
' quebra a linha e soma o resultado
sResult=sResult + Chr(13) & Chr(10) + sLinha
 
Loop
 
AbreArquivo=sResult
 
' fecha o arquivo
Close iARQ
 
End Function
 
 
para usar é simples:
 
em um botão cloque o seguinte código
 
Text1.Text=AbreArquivo("c:\texto.txt")
 
 
e pronto
 
você pode utilizar desta função em outros objetos, como o listbox, listview, RichtextBox, etc....
 
 
até
 
TÓPICO EDITADO
 
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 08/02/2008 21:31 hs            
Ramirez, vc tem que ler caractere por caractere.
 
FOR A = 1 TO LEN(TEXT1.TEXT)
    IF MID(TEXT1.TEXT,A,1) = CHR(13) THEN
         MSGBOX "ACHEI"
    END IF
NEXT
 
Roberto
     
kaio
não registrado
ENUNCIADA !
Postada em 31/03/2013 15:44 hs   
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página