[VB.NET] RichTextBox ricerca e sostituzione

[Luke]

Ciao a tutti,
sono alle prime armi con vb.net express edition 2008, ￜ vorrei provare a
fare quanto segue.
In una richtextbox carico un file RTF, e fin qui nessun problema.
A questo punto volevo fare una ricerca e sostituisci di tutti caratteri
di fine paragrafo, e, se non sono preceduti da un punto, sostituirli con
uno spazio.

Qualcuno ha qualche suggerimento da dove iniziare?
Grazie a tutti
Luca

[Melchiade Bedrosian Baol]

Luke ha scritto:

> In una richtextbox carico un file RTF, e fin qui nessun problema.
> A questo punto volevo fare una ricerca e sostituisci di tutti caratteri
> di fine paragrafo, e, se non sono preceduti da un punto, sostituirli con
> uno spazio.

regular expression

--
Salutoni
Sergio

C'� il giorno in cui nasci e quello in cui scegli di vivere

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it

[Paperino]

"Luke" ha scritto

In alternativa al suggerimento di MBB, potresti usare la .Find in tre
passaggi.

* Il primo per per sostituire solo la stringa "punto e a capo" con un'altra
stringa riconoscibile che perￜ non contenga "a capo".
* Il secondo per sostituire tutti gli "a capo" rimasti con uno spazio.
* Il terzo per risostituire la stringa di flag con il "punto e a capo"
originale.

Se il testo non ￜ lunghissimo, l'oprerazione ￜ piￜ veloce di quanto
si potrebbe pensare.

Una funzione di sostituzione globale potrebbe essere cosￜ:
'******************
Private Sub SostituisciTutti(Rtb As RichTextBox, TestoDaCercare As String,
TestoDaSostituire As String)
Dim FoundPos As Integer
FoundPos = Rtb.Find(TestoDaCercare, Rtb.SelStart, , rtfMatchCase)
Do While FoundPos <> -1
Rtb.SelText = TestoDaSostituire
FoundPos = Rtb.Find(TestoDaCercare, FoundPos, , rtfMatchCase)
Loop
End Sub
'******************

Bye, G.