TEXT COM ESPACOS EM BRANCO

RICOCARDOZO 01/06/2011 09:36:22
#375534
Olá a Todos
Estou com um problema chato ,
Tenho um textbox onde carrego informações de um site via rss .
Só que estas informações estão vindo com alguns caracteres estranhos q pelo jeito parace ser spaços em branco.
Como removo isto e apresento só texto no textbox.
ASHKATCHUP 01/06/2011 10:01:39
#375538 Resposta escolhida
Descubra o código ASCII do caracter estranho.
Depois da um replace.
RICOCARDOZO 01/06/2011 11:17:28
#375552
Pois é fiz isto e não deu certo

Text1.Text = MyMessage1 & vbCrLf & MyMessage2 & vbCrLf & MyMessage3
Text1.Text = Replace(Text1.Text, Chr(255), [Ô][Ô])
MSMJUDAS 01/06/2011 11:35:48
#375562
Tente com isso: Chr(13) + Chr(10)

EX.:
Text1.Text = Replace(Text1.Text, Chr(13) + Chr(10), [Ô][Ô])
MARCELO.TREZE 01/06/2011 13:11:09
#375572
geralmente estes caracteres são funções do tipo (enter), (tab), etc..

vc pode tentar o seguinte

Sugestões.


Replace(texto,vbCrLf,[Ô][Ô])
Replace(texto,vbCr,[Ô][Ô])
Replace(texto,vbLf,[Ô][Ô])
Replace(texto,vbNewLine,[Ô][Ô])
RICOCARDOZO 01/06/2011 13:39:24
#375575
Tentei todos e não corrigiu
mais dependendo da noticia ela vem com estes simbolos em outros lugares .
Eu acho q ao digitarem o texto dão espaços sei lá , e ao ser carregado da internet pro meu text vem com estes simbolos, tem vez que vem limpo , outras vem carregado destes simbolos.





RICOCARDOZO 01/06/2011 13:41:43
#375576
Este já veio limpo
RICOCARDOZO 01/06/2011 13:43:27
#375577
Este veio misturado entre a frase
ASHKATCHUP 01/06/2011 13:49:05
#375579
Ja descobriu qual o código ASCII do caracter [Ô]quadrado[Ô]?
RICOCARDOZO 01/06/2011 14:03:32
#375584

Achei q era o 255 mais fiz este exemplo e não corrigiu:
Text1.Text = Replace(Text1.Text, Chr(255), [Ô][Ô])
ASHKATCHUP 01/06/2011 14:26:03
#375595 

Dim iCodigoChar as integer
[ô]
iCodigoChar = Mid(Text1.Text,Len(Text1.text-1)
[ô]
msgbox IcodigoChar
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar