Perform remove on multi-line textbox

Question

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  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!

Hirendra Sisodiya · 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

Scott · Answer

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