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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ListBOx+ TEXtFile
Gabriel
não registrado
ENUNCIADA !
Postada em 31/08/2005 21:19 hs   
Ola queria saber como eu Listo em 1 List o que esta em 1 TXT
1 item por linha.... :)
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 01/09/2005 08:23 hs         
Open "C:|Pasta|Arquivo.TXT" for input as #1
dim Conteudo as string
do while not eof(1)
    Line Input Conteudo, #1 
    lstLista.AddItem Conteudo
loop
close #1
 
   
7Cordas
PORTO ALEGRE
RS - BRASIL
ENUNCIADA !
Postada em 01/09/2005 10:15 hs            
Só não esqueça que existe diferença entre "Line Input" e só "Input".
Se usares Line Input ele vai considerar "," (virgulas) como delimitadores de linha. Ou seja, se alinha for "Cristiano , Fischer" ele vai considerar duas linhas. Uma com o valor "Cristiano" e outra com o valor "Fischer". Já com o "Input" ficaria uma unica linha como o valor "Cristiano , Fischer". Entendeu?
 
Espero ter ajudado,

Cristiano Fischer
Projeto SIGA - Sistemas Integrados de Gestão
   
Mr.Data
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 01/09/2005 18:36 hs            
Outro método tb:
 
Vai no Project - References - Microsoft Scripting Runtime
 
Dim objFSO as new Scripting.FileSystemObject
Dim objStream as Scripting.TextStream
 
set objStream = objFSO.OpenTextFile("C:\Pasta\Arquivo.txt", ForReading, False)
 
lstLista.Clear
 
Do Until objStream.AtEndOfStream
    lstLista.AddItem objStream.ReadLine
Loop
objStream.Close
 
set objFSO = Nothing
set objStream = Nothing
 
É isso. Emoções
 

[ ]'s

-----------------------------------------------------------------------------------------------------------------

Emoções Juliano Lopes - Coordenador de Projetos / Arquiteto de Software Emoções

   
Gabriel
não registrado
ENUNCIADA !
Postada em 03/09/2005 07:13 hs   
Vlw ae galera!
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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