1. Determine the first two lines of the new file created by the code below. This exercise refers to the file Justices.txt that contains data about the Supreme Court justices, past and present. Each record contains six fields – first name, last name, appointing president, home state, year appointed, and year they left the court. If they are still on the court, the last field is set to 0. The first two lines of the file are as follows:

 

 

 

 Samuel, Alito, George W. Bush, NJ, 2006, 0

 

 

 

 Henry, Baldwin, Andrew Jackson, PA, 1844

 

 

 

 Dim query = From line Int IO.File.ReadAllLines(“Justices.txt”)

 

 

 

             Let data = line.Split(“,”C)

 

 

 

             Let firstName = data(0)

 

 

 

             Let lastName = data(1)

 

 

 

             Let fullName = firstName & “ “ & lastName

 

 

 

             Let state = data(3)

 

 

 

             Select fullName & “’” & state

 

 

 

 IO.File.WriteAllLines(“NewFile.txt”, query)

 

 

 

 

 

 

 

2. Describe the new file created by the code.

 

 

 

 Dim query = From line In IO.File.ReadAllLines(“Justices.txt”)

 

 

 

             Let data = line.Split(“,”c)

 

 

 

             Let firstName = data(0)

 

 

 

             Let lastName = data(1)

 

 

 

               Let state = data(3)

 

 

 

             Let yrAppointed = CInt(data(4))

 

 

 

             Let fullName = firstName & “ “ & lastName

 

 

 

             Let newLine = state & “, “ & fullName

 

 

 

             Where (yrAppointed >= 1990) And (yrAppointed < 2000)

 

 

 

             Order By yrAppointed

 

 

 

             Select newline

 

 

 

 IO.File.WriteAllLines(“NewFile.txt”, query)

 

 

 

 

 

 

 

3. Determine the output displayed in the text box when the button is clicked.

 

 

 

  Private Sub btnDisplay_Click(…) Handles btnDisplay.Click

 

 

 

    Dim salutation, welcome As String

 

 

 

    Dim sw As IO.StreamWriter = IO.File.CreateText(“Greetings.txt”)

 

 

 

    sw.WriteLine(“Hello”)

 

 

 

    sw.WriteLine(“Aloha”)

 

 

 

    sw.Close()

 

 

 

    Dim sr As IO.StreamReader = IO.File.OpenText(“Greetings.txt”)

 

 

 

    salutation = sr.Readline

 

 

 

    welcome = sr.Readline

 

 

 

    sr.Close()

 

 

 

    txtOutput.Text = welcome

 

 

 

 End Sub

 

 

 

 

 

 

 

4. Identify any errors. Assume that the contents of the Greetings.txt file are:

 

 

 

 Hello

 

 

 

 Aloha

 

 

 

 Bon Jour

 

 

 

 Private Sub btnDisplay_Click(…) Handles btnDisplay.Click

 

 

 

    Dim name, greeting As String

 

 

 

    Dim sr As IO.StreamReader = IO.File.OpentText(“Greetings.txt”)

 

 

 

    name = “NewGreet.txt”

 

 

 

   Dim sw As IO.StreamWriter = IO.CreateText(“name”)

 

 

 

    Do Until sr.EndOfStream

 

 

 

       greeting = sr.Readline

 

 

 

       sw.Writeline(greeting)

 

 

 

    Loop

 

 

 

    sr.Close()

 

 

 

    sw.Close()

 

 

 

 End Sub

 

 

 

 

 

 

 

5. The first two lines of the file AgetAtInaug.txt are

 

 

 

 George Washington, 57

 

 

 

 John Adams, 61

 

 

 

 whereeach record has two fields – name of president and his age when inaugurated. Create an XML file containing these two records

 

 

 

 

 

 

 

6. The CSV file Senate.txt contains a record for each member of the 111th U.S. Senate. (The 111th U. S. Senate was installed in 2009.) Each record contains three fields – name, state, and party affiliation. Some records in the files are

 

 

 

             John McCain, Arizona, R

 

 

 

                 Joseph Lieberman, Connecticut, I

 

 

 

                 Kirsten Gillibrand, New York, D

 

 

 

 (a) Write a program that uses the file Senate111.txt and creates an XML file containing the same information.

 

 

 

 (b) Write a program that uses the XML file from par (a) to display the names, states, and party affiliation of all the senators in the DataGridView in order by state. The two senators from each state should be in order by their first names.