REMOVER SUJEIRAS TEXTBOX

RICOCARDOZO 29/05/2011 23:58:41
#375270
Olá a todos
Tenho um textbox configurado com multiline true
ao carregar dados de uma pagina de internet o texto vem todo cheio de sugeiras com alguns caracteres
especias tipo [Ô]|||[Ô] e aparece o titulo pula umas linhas em branco dai começa o texto novamente dai pula mais uma quatro linhas em branco.

Como faço pare remover os caracteres o texto na primeira linha removendo as linhas em branco.
MARCELO.TREZE 30/05/2011 00:14:46
#375271 Resposta escolhida
é meio estranho a forma que vc está descrevendo mas geralmente um replace resolve

Texto = Replace(Replace(Texto,[Ô]|||[Ô],[Ô][Ô]),[Ô]  [Ô],[Ô] [Ô])
RICOCARDOZO 30/05/2011 08:23:49
#375280
[Ô]Ta vamos lá o texto está igual o texto abaixo :

Notícias

|||


24/05/2011

Receita Federal celebra o Dia Nacional do Respeito ao Contribuinte


Prazo termina quarta-feira (25/5), mas 174 mil contribuintes pessoa física optantes pelo Refis da Crise ainda não indicaram débitos que desejam parcelar


Aviso de Coletiva

20/05/2011

Receita Federal e Polícia Federal investigam falso auditor-fiscal que atuava em Brasília
Fim do texto

O que preciso é eliminar estas linhas em branco e uns caracteres que parece ser tags
RICOCARDOZO 30/05/2011 09:03:36
#375285
Cara valeu mas não deu certo
Vou disponibilizar o código pra vcs entenderem melhor.

é só colocar um form um command um textbox em um inet na pagina e executar.
Eu carrego o texto de um html ,
só que o texto vem todo sem formatação
com linhas em branco.
Eu só preciso ajustar alinhar e remover as linhas em branco.

segue o código:
Private Sub carreganoticia()
Dim ret As String
If Inet1.StillExecuting Then Inet1.Cancel
ret = Inet1.OpenURL([Ô]http://www.receita.fazenda.gov.br/AutomaticoSRFsinot/noticia_ant.asp[Ô])
If Inet1.StillExecuting Then Inet1.Cancel
Text1.Text = ret
End Sub
Private Sub Converte_Texto()
On Error Resume Next
Dim strContent As String, mString As String
Dim mStartPos As Long, mEndPos As Long
Dim i, J
strContent = Text1.Text

mStartPos = InStr(strContent, [Ô]<[Ô])
mEndPos = InStr(strContent, [Ô]>[Ô])
Do While mStartPos <> 0 And mEndPos <> 0 And mEndPos > mStartPos
mString = Mid(strContent, mStartPos, mEndPos - mStartPos + 1)
strContent = Replace(strContent, mString, [Ô][Ô])
mStartPos = InStr(strContent, [Ô]<[Ô])
mEndPos = InStr(strContent, [Ô]>[Ô])
Loop

strContent = Replace(strContent, [Ô] [Ô], [Ô] [Ô])
strContent = Replace(strContent, [Ô]&[Ô], [Ô]&[Ô])
strContent = Replace(strContent, [Ô]"[Ô], [Ô][ô][Ô])
strContent = Replace(strContent, [Ô]&#[Ô], [Ô]#[Ô])
strContent = Replace(strContent, [Ô]<[Ô], [Ô]<[Ô])
strContent = Replace(strContent, [Ô]>[Ô], [Ô]>[Ô])
strContent = Replace(strContent, [Ô]%20[Ô], [Ô] [Ô])
strContent = Trim(Trim(strContent))
Do While Left(strContent, 1) = Chr$(13) Or Left(strContent, 1) = Chr$(10)
strContent = Mid(strContent, 2)
Loop
Text1.Text = strContent

i = InStr(Text1.Text, [Ô]<[Ô])
J = InStr(Text1.Text, [Ô]>[Ô])
If J < i And J > 0 Then i = J
If i > 0 Then
Text1.SelStart = i - 1
Text1.SelLength = 1
ElseIf J > 0 Then
Text1.SelStart = J - 1
Text1.SelLength = 1
End If
strTest1Orig1 = Text1.Text
Text1.Text = Replace(strTest1Orig1, vbTab, [Ô][Ô])

End Sub
RICOCARDOZO 30/05/2011 09:07:33
#375287
Segue a tela como ela carrega.
LUIZCOMINO 30/05/2011 09:22:57
#375289
amigo use essa função
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8960
e coloque apenas os caracteres que você deseja
RICOCARDOZO 30/05/2011 10:31:07
#375299
Em tese deu certo
Só não consegui usar para remover as linhas em branco
MARCELO.TREZE 31/05/2011 13:42:23
#375437
tente isto para linhas em branco

Replace(Texto, vbCrLf & vbCrLf, vbCrLf)
ANDPAG 31/05/2011 15:54:51
#375462
linha em branco...

dim vsCaracter as string

vscaracter = chr(10) ou
vscaracter - chr(13)

suavariavel = replace(suavarivael,vscaracter,[Ô][Ô])
Tópico encerrado , respostas não são mais permitidas
Voltar