Perform remove on multi-line textbox

Scott

16y5.7kC#

Hi,

Aim:

Read the text from a multi-line textbox line by line to remove all but an 8 character ID.

For example:

" Test ID: 12345678"

I wish to retrieve the ID's only and show on 1 line with a delimiter,

For example:

"12345678, 12345678"

I can do this on a single line using the following:

     Private Sub btnTrim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTrim.Click

        Dim sTemp As String
        Dim sCount As Integer

        sTemp = ""

        'loads a text file into the sTemp string
        sTemp = GetFileContents(txtPath.Text)

        'remove text from begining of the string
        sTemp = sTemp.Remove("0", "10")

        'check how long the sTemp string is now

        sCount = sTemp - txtLength.Text

        'remove all text after the txtLength number
        sTemp = sTemp.Remove(txtLength.Text, sCount)

        txtData.Text = sTemp

    End Sub

I've tried to replicate this on a multi-line using Splits, Substrings and a For...Each loop - but have just ended up with a headache..

Any help would be greatly appreciated!

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

Hirendra Sisodiya16y ago
Accepted answer

hello Scott
Suppose multiline textbox(TextBox1) has :
" Test ID: 12345678"
" Test ID: 12345678"
then you can try this code sample:
Dim ReadFromTextbox As String = TextBox1.Text
Dim ReadFromTextbox_LineByLine() As String = ReadFromTextbox.Split(Environment.NewLine)
Dim TempLineString As String = ""
Dim FinalString As String = ""
For i As Integer = 0 To ReadFromTextbox_LineByLine.Length - 1
TempLineString = ReadFromTextbox_LineByLine(i).Trim()
Dim Divide_TempLineString() As String = TempLineString.Split(":")
If Divide_TempLineString.Length > 0 Then
FinalString = FinalString & "," & Divide_TempLineString(Divide_TempLineString.Length - 1)
End If
Next
FinalString = FinalString.Trim()
If FinalString.StartsWith(",") Then
FinalString = FinalString.Remove(0, 1)
End If
thanks
Please mark as answere if it helps

Scott16y ago

Hirendra that was almost exactly what i needed! Thank you very much.

For future readers, here's what i ended up doing:

Streamreading a text file into a string. Test file containing data such as:
" Test ID: 12345678.tif"
" Test ID: 12345678.tif"

Final solution:

 Private Sub btnTrim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTrim.Click


        'declare temporary string
        Dim sTemp As String


        'loads temp data from file
        sTemp = GetFileContents(txtPath.Text)


        'define multi-lined string and split it
        Dim ReadFromString As String = sTemp
        Dim ReadFromString_LineByLine() As String = ReadFromString.Split(Environment.NewLine)


        'ensure no null values on runtime
        Dim TempLineString As String = ""
        Dim FinalString As String = ""


        'read the string line by line
        For i As Integer = 0 To ReadFromString_LineByLine.Length - 1


            'trim white spaces
            TempLineString = ReadFromString_LineByLine(i).Trim()


            'remove the first 16 chars - skip 8 (the ID) - remove the final 4
            TempLineString = ((TempLineString.Remove(0, txtBegin.Text)).Remove(txtLength.Text, 4))


            'populate the final string and enter the delimiter (default is a ",")
            FinalString = FinalString & txtDelimiter.Text & TempLineString


        Next


        'trim whitespaces before checking first/last char's
        FinalString = FinalString.Trim()


        'remove the first character if it's a delimiter
        If FinalString.StartsWith(txtDelimiter.Text) Then
            FinalString = FinalString.Remove(0, 1)
        End If


        'remove the final character if it's a delmiter
        If FinalString.EndsWith(txtDelimiter.Text) Then
            FinalString = FinalString.Remove(FinalString.Length - 1, 1)
        End If


        'final trim
        FinalString = FinalString.Trim()


        'Output the final string to a textbox
        txtData.Text = FinalString


    End Sub