simbolo exportando no txt

[Emerson Sandro 0]

BOm dia...

 

Tenho pessoas dois arquivos criados txt com os sequintes comandos:

DoCmd.TransferText acExportFixed, "teste2linha", _

"Vdk_testeEnvio2", lcal & "t1linha.txt"

arquivo criado:

0019130001000008009050932822

 

e o outro:

DoCmd.TransferText acExportFixed, "teste2linha", _

"Vdk_testeEnvio2", lcal & "t2linha.txt"

Arquivo criado:

789806013806001

 

eles são de duas tabelas diferentes que nao tem relacao alguma entres os dados, por isso a separacao.

Usei o sequinte comando para juntar os dois arquivos criados em um só novo arquivo:

Dim ret As Long

ret = Shell(Environ$("COMSPEC") & " /c copy c:\sancol\pdv1\t1linha.txt+c:\sancol\pdv1\t2linha.txt C:\sancol\pdv1\teste.txt", vbNormalFocus)

 

ele criar o arquivo normal conforme resultado abaixo:

0019130001000008009050932822

789806013806001

 

, o problema é que esse quadro aparece do nada e o programa que vai receber o arquivo dá erro de layout por causa desse quadradozinho. Como resolver pra sumir com esse quadradozinho?

 

No mais...

 

Obrigado

 

Emerson SAndro

[Erich VB 0]

Bom tenta uma gambiarra.

Isto exclui a ultima letra do texto.

Var = VariavelTexto
VariavelTexto = (Left(Var, Len(Var) - 1))