TEXTO MUITO GRANDE EM VARIÁVEL STRING

 Tópico anterior Próximo tópico Novo tópico

TEXTO MUITO GRANDE EM VARIÁVEL STRING

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#478834 - 02/01/2018 17:56:21

DEXIE
ARARAQUARA
Cadast. em:Fevereiro/2010


Olá,

Pessoal é o seguinte, estou pegando um arquivo XML e jogando para uma variável String dentro do meu sistema. O problema é que por algum motivo é adicionado uma quebra de linha nessa variável que acaba tirando o padrão do XML. Alguém saberia me dizer como posso fazer para evitar que essa quebra de linha seja adicionada?
Já tentei usar replace, substituindo o VBCRLF por vazio, mas mesmo assim continua a quebra de linha no texto.

Alguém já passou por esse problema?



#478836 - 02/01/2018 18:03:46

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Você está "construindo" um XML por texto? Amigo, não dependa disso, use serialização, mas simples, mais rápido e muito mais confiável.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#478841 - 02/01/2018 19:50:55

DEXIE
ARARAQUARA
Cadast. em:Fevereiro/2010


É no VB6



#478875 - 03/01/2018 14:40:33

JABA
CABO FRIO
Cadast. em:Agosto/2005


Veja se isso aqui te ajuda:

www.macoratti.net/xml_vb.htm

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#479100 - 13/01/2018 21:40:03

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Existem outros tipos de quebra de linha, eu ja passei por isso e tinha me esquecido

Chr(13) = VbCr
Chr(10) = VbLf
Chr(13) & Chr(10) = VbCrLf

Acho que isso pode te ajudar

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#479103 - 14/01/2018 04:24:19

LUIZCOMINO
SAO PAULO
Cadast. em:Maio/2009


Última edição em 14/01/2018 04:29:04 por LUIZCOMINO

Amigo usei uma função muito tempo atrás para descobrir um carácter inválido que vinha de um arquivo texto, dei uma mexida rápida nela, ela só vai exibir os caracteres que estão na string Letras , você pode modificar e exibir somente os caracteres que não estão na string Letras
obs: está bem precária a função mas já ajuda a descobrir qual é o carácter inválido.


Function LimpaTexto(Texto As String) As String
Dim Letras            As String
Dim Conteudo          As String
Dim Busca             As String
Dim i, x, count       As Integer

Letras = "QWERTYUIOPASDFGHJKLÇZXCVBNMqwertyuiopasdfghjklçzxcvbnm<>\/* "
Conteudo = StrReverse(Texto)

For i = 1 To Len(Conteudo)
  Busca = Mid(Conteudo, i, 1)
    For x = 1 To Len(Letras)
      Compara = Mid(Letras, x, 1)
       If Compara = Busca Then
        Concatena = Concatena + Compara
       End If
    Next
Next

Conteudo = StrReverse(Concatena)
Conteudo = Trim(Conteudo)
LimpaTexto = Conteudo
End Function  



"E conhecereis a verdade, e a verdade vos libertará. João 8:32"


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por DEXIE em 26/06/2018 15:55:51