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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  txt com duas colunas...
Miro SA
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 07/08/2008 16:42 hs            
Pessoal preciso mais uma vez da ajuda de vcs.
 
imaginem que tenho duas variaveis declaradas dessa forma:
dim nome() string
dim numero() as string
 
ae tenho um txt que esta nessa disposição.
 
paulo;21356546
joao;57957568
henrique;65449876
joel;12345987
 
vamos la...
 
Preciso colocar cada nomem dentro do array nome e cada numero dentro do array numero...como faço isso....importante...não se preocupem com a abertura dos dados no txt etc..pois isso eu ja faço...só preciso saber como faço isso com as duas "colunas" vlw...e um forte abraço a todos...
 
 
 
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 08/08/2008 00:42 hs            
Dim nome() As String, numero() As String
Private Sub Form_Load()
Dim parte As Variant
Dim n As Long, l As Long
Dim nm As Long, no As Long
Dim InLine As String
f = FreeFile
Open "c:\teste.txt" For Input As #f
Do While Not EOF(f)
    Line Input #f, InLine
    parte = Split(InLine, ";")
For l = 0 To UBound(parte)
If l = 0 Then
nm = nm + 1
ReDim Preserve nome(nm) As String
nome(nm) = parte(l)
Else
no = no + 1
ReDim Preserve numero(no) As String
numero(no) = parte(l)
End If
Next l
Loop
Close #f
End Sub
   
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