Private Sub readfile() Dim path As String Dim chaine As String = String.Empty path = "e:\test.txt" Try listitem = System.IO.File.ReadAllLines(path).ToList Catch ex As Exception End Try Dim listmodifi As New List(Of String) For Each element In listitem If element.ToString.StartsWith("/") Then chaine &= element End If Next TextBox1.Text = chaine End Sub
Private listitem As New List(Of String) Private Sub readfile() Dim path As String Dim chaine As String = String.Empty path = "e:\test.txt" Try listitem = System.IO.File.ReadAllLines(path).ToList Catch ex As Exception End Try For Each element In listitem If element.ToString.StartsWith("/") Then chaine &= element End If Next TextBox1.Text = chaine End Sub