Delimiter question

[gn]

I am trying to parse a txt file which looks something like example
below:

th*******@email .com
th*******@email .com
an**********@em ail.com

This is the code I am using:

filetoread = file1.Value
filestream = File.OpenText(f iletoread)
readcontents = filestream.Read ToEnd()
textdelimiter = " "
Dim splitout = Split(readconte nts, textdelimiter)
Dim i As Integer
For i = 0 To UBound(splitout )
lblsplittext.Te xt &= "<b>Split </b>" & i + 1 & ") " & splitout(i)
& "<br>"
Next

This works fine if the file is in the format:

th*******@email .com th*******@email .com an**********@em ail.com

But what delimiter should I use to indicate a new line as a delimiter?

Thank you in advance...

[Virgil]

You can use Environment.New Line.

[gn]

Thank you,

But how would I use that in the above code?

[Virgil]

I made a small function to test the my answer before I sent it. The
code is different (more DotNetish), but you are welcome to it =)

Import the following libraries at the top of your code:

Imports System.IO
Imports System.Text

Here was my method:

Dim FileName As String = "test.txt"
Dim FileContents As String
Dim sr As StreamReader

Try
sr = File.OpenText(F ileName)
FileContents = sr.ReadToEnd()
Catch ex As Exception
MessageBox.Show ("Unable top open file: " & ex.Message)
Return
Finally
If (sr Is Nothing) = False Then
sr.Close()
End If
End Try

Dim Lines() As String = Split(FileConte nts,
Environment.New Line)
Dim Output As New StringBuilder
Dim i As Integer
For i = 0 To Lines.Length - 1
Output.Append(" <b>Split </b>" & i + 1 & ") " & Lines(i) &
"<br />")
Next

lblSplitterText .Text = Output.ToString

[gn]

Thank you so much - Perfect!