Duvida ao gerar arquivo de texto


	Fórum
	Visual Basic

Responder

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

http://www.macoratti.net/printer.htm

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