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
|
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. 
[ ]'s -----------------------------------------------------------------------------------------------------------------  Juliano Lopes - Coordenador de Projetos / Arquiteto de Software
|
|
|
|
Gabriel
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/09/2005 07:13 hs
Vlw ae galera!
|
|
|
|
