?
Solved

StreamWriter - .Write or .WriteLine - a discrepancy?

Posted on 2006-11-17
7
Medium Priority
?
1,106 Views
Last Modified: 2008-01-09
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
0
Comment
Question by:Sancler
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 34

Author Comment

by:Sancler
ID: 17965839
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
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 2000 total points
ID: 17965961
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
 
LVL 34

Author Comment

by:Sancler
ID: 17966066
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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 17967383
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
 
LVL 34

Author Comment

by:Sancler
ID: 17967394
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
 
LVL 34

Author Comment

by:Sancler
ID: 17967415
Cross post.  Just for clarification.  fFor this purpose we MUST use New StreamWriter(thisFile) and NOT My.Computer.FileSystem.OpenTextFileWriter(thisFile, False)

Roger
0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 17967446
=)
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
Introduction When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…
Suggested Courses

765 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question