return

[bonnowagt]

Hallo,

Hoe kun je lege regels uit een tekst krijgen en de ruimtein VB 2010

Bijvoorbeeld:

Ik woon

in Amsterdam

moet worden:
Ik woon in Amsterdam

 

[JoZ1]

Voorbeeld:

[CPP]Dim strVoorbeeld As String = "Ik woon" & vbNewLine & "in Amsterdam"
Console.WriteLine(strVoorbeeld.Replace(vbNewLine, " "))[/CPP]

 

[bonnowagt]

Ik schrijf als volgt weg:

  Dim myWriter As New IO.StreamWriter(myCoolFileMail)
        For Each myItem As ListViewItem In ListView3.Items
            myWriter.WriteLine(myItem.Text & "#" & myItem.SubItems(1).Text & "#" & myItem.SubItems(2).Text _
                     & "#" & myItem.SubItems(3).Text & "#" & myItem.SubItems(4).Text & "#" & myItem.SubItems(5).Text)
        Next
        myWriter.Close()

Bijvoorbeeld de laatste moet voor gelden dat de lege regels eruit gehaald worden voordat het weggeschreven wordt.
dus bijv. bij myItem.SubItems(5).Text)

 

[JoZ1]

Gewoon zo:

[CPP]myItem.SubItems(5).Text.Replace(vbNewLine, " ")[/CPP]

 

[bonnowagt]

vervolg

De regel wordt zo weggeschreven:

6-9-2011 22:42:46#h@t.nl#h@t.com##Geachte meneer

Hierbij deel ik u het volgende mede enz enz.

Ik heb het weggeschreven op de volgende manier zoals jij schreef:

myItem.SubItems(5).Text.Replace(vbNewLine, " "))

Toch schrijft hij nog steeds hetzelfde weg terwijl ik het als volgt graag zou hebben:

6-9-2011 22:42:46#h@t.nl#h@t.com##Geachte meneer Hierbij deel ik u het volgende mede enz enz.

Het kan er niet op maar het moet achterelkaar worden doorgeschreven dus ook geen reutrn

 

[bonnowagt]

Hallo,

Ik ben eruit bedankt ik had even iets verkeerds gedaan maar klopt wat je mij hebt aangeraden, dus ontzettend bedankt

 

[JoZ1]

OK, graag gedaan :thumb:.

Wil je de status even op 'Opgelost' zetten?