How do I replace Enter

Expand Post »

I have a headache over this one. what i am trying to do is take the text from a multi-line textbox and put it into one line so i can put that into a file for another program to read one line at a time. is there some way to do this so the file is small and streamreader can read one line at a time.

heres the code that writes to the file and compiles the textbox:

VB.NET Syntax (Toggle Plain Text)
            Dim ENTER As String = Chr(13)' I Tried vbcrlf here but it still didnt work.
            Dim delimiters() As Char = {CChar(ENTER)}
            Dim TD, D1, D2, D3, D4, inp() As String
            Dim ipart As IEnumerator
            If TextBox4.Text = Nothing Then
                D2 = "_"
            Else
                D2 = TextBox4.Text
            End If
            D1 = TextBox1.Text
            inp = TextBox2.Text.Split(delimiters)
            ipart = inp.GetEnumerator
            While ipart.MoveNext
                D3 = D3 & Mid(ipart.Current.ToString, 1, ipart.Current.length - 1) & "Û"
            End While
            inp = TextBox3.Text.Split(delimiters)
            ipart = inp.GetEnumerator
            While ipart.MoveNext
                D4 = D4 & Mid(ipart.Current.ToString, 2, ipart.Current.length) & "Û"
            End While
            sd.WriteLine(D1 & "þ" & D2 & "þ" & D3 & "þ" & D4)
            Dim ENTER As String = Chr(13)' I Tried vbcrlf here but it still didnt work.
            Dim delimiters() As Char = {CChar(ENTER)}
            Dim TD, D1, D2, D3, D4, inp() As String
            Dim ipart As IEnumerator
            If TextBox4.Text = Nothing Then
                D2 = "_"
            Else
                D2 = TextBox4.Text
            End If
            D1 = TextBox1.Text
            inp = TextBox2.Text.Split(delimiters)
            ipart = inp.GetEnumerator
            While ipart.MoveNext
                D3 = D3 & Mid(ipart.Current.ToString, 1, ipart.Current.length - 1) & "Û"
            End While
            inp = TextBox3.Text.Split(delimiters)
            ipart = inp.GetEnumerator
            While ipart.MoveNext
                D4 = D4 & Mid(ipart.Current.ToString, 2, ipart.Current.length) & "Û"
            End While
            sd.WriteLine(D1 & "þ" & D2 & "þ" & D3 & "þ" & D4)

Thanks in advanced

Similar Threads

Replacing "Enter" in textBox in ASP.NET
Error Message: No signal in Troubleshooting Dead Machines
subscripts & superscripts.......in php in PHP
replace characters in C++
Help with replace method. in Java

JeffN00B

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Jun 2008

Permalink

Jun 9th, 2008

Re: How do I replace Enter

The following code replaces the CR+LF that separates the lines in a multiline textbox by a text that will hopefully never be entered by any user.
I tested this with german culture settings.

VB.NET Syntax (Toggle Plain Text)
        Dim sLine As String
        sLine = Replace(TextBox1.Text, vbCr & vbLf, ":AxAxA:")
        Dim writer As New StreamWriter("temp.txt", False)
        writer.WriteLine(sLine)
        writer.Close()
 
        Dim reader As New StreamReader("temp.txt")
        sLine = reader.ReadLine
        reader.Close()
        TextBox2.Text = Replace(sLine, ":AxAxA:", vbCr & vbLf)
        Dim sLine As String
        sLine = Replace(TextBox1.Text, vbCr & vbLf, ":AxAxA:")
        Dim writer As New StreamWriter("temp.txt", False)
        writer.WriteLine(sLine)
        writer.Close()

        Dim reader As New StreamReader("temp.txt")
        sLine = reader.ReadLine
        reader.Close()
        TextBox2.Text = Replace(sLine, ":AxAxA:", vbCr & vbLf)

Last edited by dadelsen; Jun 9th, 2008 at 4:36 am.

dadelsen

Reputation Points: 25

Solved Threads: 5

Newbie Poster

Offline

22 posts
since Jun 2007

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Vb 4/5 to Vb.net

Next Thread in VB.NET Forum Timeline: Datagrid

DaniWeb Message

Cancel Changes

User Name
Password