create file / write to file / save file ( not working )

[MrKovacic]

Hello all

I am trying to make a module that creates a file ,and I have collected sample script, but it does not appear to be working, but looking at the code, you would think it would work..
Heres the code

    Dim oFile As System.IO.File
    Dim oWrite As System.IO.StreamWriter
    Dim oRead As System.IO.StreamReader
oWrite = oFile.CreateText(“C:\sample.txt”)
OpenText
oRead = oFile.OpenText(“C:\sample.txt”)
oWrite.WriteLine(“Write a line to the file”)
oWrite.WriteLine()         ‘Write a blank line to the file
oWrite.WriteLine(“{0,10}{1,10}{2,25}”, “Date”, “Time”, “Price”)
oWrite.WriteLine(“{0,10:dd MMMM}{0,10:hh:mm tt}{1,25:C}”, Now(), 13455.33)
oWrite.Close()

and here is the error

Declaration expected.

referring to oWrite and oRead

Thank you!!!

Mike Kovacic

 

[MrKovacic]

sorry, this is Microsoft Visual Basic Express 2005

Thank you!!!

Mike Kovacic

 

[ThatRickGuy]

What line is the exception being thrown on?

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[Sorwen]

I don't think it should be any different for this bit of code in Express. Try changing to this:

    Dim oWrite As System.IO.StreamWriter

    oWrite = New System.IO.StreamWriter(“C:\sample.txt”)
    oWrite.WriteLine(“Write a line to the file”)
    oWrite.WriteLine("")         ‘Write a blank line to the file
    oWrite.WriteLine(“{0,10}{1,10}{2,25}”, “Date”, “Time”, “Price”)
    oWrite.WriteLine(“{0,10:dd MMMM}{0,10:hh:mm tt}{1,25:C}”, Now(), 13455.33)
    oWrite.Close()

There is no reason to create the reader if you are going to write. If later in the code you are reading then it is better to create a reader at that time and you can create it just like I did the writer above.

-I hate Microsoft!
-Forever and always forward.

 

[Sorwen]

Oh and I should have said you can't read while a file is open for write.

-I hate Microsoft!
-Forever and always forward.

 

[MrKovacic]

no problem... Here is what im getting..

Error	1	Declaration expected.	C:\vblearning\color picker\color picker\Form2.vb	4	5	color picker
Error	2	Declaration expected.	C:\vblearning\color picker\color picker\Form2.vb	5	5	color picker
Error	3	Declaration expected.	C:\vblearning\color picker\color picker\Form2.vb	6	5	color picker
Error	4	Declaration expected.	C:\vblearning\color picker\color picker\Form2.vb	7	5	color picker
Error	5	Declaration expected.	C:\vblearning\color picker\color picker\Form2.vb	8	5	color picker
Error	6	Declaration expected.	C:\vblearning\color picker\color picker\Form2.vb	9	5	color picker

Thank you!!!

Mike Kovacic

 

[MrKovacic]

bump

Thank you!!!

Mike Kovacic

 

[Sorwen]

So what code is on lines 4, 5, 6, 7, 8, 9? Just incase your not sure (or the line number are not enabled) count from the very top of the code and include any blank lines. If there are no blank lines and no other code that would put the start at line 4 (Dim oWrite As System.IO.StreamWriter). That would mean it doesn't know what a StreamWriter is. Though you shouldn't need to do it you could try to add:

Imports System.IO

At the very top before any code. That is just a guess since I we don't know for sure about the lines.

-I hate Microsoft!
-Forever and always forward.

 

[MrKovacic]

the word it doesnt like it 'oWrite'

Thank you!!!

Mike Kovacic

 

[ThatRickGuy]

Because I like repeating myself....

What line is the exception being thrown on?

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[MrKovacic]

Lines 4,5,6,7,8,9

Thank you!!!

Mike Kovacic

 

[ThatRickGuy]

Which line is #4?

Something like:

    Dim oWrite As System.IO.StreamWriter

    oWrite = New System.IO.StreamWriter(“C:\sample.txt”)
[COLOR=red]>>>[/color] oWrite.WriteLine(“Write a line to the file”)[COLOR=red]'Liek OMG Exception on this line!!!![/color]
    oWrite.WriteLine("")         ‘Write a blank line to the file
    oWrite.WriteLine(“{0,10}{1,10}{2,25}”, “Date”, “Time”, “Price”)
    oWrite.WriteLine(“{0,10:dd MMMM}{0,10:hh:mm tt}{1,25:C}”, Now(), 13455.33)
    oWrite.Close()

Would be nice. But I would be happy if you could cut and paste the first line. For all we know, the numbers 4,5,6... do no necessarily correlate to the 4th, 5th, and 6th... lines that you posted.

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[MrKovacic]

Here is the screen cap...

Http://forumuniversal.com/ScreenShot089.png

Thank you!!!

Mike Kovacic

 

[ThatRickGuy]

Ahh... that's why it didn't make sense.

You need to put your code into a method. Either a sub or function. For example:

  public sub WriteSample()
    Dim oWrite As System.IO.StreamWriter

    oWrite = New System.IO.StreamWriter(“C:\sample.txt”)
    oWrite.WriteLine(“Write a line to the file”)
    oWrite.WriteLine("")         ‘Write a blank line to the file
    oWrite.WriteLine(“{0,10}{1,10}{2,25}”, “Date”, “Time”, “Price”)
    oWrite.WriteLine(“{0,10:dd MMMM}{0,10:hh:mm tt}{1,25:C}”, Now(), 13455.33)
    oWrite.Close()
  end sub

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[MrKovacic]

I told you i was noob

THanks, I'll go check it out!

Thank you!!!

Mike Kovacic