GERAR LISTA EM TXT
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
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
Para escrever em TXT você usa
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:
Assim !!
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