Update Record Code: Dim line, data(1) As String Dim updateJag As String = txtJagNumber. Text Dim jagNumber As String Dim average As Decimal GetInput(jagNumber, average) Dim record As String NewCSV(jagNumber, average) Dim sr As IO.StreamReader = I0.File.0penText("Average.txt") Dim sw As IO.StreamWriter = 10.File.CreateText("Temp.txt") Do Until sr.EndofStream line = sr.ReadLine data = line.Split(","c) If data(0) = updateJag Then sw.WriteLine(record) Else sw.Writeline(line) End If Loop sr.Close() sw.Close() File. Delete("Average.txt") File.Move("Temp.txt", "Average.txt") Sub GetInput reads values in from textboxes into variables. The inputted value for jagNumber is J00123565. The inputted value for average is 90.20. Function NewCSV created a comma separated value record using the two inputted fields. Walk through the code and show the values for the variables and location pointer as the code is executed. Average.txt Temp.txt J00768567,98.54 J00546344,72.35 J00123565,89.20 J00998877,92.50 updateJag average record line data
Update Record Code: Dim line, data(1) As String Dim updateJag As String = txtJagNumber. Text Dim jagNumber As String Dim average As Decimal GetInput(jagNumber, average) Dim record As String NewCSV(jagNumber, average) Dim sr As IO.StreamReader = I0.File.0penText("Average.txt") Dim sw As IO.StreamWriter = 10.File.CreateText("Temp.txt") Do Until sr.EndofStream line = sr.ReadLine data = line.Split(","c) If data(0) = updateJag Then sw.WriteLine(record) Else sw.Writeline(line) End If Loop sr.Close() sw.Close() File. Delete("Average.txt") File.Move("Temp.txt", "Average.txt") Sub GetInput reads values in from textboxes into variables. The inputted value for jagNumber is J00123565. The inputted value for average is 90.20. Function NewCSV created a comma separated value record using the two inputted fields. Walk through the code and show the values for the variables and location pointer as the code is executed. Average.txt Temp.txt J00768567,98.54 J00546344,72.35 J00123565,89.20 J00998877,92.50 updateJag average record line data
Chapter13: File Input And Output
Section: Chapter Questions
Problem 8PE
Related questions
Question
See attachment for practice problem. It is not graded.
Expert Solution
This question has been solved!
Explore an expertly crafted, step-by-step solution for a thorough understanding of key concepts.
Step by step
Solved in 2 steps with 1 images
Knowledge Booster
Learn more about
Need a deep-dive on the concept behind this application? Look no further. Learn more about this topic, computer-science and related others by exploring similar questions and additional content below.Recommended textbooks for you
EBK JAVA PROGRAMMING
Computer Science
ISBN:
9781337671385
Author:
FARRELL
Publisher:
CENGAGE LEARNING - CONSIGNMENT
Microsoft Visual C#
Computer Science
ISBN:
9781337102100
Author:
Joyce, Farrell.
Publisher:
Cengage Learning,
Programming Logic & Design Comprehensive
Computer Science
ISBN:
9781337669405
Author:
FARRELL
Publisher:
Cengage
EBK JAVA PROGRAMMING
Computer Science
ISBN:
9781337671385
Author:
FARRELL
Publisher:
CENGAGE LEARNING - CONSIGNMENT
Microsoft Visual C#
Computer Science
ISBN:
9781337102100
Author:
Joyce, Farrell.
Publisher:
Cengage Learning,
Programming Logic & Design Comprehensive
Computer Science
ISBN:
9781337669405
Author:
FARRELL
Publisher:
Cengage