[VB.NET] RichtextBox, zoeken naar <enter>

[Verwijderd]

Hallo,

ik heb in een programma een richtextbox. Als men op een knop drukken dan moet hij de richtextbox doorlezen en woorden vervangen en de richtextbox in een string zetten.

Dit gaat goed, nu wil ik de <enter> in <br> vervangen. Maar hij "ziet" de <enter> niet.

geprobeerd:

code:

        Dim tekst As String = RichTextBox1.Text
        Dim strTest As String = Replace(tekst, vbCr, "<br>")
of
        Dim tekst As String = RichTextBox1.Text
        Dim strTest As String = Replace(tekst, Chr(13) & Chr(10), "<br>")
of
        Dim tekst As String = RichTextBox1.Text
        Dim strTest As String = Replace(tekst, \n, "<br>")
of
        Dim tekst As String = RichTextBox1.Text
        Dim strTest As String = Replace(tekst, vbCr & vbLf, "<br>")
of
        Dim tekst As String = RichTextBox1.Text
        Dim strTest As String = Replace(tekst, Environment.NewLine, "<br>")
of 
        Dim tekst As String 
        tekst = RichTextBox1.Text.Replace(Environment.NewLine, "<br />")
of
        Dim tekst As String = RichTextBox1.Text
        Dim strTest As String = Replace(tekst, vbCrLf, "<br>")

Hebben jullie nog een idee?

[ Voor 10% gewijzigd door Verwijderd op 03-04-2009 10:46 . Reden: 1 extra ]

[urk_forever]

Ik zie dat je vbCrLf niet getest hebt. Die zou ik eens proberen.

[Verwijderd]

urk_forever schreef op vrijdag 03 april 2009 @ 10:43:
Ik zie dat je vbCrLf niet getest hebt. Die zou ik eens proberen.

nee, werkt ook niet

ingevuld in richtextbox: "test (3 x <enter>) test "

het resultaat in de string: "test test "

[BtM909]

ControlChars.NewLine werkt ook niet?

[ Voor 56% gewijzigd door BtM909 op 03-04-2009 10:50 ]

[Verwijderd]

BtM909 schreef op vrijdag 03 april 2009 @ 10:50:
ControlChars.NewLine werkt ook niet?

nee

code:

Dim tekst As String = RichTextBox1.Text.Replace(ControlChars.NewLine, "<br>")

[urk_forever]

Visual Basic:

RichTextBox1.Rtf = RichTextBox1.Rtf.Replace("\par", "1")

Dit werkt bij mij wel, maar ik weet niet of dit de beste manier is.

[Verwijderd]

urk_forever schreef op vrijdag 03 april 2009 @ 10:52:

Visual Basic:

RichTextBox1.Rtf = RichTextBox1.Rtf.Replace("\par", "1")

Dit werkt bij mij wel, maar ik weet niet of dit de beste manier is.

Dit werkt inderdaad, moet hem nog wel iets aanpassen, maar het werkt wel
Het probleem is dat hij er andere zooi bezet:

"{\rtf1\ansi\ansicpg1252\deff0\deflang1043{\fonttbl{\f0\fnil\fcharset0 Verdana;}} \viewkind4\uc1<br>d\f0\fs17 test<br> <br> <br> test<br> } "

[ Voor 22% gewijzigd door Verwijderd op 03-04-2009 11:03 ]

[urk_forever]

Een andere mogelijkheid zou zijn om het KeyPress event af te vangen en als een Enter gegeven wordt dan <br /> in de tekst toe te voegen.

Nu vervang je de <enter> waardoor de tekst een lange regel wordt, dat lijkt me de leesbaarheid niet te goede te komen.

[Verwijderd]

urk_forever schreef op vrijdag 03 april 2009 @ 11:08:
Een andere mogelijkheid zou zijn om het KeyPress event af te vangen en als een Enter gegeven wordt dan <br /> in de tekst toe te voegen.

Nu vervang je de <enter> waardoor de tekst een lange regel wordt, dat lijkt me de leesbaarheid niet te goede te komen.

Is logisch, maar dan wordt dat gelijk zichtbaar op het scherm, dat is niet de bedoeling.

Of ik moet het afvangen in een aparte string of zo iets

Dit werkt nu:

code:

RichTextBox1.Rtf = RichTextBox1.Rtf.Replace("\par", "<br>")
        Dim tekst As String = RichTextBox1.Text
        Dim Body As String = Replace(tekst, (Mid(tekst, 1, 5)), "")

De laatste regel is omdat hij er <br>D voor zet. Die verwijder ik op deze manier.

Alles werkt, Bedankt
!

[ Voor 24% gewijzigd door Verwijderd op 03-04-2009 11:26 ]