enter/return

[bonnowagt]

Ik heb in mijn programma de onder anderen de volgende textbox:

BIJZONDERHEDEN,TEXT Dit is een multiline textbox. De gegevens sla ik op in een textfile. Werkt prima ook het wijzigen, doch de fout hierin is als volt:

Als ik bijzonderheden aanvul en/of ik geen een enter/return in het veld dan wordt dit op de volgende regel in de textfile opgeslagen.

Hoe voorkom ik dit en of kan ik enter/return uitschakelen, liever niet uitschakelen maar als er geen andere mogelijkheid dan maar zo.

Vr. groet

 

[CaptainBri]

Kan je de code voor het wegschrijven even laten zien? Wanneer je File.AppendAllText gebruikt zou hij geen nieuwe regel moeten maken, probeer dat maar eens ^^

 

[bonnowagt]

enter

Op onderstaande manier save ik

 Dim itm As ListViewItem
        Dim str(18) As String
        str(0) = LTrim(Achternaam.Text) : str(1) = LTrim(Voornaam.Text) : str(2) = LTrim(Tussenvoegsel.Text) : str(3) = LTrim(Straatnaam.Text)
        str(4) = LTrim(Huisnummer.Text) : str(5) = LTrim(Postcodeletters.Text) 'str(6) = Postcodecijfers.Text  
        str(7) = LTrim(Woonplaats.Text)
        str(8) = LTrim(Geboorteplaats.Text) : str(9) = Geboortedatum.Text : str(10) = ManVrouw.Text : str(11) = Kinderen.Text
        str(12) = LTrim(Emailadres.Text) : str(13) = LTrim(Website.Text) : str(14) = LTrim(Vastetelefoon.Text)
        str(15) = LTrim(Mobieletelefoon.Text) : str(16) = LTrim(Bijzonderheden.Text) : str(17) = Foto.Text
     
        itm = New ListViewItem(str)
        ListView1.Items.Add(itm)
        Try
            PictureBox1.Image = Image.FromFile(Foto.Text)
        Catch ex As Exception
        End Try
        Dim myWriter As New IO.StreamWriter(myCoolFile)
        For Each myItem As ListViewItem In ListView1.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 _
                       & "#" & myItem.SubItems(6).Text & "#" & myItem.SubItems(7).Text & "#" & myItem.SubItems(8).Text _
              & "#" & myItem.SubItems(9).Text & "#" & myItem.SubItems(10).Text & "#" & myItem.SubItems(11).Text _
                & "#" & myItem.SubItems(12).Text & "#" & myItem.SubItems(13).Text & "#" & myItem.SubItems(14).Text _
                  & "#" & myItem.SubItems(15).Text & "#" & myItem.SubItems(16).Text & "#" & myItem.SubItems(17).Text _
                    & "#" & myItem.SubItems(18).Text)
        Next
        myWriter.Close()

 

[CaptainBri]

Ik begrijp het nog niet helemaal, maar op deze manier komt er géén enter bij.

        Dim itm As ListViewItem
        Dim str(18) As String
        str(0) = LTrim(Achternaam.Text) : str(1) = LTrim(Voornaam.Text) : str(2) = LTrim(Tussenvoegsel.Text) : str(3) = LTrim(Straatnaam.Text)
        str(4) = LTrim(Huisnummer.Text) : str(5) = LTrim(Postcodeletters.Text) 'str(6) = Postcodecijfers.Text  
        str(7) = LTrim(Woonplaats.Text)
        str(8) = LTrim(Geboorteplaats.Text) : str(9) = Geboortedatum.Text : str(10) = ManVrouw.Text : str(11) = Kinderen.Text
        str(12) = LTrim(Emailadres.Text) : str(13) = LTrim(Website.Text) : str(14) = LTrim(Vastetelefoon.Text)
        str(15) = LTrim(Mobieletelefoon.Text) : str(16) = LTrim(Bijzonderheden.Text) : str(17) = Foto.Text

        itm = New ListViewItem(str)
        ListView1.Items.Add(itm)
        Try
            PictureBox1.Image = Image.FromFile(Foto.Text)
        Catch
        End Try
        'Dim myWriter As New IO.StreamWriter(myCoolFile)
        For Each myItem As ListViewItem In ListView1.Items
            Dim Inhoud As String = myItem.Text
            For i As Integer = 0 To 18
                Inhoud &= "#" & myItem.SubItems(i).Text
            Next
            IO.File.AppendAllText(myCoolFile, Inhoud)
            'myWriter.WriteLine(myItem.Text & "#" & myItem.SubItems(1).Text & "#" & myItem.SubItems(2).Text _
            '         & "#" & myItem.SubItems(3).Text & "#" & myItem.SubItems(4).Text & "#" & myItem.SubItems(5).Text _
            '           & "#" & myItem.SubItems(6).Text & "#" & myItem.SubItems(7).Text & "#" & myItem.SubItems(8).Text _
            '  & "#" & myItem.SubItems(9).Text & "#" & myItem.SubItems(10).Text & "#" & myItem.SubItems(11).Text _
            '    & "#" & myItem.SubItems(12).Text & "#" & myItem.SubItems(13).Text & "#" & myItem.SubItems(14).Text _
            '      & "#" & myItem.SubItems(15).Text & "#" & myItem.SubItems(16).Text & "#" & myItem.SubItems(17).Text _
            '        & "#" & myItem.SubItems(18).Text)
        Next
        'myWriter.Close()

Succes

 

[bonnowagt]

enter

Snap dat je het niet begrijpt. Het helpt niet wat jij schrijft. Ik zal je eerst even zeggen wat er gebeurd. Zo wordt het neergezet in een textfile.

BONS#PAUL######ALPHEN AAN DE RIJN###M#Nee#####VRIEND
BONS#PAUL##BEUKENLAAN####LEIDEN###M#Nee#####VRIENDIN
enz.

Opslaan geen probleem tenzij ik Bijzonderheiden wijzig waarbij ik dan een enter gebruik. Bijzonderheden is een multilin textbox. Achter vriend geef ik dan een enter en voer verdere gegevens in. Dan knop wijzigen indrukken en dan komt het volgende er te staan:

BONS#PAUL######ALPHEN AAN DE RIJN###M#Nee#####VRIEND
BELLEN VOLGENDE WEEK
BONS#PAUL##BEUKENLAAN####LEIDEN###M#Nee#####VRIENDIN

Hij schrijft dus de zin niet door zodat de gegevens niet ingeladen kunnen worden

 

[CaptainBri]

Ik denk dat je hiervoor dan toch het beste naar XML kunt kijken, dit is hier perfect voor. Zelf heb ik er niet veel ervaring mee, dus hier een linkje met wat voorbeelden en uitleg: http://vb.net-informations.com/xml/vb.net-xml-tutorial.htm

Succes!

 

[JoZ1]

Of .INI-bestanden. Handleiding: http://www.helpmij.nl/forum/showthread.php/633161-Configuratiebestanden-VB.NET?p=4032411