Paragrafo em arquivo TXT

Moderador: Avelino Sampaio

rogeriod
Mensagens: 11
Registrado em: 09 Out 2018, 11:19

Paragrafo em arquivo TXT

Mensagempor rogeriod » 17 Out 2018, 10:54

bom dia!

Estou usando um código para exportar dados para um arquivo txt, e tem ocorrido algumas inconsistências com o arquivo gerado.
Ele perde as linhas de parágrafo:

Dim VarArq As String
Open VarArq For Output As #1
….
Print #1, VlrCmp
….

Close #1

Resultado:

01|14102018007330|7330|
05|4220180550|743|
05|4220180550|744|
05|4220180550|752|
05|4220180550|754|

Resultado em alguns caso (fica tudo em um único paragrafo):

01|14102018007330|7330| 05|4220180550|743| 05|4220180550|744| 05|4220180550|752| 05|4220180550|754|


Quando o arquivo perde os parágrafos não dá pra importar os dados no código que criei pra isso.
Alguém já viu isso?

obrigado

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Paragrafo em arquivo TXT

Mensagempor Damasceno Jr. » 17 Out 2018, 11:28

Tudo depende da forma como você atribui o valor da variável "VlrCmp".

Poste o código completo ou monte anexe o aplicativo com os objetos envolvidos.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

rogeriod
Mensagens: 11
Registrado em: 09 Out 2018, 11:19

Re: Paragrafo em arquivo TXT

Mensagempor rogeriod » 17 Out 2018, 12:56

recebe:

For j = 1 To rst_BO.RecordCount

VlrCmp = "01|" & rst_BO!M_CodBO & "|" & rst_BO!M_NumBO & "|" .................

Print #1, VlrCmp
rst_BO.MoveNext
Next j

algumas vezes, quando o arquivo recebe um grande volume de dados, acontece de perder os paragrafos. talvez seja alguma coisa no padrão do arquivo txt

Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Paragrafo em arquivo TXT

Mensagempor Damasceno Jr. » 17 Out 2018, 14:45

tente:
Código:
For j = 1 To rst_BO.RecordCount
VlrCmp = "" 'limpando o valor da variável
VlrCmp = "01|" & rst_BO!M_CodBO & "|" & rst_BO!M_NumBO & "|" .................
Print #1, VlrCmp
rst_BO.MoveNext
Next j


Se não resolver, marque um ponto de interrupção no código e acompanhe cada interação do seu laço For...Next... com a tecla F8 e veja como a variável VlrCmp está sendo montada e o que pode estar acontecendo.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


rogeriod
Mensagens: 11
Registrado em: 09 Out 2018, 11:19

Re: Paragrafo em arquivo TXT

Mensagempor rogeriod » 17 Out 2018, 16:29

VlrCmp = "" 'limpando o valor da variável

já tem no código.

Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Paragrafo em arquivo TXT

Mensagempor Damasceno Jr. » 17 Out 2018, 19:49

A perda de parágrafos ocorre em pontos aleatórios ou em determinados pontos?
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

rogeriod
Mensagens: 11
Registrado em: 09 Out 2018, 11:19

Re: Paragrafo em arquivo TXT

Mensagempor rogeriod » 17 Out 2018, 20:57

acontece no arquivo todo. hora o resultado é correto, e o arquivo fica certo. hora não. não encontrei regularidade.
Talvez seja algo na leitura do arquivo após ele ter sido gerado.

Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Paragrafo em arquivo TXT

Mensagempor Damasceno Jr. » 17 Out 2018, 22:31

Então amigo... só vendo mesmo pra entender melhor. Poste aqui os objetos envolvidos. Se não puder, envie-me por email para eu poder ajudar melhor. damascenojr(arroba)outlook(ponto)com
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

rogeriod
Mensagens: 11
Registrado em: 09 Out 2018, 11:19

Re: Paragrafo em arquivo TXT

Mensagempor rogeriod » 19 Out 2018, 11:26

Bom dia...

Acho que o erro pode estar ocorrendo em outra etapa do procedimento.
após gerar o arquivo ele é enviado via email pelo seguinte código:

On Error GoTo Sai

'------------------------------------------------------------------------------------------------
' ENVIAR EMAIL
'Necessita referencia a Micorsoft CDO for Windows 2000 Library
'------------------------------------------------------------------------------------------------
Dim objConfig As CDO.Configuration
Dim objMsg As CDO.Message

Set objMsg = New CDO.Message
With objMsg
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Me!TxtSMTP ' ou "mail.server.com" - gmail: smtp.gmail.com
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Pode ser 2
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Me!TxtEmailFrom
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Me!TxtSenhaEmailFrom
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Este porta geralmente obedece este padrão - gmail: 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Tb é normal este padrão - gmail: true
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Update
End With
.From = Me!TxtEmailFrom
.Subject = Me!TxtAssunto '"Seu assunto"
.HTMLBody = Me!TxtDescrEmal '"Aqui vai o corpo de sua mensagem"
.AddAttachment Me!TxtPastaArq '("Aqui da para enviar um Anexo")
.To = Me!TxtDestinoEmail
.Send
End With
Sai:
If Err = 0 Then
MsgBox "Envio Concluido!", vbInformation
Else
MsgBox Err.Description, vbCritical
Set db = Nothing 'libera a memória
Exit Sub
End If


--- talvez a perca dos parágrafos esteja ocorrendo no envio
--- talvez deva ser definido um tipo especifico do arquivo txt para não ocorrer a alteração (padrão UTF-8, ANSI.....)(não sei fazer isso)

Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Paragrafo em arquivo TXT

Mensagempor Damasceno Jr. » 19 Out 2018, 19:37

A melhor forma de saber é conferir no arquivo txt gerado se está tudo dentro do padrão. Não creio que seja o código que envia o arquivo como anexo que está causando erro.

Uso muito este recurso de gerar txt e nunca tive problema.

Como falei, marque um ponto de interrupção no código e acompanhe a criação do txt e veja o que pode está ocorrendo.
Ou anexe seu aplicativo para que possamos ajudá-lo de forma acertiva.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 12 visitantes