Question Insert carriage return in txt file

[webwired]

Hi, I am writing a small little program to parse .csv or .txt file and grab the first line only, the headers, and then create a .txt file with a list of those headers, each one on a new line... Problem is, I can't figure out how to put each one on a new line in the .txt file...

Here's what I got so far...

Imports System.IO

Public Class MainForm

    Dim selectedFileName As String

    Private Sub openFileButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openFileButton.Click
        OpenFileDialog1.ShowDialog()
        selectedFileName = OpenFileDialog1.FileName
        fileTextBox.Text = selectedFileName
    End Sub

    Private Sub getListButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles getListButton.Click

        Dim extensionPosition As Integer = selectedFileName.LastIndexOf(".")
        Dim filenameOnly As String = selectedFileName.Remove(extensionPosition, 4)

        Dim myFileStream As New FileStream(filenameOnly + "_FieldList.txt", FileMode.Create, FileAccess.Write)
        Dim myStreamWriter As New StreamWriter(myFileStream)

        Dim myStreamReader As StreamReader = File.OpenText(selectedFileName)
        Dim contents As String

        myStreamReader.BaseStream.Seek(0, SeekOrigin.Begin)

        contents = myStreamReader.ReadLine()
        myStreamWriter.BaseStream.Seek(0, SeekOrigin.End)
        Dim formattedContents As String
        formattedContents = Replace(contents, """", String.Empty)

        formattedContents = Replace(formattedContents, ",", "\n")

        myStreamWriter.WriteLine(formattedContents)

        myStreamReader.Close()
        myStreamWriter.Close()

    End Sub
End Class

Notice this line... formattedContents = Replace(formattedContents, ",", "\n")

Of course it didn't work, anyone have any ideas?

 

[Robert_Zenz]

Hello.

You're looking (most likely) for these constants:

Enviromnent.NewLine
vbCr
vbLf

Bobby

 

[webwired]

Yes, that did it... so simple... thank you very much

 

[JuggaloBrotha]

Hello.

You're looking (most likely) for these constants:

Enviromnent.NewLine
vbCr
vbLf

Bobby

It'd be any of these:
Environment.NewLine (Most preferred)
ControlChars.NewLine
vbCrLf