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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Duvida ao gerar arquivo de texto
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/11/2008 16:31 hs         
Oiii, será que alguem podia me ajudar???? Eu estou com uma duvida....
 
Eu estou gerando um arquivo texto da seguinte maneira...
 
Open "c:arquivo.not" For Output As Arq ' determina o arquivo
c = "07" + Text28.Text + Text29.Text
Print #Arq, c
 
d = "01" + Text2.Text + Text3.Text + Text4.Text
Print #Arq, d ' enviar o texto da text box"
Close Arq  ' Fecha o arquivo
 
Porém...Eu peço para imprimir apenas duas linhass!!! Só que depois da ultima linha...Ele da um "enter" q acaba criando outra linha em branco...O que no caso não pode acontencer... Alguem sabe como eu faço para essa ultima linha não ser criada???
   
Tiranossauro
DOIS IRMÃOS
RS - BRASIL
ENUNCIADA !
Postada em 20/11/2008 23:53 hs            
Open "c:arquivo.not" For Output As #Arq ' determina o arquivo
c = "07" + Text28.Text + Text29.Text
Print #Arq, c
 
d = "01" + Text2.Text + Text3.Text + Text4.Text
Print #Arq, d; ' enviar o texto da text box"
Close #Arq  ' Fecha o arquivo
 
Você quer que fique parado na última linha ?
acrescento o ";"
   
Juliana T
não registrado
ENUNCIADA !
Postada em 24/11/2008 16:13 hs   

Então... o problema é o seguinte... O "Arq d" faz parte de um loop... Então da erro do mesmo jeito... Olha só...

Ao invés de sair assim...(O correto...)
07000000933078
07000000933005
07000000937250
07000000935319
07000000936478
07000000937270
07000000937291

Colocando o ; esta saindo assim:

07000000933078070000009330050700000093725007000000935319070000009364780700000093727007000000937291

 
   
Tiranossauro
DOIS IRMÃOS
RS - BRASIL
ENUNCIADA !
Postada em 25/11/2008 08:23 hs            
   
Roßerto
não registrado
ENUNCIADA !
Postada em 25/11/2008 12:03 hs   
Juliana,

dim vEnter as string

vEnter = Chr(10) & chr(13)

"c:arquivo.not" For Output As Arq ' determina o arquivo
c = "07" + Text28.Text + Text29.Text + vEnter
Print #Arq, c

d = "01" + Text2.Text + Text3.Text + Text4.Text + vEnter
Print #Arq, d ' enviar o texto da text box"
Close Arq  ' Fecha o arquivo

Tiranossauro, http://www.macoratti.net/printer.htm é sobre o OBJETO PRINTER e não sobre o PRINT.

Roberto
   
Macaubal
não registrado
ENUNCIADA !
Postada em 25/11/2008 12:54 hs   
Juliana para quebra de linha utilize
VbCrLf

Exemplo

VAR = Text1 & VbCrLf & Text2 VbCrLf & TextN

VAR vai ficar =
Text1
Text2
TextN
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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