Lab 10: File Access
This lab accompanies Chapter 10 of Starting Out with Programming Logic & Design.

Lab 10.1 – File Access and Visual Basic

This lab examines how to work with a file by writing Visual Basic code. Read the following programming problem prior to completing the lab.

Write and design a simple program that will take 3 pieces of data and write it to a file. Create variables and set them equal to the appropriate values:

Declare string firstName = “xxx”
Declare string lastName = “xxx”
Declare integer age = your age

Write this information to a file called myRecords.txt. Next, read this information from the file and print it to the screen.

Step 1: Create a new Visual Basic workspace and add the following code:

Module Module1

Sub Main()

Dim firstName As String = "XXXX" Dim lastName As String = "XXX" Dim age As Integer = ####

Dim writer As System.IO.StreamWriter = System.IO.File.CreateText("myRecords.txt") writer.WriteLine(firstName & " " & lastName & " " & age) writer.Close()

Dim reader As System.IO.StreamReader = System.IO.File.OpenText("myRecords.txt") Dim myInfo As String = reader.ReadLine() Console.WriteLine(myInfo) reader.Close()

'this causes a pause so you can see your program Console.Write("Press enter to continue...") Console.ReadLine() End Sub

End Module

Step 2: Change the values of the variables to your records.

Step 3: Run the program so that it works, and view your .txt file.

Copy and paste your Visual Basic code into a Word document.
Copy and paste your text file contents into the same Word document.

Module Module1

Sub Main() Dim firstName As String = "Brian" Dim lastName As String = "Melson" Dim age As Integer = 39 Dim writer As System.IO.StreamWriter = System.IO.File.CreateText("myRecords.text") writer.WriteLine(firstName & " " & lastName & " " & age) writer.Close() Dim reader As System.IO.StreamReader = System.IO.File.OpenText("myRecords.text") Dim myInfo As String = reader.ReadLine() Console.WriteLine(myInfo) reader.Close() 'this causes a pause so you can see your program Console.Write("Press enter to continue...") Console.ReadLine() End Sub

End Module