GERAR LISTA EM TXT

JLSMA 02/09/2010 17:49:14
#352050
BOA TARDE PESOAL PRECISO GERAR UM SEQUENCIA DE 13000 CODIGO PARA ETIQUETA CODIGO DE BARRAS
PENSEI NO SEGUINTE

VarConta = 0

Do While Var Conta <= 13000
VarConta = VarConta+1
CodigoBarras = mid(date,6,4) & [Ô]1420[Ô] & format(varconta,[Ô]00000[Ô])
GravaNoTxt
loop

Porém não sei como gravar no txt adicionando a linha tendo em vista que serao 13 mil linhas
Obrigado Jair


ESLEYSANCHES 02/09/2010 17:53:54
#352053
Resposta escolhida
Para escrever em TXT você usa

Open [Ô]C:    este.txt[Ô] For Output As #1
Print #1, [Ô]Linha aqui[Ô]
Close #1


Isso somente para escrever, no seu caso você vai abrir o arquivo fora do LOOP escrever dentro do LOOP e fechar o arquivo fora do LOOP, seguindo sua linha de raciocinio ficaria:


VarConta = 0
Open [Ô]C:    este.txt[Ô] For Output As #1

Do While Var Conta <= 13000
VarConta = VarConta+1
CodigoBarras = mid(date,6,4) & [Ô]1420[Ô] & format(varconta,[Ô]00000[Ô])
Print #1, Seus_Dados_que_vai_para_o_TXT
loop

Close #1


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