STIRING ENTRE [ [TEXTO ] ] XML

RICOCARDOZO 03/06/2011 13:18:34
#375778
Ta quase no que eu quero treze

Olha só tenho este loop para carregar o titulo e a descrição certo

For lPos = 0 To 2
MyMessage2 = [Ô][Ô]
MyMessage3 = [Ô][Ô]
Set objNode2 = RSSItem(lPos).getElementsByTagName([Ô]title[Ô])
Set objNode3 = RSSItem(lPos).getElementsByTagName([Ô]description[Ô]) [ô]Get the <description> element
MyMessage2 = Replace(MyMessage2 & objNode2(0).Text, Chr(10), [Ô][Ô])
MyMessage3 = Replace(MyMessage3 & objNode3(0).Text, Chr(10), [Ô][Ô]) & vbCrLf
RTex.Text = RTex.Text & Trim(MyMessage2) & vbNewLine & Trim(MyMessage3) & vbNewLine
Next

FormataPalavra RTex, MyMessage2, [Ô]arial[Ô], 9, False, True, True, RGB(255, 0, 0)

Se eu colocar a tua função dentro do laço ele deixa tudo vermelho
Deste jeito só funciona no ultimo titulo
MARCELO.TREZE 03/06/2011 14:39:09
#375783
bom eu estou em um pc que não possui VB, e meu note acabou de pegar fogo, mas vamos lá

é assim vc pode selecionar o trecho que vc deseja que fique em negrito assim

RichTextBox1.SelStart = 3
RichTextBox1.SelLength = 5
RichTextBox1.SelBold = True

agora vc teria de adaptar isto.
RICOCARDOZO 03/06/2011 15:16:28
#375784
Nossa o q aconteceu?
Teu note pegou fogo??
Tem seguro?

Viu mais é o seguinte
Tua dica anterior já me ajudou e muito
Só que eu não estou conseguindo aplicar entre o for e o Next
Ele percorre tres paragrafos
Nos dois primeiros ele não altera a cor só no ultimo.
MARCELO.TREZE 03/06/2011 16:43:03
#375797
Tem nada ja era antiguinho, tava pedindo arrego mesmo, vou partir pra um novo agora, rs

faz o seguinte o titulo é sempre seguido de dois pontos(:)

tente isto fora do for

RichTextBox1.SelStart = 1
RichTextBox1.SelLength = Instr(RichTextBox1.Text, 1, [Ô]:[Ô]) + 1
RichTextBox1.SelBold = True
RICOCARDOZO 03/06/2011 17:30:54
#375800
Run time error 13
type mismatch
ANDREIA 04/06/2011 20:03:13
#375867
Não teria como eu formatar a fonte para bold na passagem do laço , ou seja na hora que esta inserindo no richtext
linha por linha .
Ou tenho que primeiro inserir um texto e depois localizar no texto dai negritar.
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar