I need to convert this VB6 code to .net - Xtreme Visual Basic Talk

05-03-2012, 10:44 AM

VisualaBasikka VisualaBasikka is offline

Centurion

Join Date: Oct 2004

Posts: 118

I need to convert this VB6 code to .net

Code:

Open App.Path & "\test.txt" For Append As #1
Print #1, "abc"
Print #1, "def"
Print #1, "ghi"
Close #1

05-03-2012, 03:43 PM

snarfblam

Senior Contributor

Forum Leader
* Expert *

Join Date: Apr 2005

Location: USA

Posts: 865

I suggest you do that then.

__________________
C# _VB.NET _

05-03-2012, 04:42 PM

VisualaBasikka VisualaBasikka is offline

Centurion

Join Date: Oct 2004

Posts: 118

It's ok I have done.

It's typical- I can't figure out how to do it so I ask for help and then I figure out how to do it myself.

05-03-2012, 04:44 PM

VisualaBasikka VisualaBasikka is offline

Centurion

Join Date: Oct 2004

Posts: 118

Code:

        Dim FS As IO.FileStream
        FS = New IO.FileStream(Application.StartupPath() & "test.txt", IO.FileMode.Append, IO.FileAccess.Write)
        Dim SW As New IO.StreamWriter(FS)
        SW.Write("123" & vbCrLf)
        SW.Write("456" & vbCrLf)
        SW.Write("789" & vbCrLf)
        SW.Close()
        FS.Close()

05-08-2012, 09:20 AM

AtmaWeapon

Fabulous Florist

Forum Leader
* Guru *

Join Date: Feb 2004

Location: Austin, TX

Posts: 9,416

There's a lot of ways to do file I/O. What you pieced together is good fundamentals, but here's a couple of other ways to accomplish it.

I hesitate to say this is "better" code, but it's a little more intent-revealing:

Code:

Using writer = File.AppendText("test.txt")
    writer.WriteLine("123")
    writer.WriteLine("456")
    writer.WriteLine("789")
End Using

The Using statement guarantees the file is safely closed even if an error happens. The File.AppendText() method goes to the trouble of opening all of the streams. You can see the File methods here; lots of them are convenient.

Here's an alternate way to do it without worrying about opening and closing the file yourself:

Code:

Dim lines = {"123", "456", "789"}
File.AppendAllLines("test.txt", lines)

AppendAllLines() takes an enumeration of strings and appends each as a new line to a file.

__________________
.NET Resources
My FAQ threads | Tutor's Corner | Code Library
I would bet money 2/3 of .NET questions are already answered in one of these three places.