Quantcast
Channel: VBForums - Visual Basic .NET
Viewing all articles
Browse latest Browse all 27423

Nobody Seems To Know How To Help

$
0
0
Ive gotten the file to come up in the list box but thats about it


Task
1) A Comma Separated file contains an unknown number of entries. Each entry (record) contains a sales record. The sales record has the following information
SalesClerkID example 12345
Date of Sale 01/01/01
Amount of Sale $125.83
SaleItemSKU 837593

Each field is seprated by commas in this text file. the text file can be assumed to have records already sorted in the order of SalesClerkID

Your task
Record each record
Display on the screen the clerk's ID # and the amount of the sale
At the end of the clerk's sale(befored printing the next clerk's sales) display "Total:xxxxx Count:xxxxx Average:xxxxx" total sales amount, number of sales and the average sale for that clerk
skip one line between clerks
at the very end, print the grand total for all clerks and the average sale amount for all clerks
while you are told the records are alredy in sales clerk order, you dont know how many records or how many clerks, etc

GUI has a button and a listbox for output


txt file
12340,01/01/01,4123.13,876543
12341,01/01/01,123.33,765432
12342,01/01/01,4123.94,654321
12343,01/01/01,41.85,987650
12344,01/01/01,43.83,976541
12345,01/01/01,423.86,976542
12346,01/01/01,412.73,976543
12347,01/01/01,123.68,976544
12348,01/01/01,12.53,976545
12349,01/01/01,23.40,976546

this is what i have
HTML Code:

Public Class Form1
Structure Clerk
Dim ClerkID As String
Dim DOS As String
Dim Amount As Double
Dim SKU As String

End Structure


PrivateSub LstClerks_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstClerks.SelectedIndexChanged





End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Clerks() As String = IO.File.ReadAllLines("E:/Question4.txt")
Dim query = From line In Clerks
Let data = line.Split(","c)
Let ClerkID = data(0)
Let DOS = data(1)
Let Amount = data(2)
Let SKU = data(3)
Select ClerkID, DOS, Amount, SKU
For Each Clerk In query
LstClerks.Items.Add("ID" & Clerk.ClerkID & " " & "Amount of Sale" & Clerk.Amount)

Next


End Sub




End Class


Viewing all articles
Browse latest Browse all 27423

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>