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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Importação & Exportação de dados
Mc
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 08/04/2005 11:31 hs            
Amigos
 
Queria saber se vocês sabem comandos para que eu consiga escrever dentro de um layout um arquivo texto e depois conseguir importar arquivos definindo as colunas na linha.
 
Att.
Orlando
   
Jayme
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 08/04/2005 12:30 hs            
Não entendi.
 
Você que exportar uma tabela para arq.txt ?
 
Por favor, explique melhor.
 
Jayme
   
Mc
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/04/2005 11:40 hs            
Assim
 
Digamos que eu tenha 2 TextBox no meu form com o seguinte:
0123456789
ABCDEFGHI
 
Qro gerar um arquivo texto onde fique assim "0123456789ABCDEFGHI".
 
Depois quero uma opção que importe este arquivo texto gerado pro meu sistema novamente porém eu defino os campos exemplo:
Campo1 = 7 caracteres
Campo2 = 7 caracteres
Campo3 = o restante...
 
Espero que possam me ajudar.
   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 21/04/2005 13:09 hs            
Nao estou vendo problema pois é so ler e formatar os campos assim
codigo = 10
codigo2 = 20
codigo3= 203
Open "c:arq.txt" For Append As #1
Print #1, format(codigo,"0000") & format(codigo2,"00") & format(codigo3,"000")
close #1
 
vai gravar no arquivo 001020203 onde 0010 20 203 sao os conteudos dos campos
 
Para ler faca
Dim texto
Open "c:arq.txt" For Input As #1
Line Input #1, texto
 codigo = mid(texto,1,4)    ' Nao estou me lembrando
 codigo2 = mid(texto,5,2)
 codigo3 = mid(texto,7,3)
close #1                   
 
Nas variaveis codigo.. vam ter o conteudo do arquivo.
 
É isso ??

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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