EXPORTAR PRODUTOS PARA ARQUIVO TEXTO

ATSILVA 10/04/2014 10:41:54
#437127
Utilizo Visual Basic 6 e preciso criar um arquivo Texto (.txt) com todos os produtos cadastrados e as colunas precisam ser separadas por tabulação.
Criar o arquivo texto com os produtos eu consegui. Não consegui é fazer essa separação por tabulação.
Nem sei de que forma é essa separação e como fazer?
KERPLUNK 10/04/2014 10:50:07
#437129
Resposta escolhida
Simples...

open [Ô]C:\pasta\arquivo.txt[Ô] for output as #1
print #1, [Ô]123445[Ô] + vbTab + [Ô]Caixa de charutos[Ô] + vbTab + [Ô]R$ 56,09[Ô]
Close #1
ANTONIOBSJ 10/04/2014 11:02:52
#437132
ATSILVA,

O Código ASC para TAB é nove (9):

Dim i As Integer = Asc(vbTab)

Ou então vc pode fazer assim:

Dim texto as String

texto = [Ô]TESTE[Ô] & CHR(9) & [Ô]TESTE2[Ô] & CHR(9) ....


ATSILVA 10/04/2014 17:58:56
#437169
Obrigado! Mas e quando o campo é Nulo ou Vazio o que é informado?
Pergunto por que no arquivo texto pula uma coluna quando um dos campos é vazio e o sistema de importação não vai reconhecer.
MARCELO.TREZE 10/04/2014 18:22:08
#437171
vamos lá poste o código que fez até agora, onde for nulo basta tratar e colocar algum caracter, tipo ***

ATSILVA 11/04/2014 08:51:19
#437185
Bom dia! Fiz igual ao KERPLUNK acima só que dentro de um Do While...Loop.
Quando tento importar o arquivo texto gerado pelo meu sistema para algum site que utiliza esses arquivos separados por tabulação, se estiver faltando algum dos registros da erro. Por exemplo ao exportar os campos NOME, SOBRENOME, CPF, RG se estiver faltando o CPF ou SOBRENOME de algum registro da erro.
Parece que precisa sempre ter uma informação para não dar o erro. Só que não posso incluir um caractere qualquer por que o sistema vai interpretar como um registro valido. Se não tiver nada no campo preciso colocar um valor que informe NULO ou que o campo esta em branco.
MARCELO.TREZE 11/04/2014 10:36:50
#437189
Bom colega solução é a seguinte ao invés de usar vbTab use Tab(n), onde n é o numero da tabulação, ai não terá erros, veja

open [Ô]C:\pasta\arquivo.txt[Ô] for output as #1
print #1, [Ô]123445[Ô]; Tab(10); [Ô]Caixa de charutos[Ô]; Tab(40); [Ô]R$ 56,09[Ô]
Close #1


repare o seguinte o numero da tabulação tem que ser maior que o números de caracteres de cada coluna, ou seja no exemplo acima [Ô]123445[Ô] possui 6 caracteres, então coloquei um tab(10) o que me dá um espaço de 4 caracteres ainda a mesma regra apliquei pra segunda coluna, se isso não for seguido e o tab for menor que a quantidade de caracteres da coluna a próxima coluna desce uma linha, e para o tab(n) funcionar tem sempre que estar entre [Ô];[Ô]

teste ai

Tópico encerrado , respostas não são mais permitidas