COMO ELIMINAR ULTIMA LINHA EM BRANCO DE ARQUIVO TE

MITO 31/01/2017 12:03:39
#471184

[ô]*****************TRILLER**********
strRegCl = [Ô][Ô]
strRegCl = 9 [ô]IDENTIFICACAO REGISTRO
strRegCl = strRegCl & ConcatenaBrancos(tXToBSERVACOESSiccob.Text, 393) [ô]FILLER
strRegCl = strRegCl & Format(Sequncia, [Ô]000000[Ô]) [ô]NUMERO SEQUENCIAL DE REGISTRO
[ô]strRegCl = Trim(LTrim(strRegCl))
Print #1, strRegCl
Close #1

Estou usando assim mas sempre deixa a ultima linha em branco e nao passa no banco

MARCELO.TREZE 31/01/2017 14:15:10
#471189

este codigo esta dentro de algum loop

OCELOT 31/01/2017 15:02:10
#471190

Tem certeza que o motivo é esse de não estar sendo aceito pelo banco? Pois toda linha tem de terminar com uma quebra de linha, que corresponde aos caracteres 13 e 10 se não me engano, e isso faz com que se você abrir o arquivo no bloco de notas por exemplo a ultima linha fique em branco, porém vazia.

MITO 31/01/2017 16:18:00
#471191

Marcelo neste caso nao pque é final do aarquivo !

MITO 31/01/2017 16:23:21
#471192

OCELOT COMO FAÇO PRA CORRIGIR ISSO ??

MARCELO.TREZE 01/02/2017 09:29:03
#471206 Resposta escolhida

vendo apenas este pedaço de código não vejo erro por isso perguntei se esta fução fica dentro de um loop, sendo assim o loop poderia não ler uma ultima informação e colocar a linha em branco.