vb.net Code:
Dim line_idx As Integer, line As String, Lines As String()
Dim AddedLines As New List(Of String)
Dim Progress As Integer = 0
Lines() = TBox.Lines
For line_idx = 0 To Lines.Length - 1
Dim sText() As String = Split(Lines(line_idx), ",")
If sText.Length >= 2 Then ' A little bit of checking never hurts
AddedLines.Add(Environment.NewLine + sText(1))
End If
Progress = CInt(line_idx / Lines.Length * 100) ' in %%
' Add progressbar updating here
' Something like ProgressBar1.Value = Progress
' Do not forget to allow the application to update the usercontrols
' Though it slows down the execution a little - it's a price for progressbar:
Application.DoEvents
Next
Tbox.Lines = AddedLines.ToArray
Should work, but I wrote that w/o IDE so there might be some errors.
Reply With Quote