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

EBK JAVA PROGRAMMING
9th Edition
ISBN:9781337671385
Author:FARRELL
Publisher:FARRELL
Chapter13: File Input And Output
Section: Chapter Questions
Problem 8PE
icon
Related questions
Question

See attachment for practice problem. It is not graded.

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)
= 10.File.OpenText("Average.txt")
I0.File.CreateText("Temp.txt")
Dim sr As IO.StreamReader
Dim sw As IO.StreamWriter
Do Until sr. EndofStream
line = sr. ReadLine
data = line.Split(","c)
If data(0)
sw. Writeline (record)
updateJag Then
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 JO0123565.
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
JO0546344,72.35
J00123565,89.20
J00998877,92.50
updateJag
average
record
line
data
Transcribed Image Text: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) = 10.File.OpenText("Average.txt") I0.File.CreateText("Temp.txt") Dim sr As IO.StreamReader Dim sw As IO.StreamWriter Do Until sr. EndofStream line = sr. ReadLine data = line.Split(","c) If data(0) sw. Writeline (record) updateJag Then 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 JO0123565. 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 JO0546344,72.35 J00123565,89.20 J00998877,92.50 updateJag average record line data
Expert Solution
steps

Step by step

Solved in 2 steps with 1 images

Blurred answer
Knowledge Booster
Events
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.
Similar questions
  • SEE MORE QUESTIONS
Recommended textbooks for you
EBK JAVA PROGRAMMING
EBK JAVA PROGRAMMING
Computer Science
ISBN:
9781337671385
Author:
FARRELL
Publisher:
CENGAGE LEARNING - CONSIGNMENT
Microsoft Visual C#
Microsoft Visual C#
Computer Science
ISBN:
9781337102100
Author:
Joyce, Farrell.
Publisher:
Cengage Learning,
Programming Logic & Design Comprehensive
Programming Logic & Design Comprehensive
Computer Science
ISBN:
9781337669405
Author:
FARRELL
Publisher:
Cengage