StreamWriter - .Write or .WriteLine - a discrepancy?

The background to this question is here

http://www.experts-exchange.com/Programming/Programming_Languages/Dot_Net/VB_DOT_NET/Q_22058379.html

It explains - if any explanation is needed - why the task that is simplified in the code below might be carried out "for real".

This is VB.NET 2005.  

A test file with these contents

1;Adam
2;Bill
3;Chris
4;Dave

saved in my case as "C:\Test\TestFile.txt".  If you try this and change the path/name, you will need to change the references in both Button_Click subs below.

One form with two buttons on and one datagridview (called DGV).  This code

Imports System.IO
Imports System.Data.OleDb

Public Class frmTest

    Private Sub makeSchemaWithWrite(ByVal thePath As String, ByVal theFile As String, ByVal delimiter As Char, ByVal headers As Boolean)

        Dim thisFile As String = thePath & "\schema.ini"

        'Ensure any existing schema ini file is deleted
        If My.Computer.FileSystem.FileExists(thisFile) Then
            My.Computer.FileSystem.DeleteFile(thisFile)
        End If

        Dim f As New StreamWriter(thisFile)
        Dim t As String = "[" & theFile & "]" & vbCrLf
        t &= "Format=Delimited(;)" & vbCrLf
        t &= "ColNameHeader = " & headers & vbCrLf
        t &= "CharacterSet=ANSI" & vbCrLf
        t &= "col1=ID Integer" & vbCrLf
        t &= "col2=Name char width 10" & vbCrLf
        f.Write(t)

        f.Close()
        f.Dispose()

    End Sub

    Private Sub makeSchemaWithWriteLine(ByVal thePath As String, ByVal theFile As String, ByVal delimiter As Char, ByVal headers As Boolean)

        Dim thisFile As String = thePath & "\schema.ini"

        'Ensure any existing schema ini file is deleted
        If My.Computer.FileSystem.FileExists(thisFile) Then
            My.Computer.FileSystem.DeleteFile(thisFile)
        End If

        Dim f As StreamWriter
        f = My.Computer.FileSystem.OpenTextFileWriter(thisFile, False)
        f.WriteLine("[" & theFile & "]")
        f.WriteLine("Format=Delimited(;)")
        f.WriteLine("ColNameHeader = " & headers)
        f.WriteLine("CharacterSet=ANSI")
        f.WriteLine("col1=ID Integer")
        f.WriteLine("col2=Name char width 10")

        f.Close()
        f.Dispose()

    End Sub

    Private Sub LoadData(ByVal fname As String, ByVal useLines As Boolean)

        If Not My.Computer.FileSystem.FileExists(fname) Then Exit Sub

        Dim fiMyFile As FileInfo = New FileInfo(fname)

        Dim thisPath As String = fiMyFile.DirectoryName
        Dim sourceFile As String = fiMyFile.Name

        If useLines Then
            makeSchemaWithWriteLine(thisPath, sourceFile, ";", False)
        Else
            makeSchemaWithWrite(thisPath, sourceFile, ";", False)
        End If

        Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & thisPath & ";Extended Properties=""Text"";"
        Dim cConn As New OleDbConnection(sConnectionString)

        Dim sSQL As String = "SELECT * FROM " & sourceFile & " WHERE ID > 2"
        Dim da As New OleDbDataAdapter(sSQL, cConn)

        Dim dt As New DataTable

        Try
            da.Fill(dt)
            DGV.DataSource = dt
        Catch ex As Exception
            MsgBox(ex.Message)
            DGV.DataSource = Nothing
        End Try

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LoadData("C:\Test\TestFile.txt", True)
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        LoadData("C:\Test\TestFile.txt", False)
    End Sub

End Class

The purpose of the program is to read the test file's contents, which are semicolon-delmited, using the Jet.OleDB Text engine and a schema.ini, into a datatable, hence datagridview.  The schema.ini is written on the fly.  Two methods of writing it are used.  MessageBox code is included to show that in both cases the schema.ini file has been written.  But when it gets to using that file, one works OK: the other doesn't.

My question is, why?

Roger
LVL 34
SanclerAsked:
Who is Participating?
 
Mike TomlinsonConnect With a Mentor Middle School Assistant TeacherCommented:
Hey Roger,

The two methods of opening up a StreamWriter use different default encoding schemes...

The first:

    Dim f As New StreamWriter(thisFile)

Uses "UTF-8 encoding without a Byte-Order Mark (BOM)".
See:
http://msdn2.microsoft.com/en-us/library/fysy0a4b.aspx

The second:

    Dim f As StreamWriter
    f = My.Computer.FileSystem.OpenTextFileWriter(thisFile, False)

Uses Ascii encoding.
See:
http://msdn2.microsoft.com/en-us/library/bb830kfe.aspx

So try using the SAME method of creating the StreamWriters and see if that makes a difference.

~IM
0
 
SanclerAuthor Commented:
Oops, I missed the message box code out

        Dim sr As New StreamReader(thisPath & "\schema.ini")
        MsgBox(sr.ReadToEnd)
        sr.Close()

should go immediately after

        If useLines Then
            makeSchemaWithWriteLine(thisPath, sourceFile, ";", False)
        Else
            makeSchemaWithWrite(thisPath, sourceFile, ";", False)
        End If

in the LoadData sub

Roger
0
 
SanclerAuthor Commented:
Mike

Thanks.  I wondered about that and reckoned to check - not with the msdn docs, but by examining the files at byte level.  But, I have to admit, it was quite late and I probably put a wrong file through the loop.  I'll have a crack at it again with that in mind.  But I'm on something else now, so it'll be a few hours.  Watch this space.

Roger
0
Cloud Class® Course: Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

 
Mike TomlinsonMiddle School Assistant TeacherCommented:
Roger,

So others can benefit as well...

Which one works?

    (A) "UTF-8 encoding without a Byte-Order Mark (BOM)"
          via New StreamWriter(thisFile)

    (B) ASCII
         via My.Computer.FileSystem.OpenTextFileWriter(thisFile, False)
0
 
SanclerAuthor Commented:
Mike

That's it.  I re-tried my byte-reads and got the BOM on the one that didn't work but not on the other.  Anyway, although the actual problem was resolved at the time, it's nice now to know quite why.

Thanks

Roger
0
 
SanclerAuthor Commented:
Cross post.  Just for clarification.  fFor this purpose we MUST use New StreamWriter(thisFile) and NOT My.Computer.FileSystem.OpenTextFileWriter(thisFile, False)

Roger
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
=)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.