VB.NET

VB.NET RSS

Problem in writing to a file using StreamWriter

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Sep 2009

Posts: 13

Reputation: Learning78 is an unknown quantity at this point

Solved Threads: 0

Learning78 Learning78 is offline

Offline

Newbie Poster

Problem in writing to a file using StreamWriter

Oct 28th, 2009

•

Hi;
I have developed a MCQ based learning game. A user has to play the game repeatedly to improve his learning. For each session of game, player gets score. I want to write the score in a single file for every session. e.g. I want to print user name and his score for first game in first line of file and for 2nd game in second line and so on.
At the moment, every time a new session is played it overrides the earlier line. I need some help with the below code.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim fs As New FileStream("file1.doc", FileMode.Create, FileAccess.Write)
            Dim s As New StreamWriter(fs)
             s.BaseStream.Seek(0, SeekOrigin.End)
            s.WriteLine(namebox.Text)
            s.WriteLine(scorebox.Text)
            s.Close()
Dim fs As New FileStream("file1.doc", FileMode.Create, FileAccess.Write)
            Dim s As New StreamWriter(fs)
             s.BaseStream.Seek(0, SeekOrigin.End)
            s.WriteLine(namebox.Text)
            s.WriteLine(scorebox.Text)
            s.Close()

•

Join Date: Sep 2009

Posts: 304

Reputation: TomW is on a distinguished road

Solved Threads: 44

TomW

Offline

Posting Whiz

Oct 28th, 2009

Take a look at "FileMode" in the help index. Your use of FileMode.Create will always create a new file including overwriting the file if it already exists. Instead you want to create a file if it doesnt exist but append to a file if it does exist.

•

Join Date: Aug 2009

Posts: 94

Reputation: yorro has a little shameless behaviour in the past

Solved Threads: 6

yorro

Offline

Junior Poster in Training

Oct 31st, 2009

Let me first get this straight.

You want sorta like:
Game 1, User 100
Game 2, User 90

Instead you get this?
Game 2, User 90

•

Join Date: Sep 2009

Posts: 13

Reputation: Learning78 is an unknown quantity at this point

Solved Threads: 0

Learning78 Learning78 is offline

Offline

Newbie Poster

34 Days Ago

Help with Code Tags

(Toggle Plain Text)

Yeah, the second one overwrites the first. 
What I want is if first game score was 
Player1 90

Then second game score should not overwrite it rather appear alongwith it in file when I check file after playing game 2 e.g.

Player1 90
Player1 95 
Player1 96
and so on...

•

Join Date: Aug 2009

Posts: 94

Reputation: yorro has a little shameless behaviour in the past

Solved Threads: 6

yorro

Offline

Junior Poster in Training

34 Days Ago

You can add True to append on your code.

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim s As New StreamWriter(fs,True)
Dim s As New StreamWriter(fs,True)

Notice that there is an additional boolean argument?. True if Append/Add.

You can use this new code, which also has a custom error.

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
        Try
            Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True)
            Filewriter.WriteLine(namebox.Text & " " & scorebox.Text)
            Filewriter.Close()
        Catch E As Exception
            ' Your own custom error
            MsgBox("Cannot Save")
        End Try
        Try
            Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True)
            Filewriter.WriteLine(namebox.Text & " " & scorebox.Text)
            Filewriter.Close()
        Catch E As Exception
            ' Your own custom error
            MsgBox("Cannot Save")
        End Try

Output to textfile or document file will look like this.
Player1 90
Player1 65

•

Join Date: Sep 2009

Posts: 13

Reputation: Learning78 is an unknown quantity at this point

Solved Threads: 0

Learning78 Learning78 is offline

Offline

Newbie Poster

33 Days Ago

Using

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim s As New StreamWriter(fs,True)
Dim s As New StreamWriter(fs,True)

returns the below error.

Help with Code Tags

(Toggle Plain Text)

Overload resolution failed because no accessible 'New' can be called with these arguments:
'Public Sub New(path As String, append As Boolean)': Value of type 'System.IO.FileStream' cannot be converted to 'String'.
    'Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding)': Value of type 'Boolean' cannot be converted to 'System.Text.Encoding'.

Seems to be variable type mismatch (Bolean and string).

I used the following code:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim fs As New FileStream("scores.txt", FileMode.Create, FileAccess.Write)
            Dim s As New System.IO.StreamWriter(fs, True)
            Try
                Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True)
                Filewriter.WriteLine(namebox.Text & " " & scorebox.Text)
                Filewriter.Close()
            Catch ex As Exception
                MsgBox("Cannot Save")
            End Try
Dim fs As New FileStream("scores.txt", FileMode.Create, FileAccess.Write)
            Dim s As New System.IO.StreamWriter(fs, True)
            Try
                Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True)
                Filewriter.WriteLine(namebox.Text & " " & scorebox.Text)
                Filewriter.Close()
            Catch ex As Exception
                MsgBox("Cannot Save")
            End Try

•

Join Date: Oct 2009

Posts: 63

Reputation: mikiurban is an unknown quantity at this point

Solved Threads: 16

mikiurban

Offline

Junior Poster in Training

33 Days Ago

Maybe a Filewriter.Flush() between each WriteLine()? Also, you might not need the Seek(), try taking that out and see if it works.

•

Join Date: Feb 2009

Posts: 3,258

Reputation: sknake has much to be proud of

Solved Threads: 581

sknake

Offline

.NET Enthusiast

33 Days Ago

There is no overload of StreamWriter(stream, append) because the "append" property is specified when you create the stream.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim fs As New FileStream("scores.txt", FileMode.Create, FileAccess.Write)
    Dim s As New System.IO.StreamWriter(fs)  'This gets the file create/append properties from the New Filestream() line
    Try
      Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True)
      Filewriter.WriteLine("abc" & " " & "123")
      Filewriter.Close()
    Catch ex As Exception
      MsgBox("Cannot Save")
    End Try
  End Sub
  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim fs As New FileStream("scores.txt", FileMode.Create, FileAccess.Write)
    Dim s As New System.IO.StreamWriter(fs)  'This gets the file create/append properties from the New Filestream() line
    Try
      Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True)
      Filewriter.WriteLine("abc" & " " & "123")
      Filewriter.Close()
    Catch ex As Exception
      MsgBox("Cannot Save")
    End Try
  End Sub

Scott Knake
Custom Software Development
Apex Software, Inc.

•

Join Date: Oct 2009

Posts: 63

Reputation: mikiurban is an unknown quantity at this point

Solved Threads: 16

mikiurban

Offline

Junior Poster in Training

33 Days Ago

Is the code above correct? I see 2 StreamWriters created, and only one being used.

•

Join Date: Aug 2009

Posts: 94

Reputation: yorro has a little shameless behaviour in the past

Solved Threads: 6

yorro

Offline

Junior Poster in Training

#10

33 Days Ago

•

Originally Posted by Learning78

Help with Code Tags

VB.NET Syntax (Toggle Plain Text)
Dim fs As New FileStream("scores.txt", FileMode.Create, FileAccess.Write)
            Dim s As New System.IO.StreamWriter(fs, True)
            Try
                Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True)
                Filewriter.WriteLine(namebox.Text & " " & scorebox.Text)
                Filewriter.Close()
            Catch ex As Exception
                MsgBox("Cannot Save")
            End Try
Dim fs As New FileStream("scores.txt", FileMode.Create, FileAccess.Write) Dim s As New System.IO.StreamWriter(fs, True) Try Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True) Filewriter.WriteLine(namebox.Text & " " & scorebox.Text) Filewriter.Close() Catch ex As Exception MsgBox("Cannot Save") End Try

Ditch the first two lines, and create the .Txt manually first before you go into a more advance phase.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Imports System.IO
        Private Sub Save()
            Try
                Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True)
                Filewriter.WriteLine(namebox.Text & " " & scorebox.Text)
                Filewriter.Close()
            Catch ex As Exception
                MsgBox("Cannot Save")
            End Try
        End Sub
Imports System.IO
        Private Sub Save()
            Try
                Dim Filewriter As StreamWriter = New StreamWriter("Scores.txt", True)
                Filewriter.WriteLine(namebox.Text & " " & scorebox.Text)
                Filewriter.Close()
            Catch ex As Exception
                MsgBox("Cannot Save")
            End Try
        End Sub