ginho
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/05/2012 21:09 hs
Olá Pessoal, Boa Noite a Todos, Alguém pode me ajudar...
Estou desenvolvendo um importador de aquivos txt, mas estou com certa dificuldade.
consegui fazer o seguinte: mostrar tds os aquivos existentes dentro de uma pasta em um filebox , ai seleciono um deles e mando pra um textbox, ao clicar em um botão o vb terá q ler o arquivo txt q esta no txt box e amarzena-lo em um tabela.´
é POSSIVEL FAZER ISSO?
Desde ja agradeço.
|
|
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2012 07:54 hs
Sim, é possível, aí vai um exemplo: dim wRegistro as string Open App.Path & "" & text1.Text For Input As 1 Do Until EOF(1)
Line Input #1, wRegistro 'wregistro conterá o valor de cada linha do arquivo que está sendo lido, então 'é só pegar os valores correspondentes às posições dentro do registro e mandar pra 'sua tabela.
Loop
Close #1
|
|
|
|
sergio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2012 11:45 hs
Cara não deu certo continua dando a msg de que o arquivo não existe "FILE NOT FOUND" mais ele esta dentro do text Box.. Mais de qq forma obrigado. E eu ainda preciso de ajuda. valeu |
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2012 13:57 hs
Este exemplo funciona sim. Provavelmente o caminho aí está errado. Dá uma checada aí. No exemplo que mandei coloquei: Open App.Path & "" & text1.Text For Input As 1 No caso deste exemplo, tem o app.path que é o caminho onde está a sua aplicação, talvez não seja este o caso. Ah! faltou aí no exemplo acima a barra invertida que não sai aqui neste site, corrigindo seria assim: Open App.Path & "\" & text1.Text For Input As 1. Se no seu textbox o caminho estiver completo, então seria assim: Open text1.Text For Input As 1 Abraços. |
|
|
|
