[Finalizado] com arquivo texto

[Alvaro Soares 0]

Preciso carregar o conteudo de um arquivo texto para uma caixa de listagem.

No meu arquivo texto eu tenho o seguinte :

 

User1

User2

User3

User4

User5

User6

User7

 

 

Meu código fonte está assim :

 

Dim n As Variant

 

arq = "c:\data\users.txt"

 

n = FreeFile()

Open arq For Input As #n

conteudo = Input(LOF(n), n)

Me.lstApps.AddItem (conteudo)

Close #n

 

 

 

No entanto, a list box fica com os registros um ao lado do outro da seguinte forma :

 

User1User2User3User4User5User6User7

 

 

Qual o loop que devo colocar para que as linhas sejam carregadas "quebradas" para a caixa de listagem ?

[christianhess 0]

Dim n As Variant, arq As String, conteudo As String, dados() As String, contador As Integer
   
   arq = "c:\teste.txt"
   
   n = FreeFile()
   Open arq For Input As #n
   conteudo = Input(LOF(n), n)
   dados = Split(conteudo, vbCrLf)  'separa o dados em um vetor.. onde o delimitador seria o ENTER... (vbcrlf)
   Close #n
   
   For contador = 0 To UBound(dados)  'faz um laço de zero até o numero de elementos do vetor
   
	  Combo1.AddItem (dados(contador))  'adiciona no combo o item do vetor
   
   Next

espero ter ajudado! http://forum.imasters.com.br/public/style_emoticons/default/graduated.gif

[Willians Souza 0]

Como faço para adicionar Data tipo 22/11/2008 automaticamente em um projeto VB. Colocar no Textbox

[Claudio Neto 3]

Como assim? Fazer a aparecer a data do dia em um label?

 

label1.caption = date()

[Thiago Thamiel 0]

Como faço para adicionar Data tipo 22/11/2008 automaticamente em um projeto VB. Colocar no Textbox

Text1.Text = Format(Now, "dd/mm/yyyy")

 

valeuuu! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif