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

Database System Concepts
7th Edition
ISBN:9780078022159
Author:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Chapter1: Introduction
Section: Chapter Questions
Problem 1PE
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
Recommended textbooks for you
Database System Concepts
Database System Concepts
Computer Science
ISBN:
9780078022159
Author:
Abraham Silberschatz Professor, Henry F. Korth, S. Sudarshan
Publisher:
McGraw-Hill Education
Starting Out with Python (4th Edition)
Starting Out with Python (4th Edition)
Computer Science
ISBN:
9780134444321
Author:
Tony Gaddis
Publisher:
PEARSON
Digital Fundamentals (11th Edition)
Digital Fundamentals (11th Edition)
Computer Science
ISBN:
9780132737968
Author:
Thomas L. Floyd
Publisher:
PEARSON
C How to Program (8th Edition)
C How to Program (8th Edition)
Computer Science
ISBN:
9780133976892
Author:
Paul J. Deitel, Harvey Deitel
Publisher:
PEARSON
Database Systems: Design, Implementation, & Manag…
Database Systems: Design, Implementation, & Manag…
Computer Science
ISBN:
9781337627900
Author:
Carlos Coronel, Steven Morris
Publisher:
Cengage Learning
Programmable Logic Controllers
Programmable Logic Controllers
Computer Science
ISBN:
9780073373843
Author:
Frank D. Petruzella
Publisher:
McGraw-Hill Education