Ad:

VB.NET Discussion Thread
Unsolved
Views: 3512

Page 1
2
Next

You are currently viewing page 1 of this multi-page discussion thread

Oct 28th, 2009

Problem in writing to a file using StreamWriter

Expand Post »

Quote ...

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.

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()

Similar Threads

Problem with writing to a file in C++
Problem Writing in Text File in C++
Writing to File in Client/Server app in Java
writing to file in Python
Problem writing to file. in Java

Learning78

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

26 posts
since Sep 2009

Permalink

Oct 28th, 2009

Re: Problem in writing to a file using StreamWriter

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.

TomW

Reputation Points: 84

Solved Threads: 48

Posting Whiz

Offline

342 posts
since Sep 2009

Permalink

Oct 31st, 2009

Re: Problem in writing to a file using StreamWriter

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

yorro

Reputation Points: 8

Solved Threads: 7

Junior Poster

Offline

119 posts
since Aug 2009

Permalink

Nov 3rd, 2009

Re: Problem in writing to a file using StreamWriter

(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...

Learning78

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

26 posts
since Sep 2009

Permalink

Nov 3rd, 2009

Re: Problem in writing to a file using StreamWriter

You can add True to append on your code.

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.

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

yorro

Reputation Points: 8

Solved Threads: 7

Junior Poster

Offline

119 posts
since Aug 2009

Permalink

Nov 3rd, 2009

Re: Problem in writing to a file using StreamWriter

Using

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

returns the below error.

(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:

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

Learning78

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

26 posts
since Sep 2009

Permalink

Nov 3rd, 2009

Re: Problem in writing to a file using StreamWriter

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

mikiurban

Reputation Points: 27

Solved Threads: 17

Junior Poster in Training

Offline

63 posts
since Oct 2009

Permalink

Nov 3rd, 2009

Re: Problem in writing to a file using StreamWriter

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

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

sknake

Featured Poster

Reputation Points: 1749

Solved Threads: 735

Senior Poster

Offline

3,948 posts
since Feb 2009

Permalink

Nov 3rd, 2009

Re: Problem in writing to a file using StreamWriter

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

mikiurban

Reputation Points: 27

Solved Threads: 17

Junior Poster in Training

Offline

63 posts
since Oct 2009

Permalink

Nov 4th, 2009

Re: Problem in writing to a file using StreamWriter

Click to Expand / Collapse Quote originally posted by Learning78 ...

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.

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

After that, you may proceed to checking the file if exists then create if exists.

Last edited by yorro; Nov 4th, 2009 at 12:48 am.

yorro

Reputation Points: 8

Solved Threads: 7

Junior Poster

Offline

119 posts
since Aug 2009

Page 1
2
Next

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Sorting Records using ReportViewer

Next Thread in VB.NET Forum Timeline: Windows Key Disable

DaniWeb Message

Cancel Changes

User Name
Password