Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
Go Back  Xtreme Visual Basic Talk > > > Need some helpp concerning a VB project. (csvStock.Txt)


Reply
 
Thread Tools Display Modes
  #1  
Old 07-13-2009, 01:04 PM
VictorCampudoni VictorCampudoni is offline
Newcomer
 
Join Date: Jul 2009
Posts: 8
Default Need some helpp concerning a VB project. (csvStock.Txt)


I am my wits end. I have been toying with this code for class and I am stuck. Every time I run the program it shows what I placed within the list box, however that is it. been on this for nearly two days and I need a fresh set of eyes to guide me into the right direction. Please help.

Imports System.IO 'Allows me to not have to put .IO to specify where my class is located
Public Class Form1

'Victor Campudoni
'Unit 5 Assignment
'7/11/09


Private Sub btnDisplayStocks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplayStocks.Click


Dim fmtStr2 As String = "{0, -16} {1, -10}{2, -14}{3, -14}{4, -11}" ' formats output by zones for my arrays and their records.

Dim str() As String = IO.File.ReadAllLines("csvSTOCKS.TXT") 'ReadAllLines taught to me by Kenneth Haugland from MSDN it reads
' every line a long with its records into the array dividing each line with records into a different element.

InitListView() 'sub component which is called.

Dim count As Integer ' declared the variable count.
count = str.GetUpperBound(0) 'gets my upper bound then assigns it to count so I can use for counter.


For i As Integer = 0 To count 'counts from 0 to whatever value count gives then assigns this to i.
' For i As Integer = 0 To str.Count - 1
' another way using the .Count with this way you would not need to declare count, or
' use getupperbound as shown above. Shown to me by Kenneth Haugland from MSDN.
Dim csvData = (str(i).Split(CChar(","))) 'as the For...next loops executes the variable i changes, in this case from 0-4 these
'are placed in str(i) giving us our different elements str(0), str(1), str(2), str(3), str(4). which in the next line are then
'outputted to line1 which is put into the elements of the array.
Dim line1 As String = (String.Format(fmtStr2, csvData(0), csvData(1), csvData(2), csvData(3), csvData(4)))
lstOutput.Items.Add(line1) 'each time this runs it adds a line of with its records to the listbox.

Next
End Sub



Private Sub InitListView()
lstOutput.Items.Clear()
Dim fmtStr1 As String = "{0, -16}{1, -12} {2, -10} {3, -12} {4, -11}" 'format for my top line of labels.
Dim fmtStr As String = "{0, -10} {1, 11} {2, 10} {3, 12} {4, 11}" 'format for my second line of labels
lstOutput.Items.Add("_________________________________________________ ______________") 'creates a way to underline or create lines in my listbox.
lstOutput.Items.Add("")
lstOutput.Items.Add(String.Format(fmtStr1, "", "Number", "Date", "Purchase", "Current")) 'my top labels being formatted by zone.
lstOutput.Items.Add(String.Format(fmtStr, "Stock", "of Shares", "Purchased", "Price/Share", "Price/Share")) 'my second line of labels being formatted.
lstOutput.Items.Add("_________________________________________________ ______________")
lstOutput.Items.Add("")
End Sub


Private Sub btnAddStock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddStock.Click 'event procedure that enables me to add a stock.

Dim message As String 'declared a variable.

If (TxtStock.Text <> "") And (txtPrice.Text <> "") And (txtNumberShares.Text <> "") And _
(txtDatePurchase.Text <> "") And (TxtPurchasePrice.Text <> "") Then 'if all conditions met it it executes everything in its statement area.
'tihs allows the program to make sure the textboxes have the correct information in them if it does
'not have the correct information the else is executed.
Dim sw As StreamWriter = File.AppendText("csvSTOCKS.TXT") 'uses AppendText to add data.

Dim stock As String = TxtStock.Text 'variables declared and initialized using the textboxes.
Dim price As String = TxtPurchasePrice.Text
Dim numberOfShares As String = txtNumberShares.Text
Dim datePurchased As String = txtDatePurchase.Text
Dim purchasePrice As String = TxtPurchasePrice.Text
Dim lineOfText As String

lineOfText = (stock & "," & numberOfShares & "," & datePurchased & "," & price & _
"," & purchasePrice)
'lineOfText is used to form Comma separated values(CSV) in a string.
sw.WriteLine(lineOfText) 'because of the AppendText used earlier that we initialized "sw" it allows
'us to add information to the file when we use sw.WriteLine.

sw.Close() 'closes are file
TxtStock.Clear() 'clears our texboxes.
TxtPurchasePrice.Clear()
txtNumberShares.Clear()
txtDatePurchase.Clear()
TxtPurchasePrice.Clear()
TxtStock.Focus()

MessageBox.Show("Stock, Price, Number of Shares, Date of Purchase, and Purchase Price have been added to the file.")
'displays a message when done.
Else 'else is executed when the condition is not met and it gives a message.
message = "You must enter all of the information into the required fields."
MessageBox.Show(message, "Information Incomplete") 'uses the MessageBox method to do this.

End If

End Sub


Private Sub btnUpdateStock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdateStock.Click
'Update stocks on the file, and has a sub statement call within.
Dim message As String
If TxtStock.Text <> "" Then 'if the textbox has anything other than a space it starts the statements.

If File.Exists("csvSTOCKS.TXT") Then 'checks to see if teh file exist.
ChangeStockInfo() 'sub procedure call statement.
Else 'if the file does not exist it goes to the else and gives messages.
message = "Either no file has yet been created or "
message = message & "the file is not where expected."
MessageBox.Show(message, "File Not Found.")
End If
Else ' with the first IF this is the else that tells you stock textbox is empty.
MessageBox.Show("You must enter a stock.", "Information is imcomplete")
End If
TxtStock.Focus() 'puts the cursor in the stock textbox.
End Sub




Sub ChangeStockInfo() 'sub procedure for changing stocks info.


Dim fmtStr2 As String = "{0, -16} {1, -10}{2, -14}{3, -14}{4, -11}" 'format by zones

Dim str() As String = IO.File.ReadAllLines("csvSTOCKS.TXT") 'ReadAllLines into the str() array.



For i As Integer = 0 To str.Count - 1 'another way to get our upperbound For...Next loop used here to show two different
' ways to do the same thing. .Count will count the number of elements in str() array.
'However since it adds the actual number "5" instead of the upper subscript (4) we must subtract 1 so it
'counts 0-4, instead of 0-5.
Dim csvData = (str(i).Split(CChar(","))) 'see previous comments.
Dim line1 As String = (String.Format(fmtStr2, csvData(0), csvData(1), csvData(2), csvData(3), csvData(4)))



If (TxtStock.Text = csvData(0)) Then 'created a condition if textbox equals the element then start statements.
MySub()
End If


Dim sw As StreamWriter = File.AppendText("TEMP.TXT") 'appends the information back to the file
sw.WriteLine((csvData(0) & "," & csvData(1) & "," & csvData(2) & "," & csvData(3) & _
"," & csvData(4))) 'puts the information back in as one line with all 5 records.
sw.Close()

Next
End Sub




Sub MySub()
Dim stock As String = "" 'variables
Dim price As String = ""
Dim numberOfShares As String = ""
Dim datePurchased As String = ""
Dim purchasePrice As String = ""
Dim lineOfText As String = ""

stock = TxtStock.Text 'initialize variables to the textboxes
numberOfShares = txtNumberShares.Text
datePurchased = TxtPurchasePrice.Text
purchasePrice = TxtPurchasePrice.Text
price = TxtPurchasePrice.Text


Dim sw As StreamWriter = File.AppendText("TEMP.TXT") 'AppendText is used so we can add text, it also creates a file.

lineOfText = stock & "," & numberOfShares & "," & datePurchased & "," & purchasePrice & _
"," & price 'use variables here so I can get my input from the textboxes instead of from the
'elements of the array.
sw.WriteLine(lineOfText) 'writes whats in lineOfText to the text file.

sw.Close()


End Sub


Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click
TxtStock.Clear() 'clears our texboxes.
TxtPurchasePrice.Clear()
TxtNumberShares.Clear()
TxtDatePurchase.Clear()
TxtPurchasePrice.Clear()
lstOutput.Items.Clear()
End Sub
End Class

Again maybe you can see what I cannot. Thanks.
Reply With Quote
  #2  
Old 07-13-2009, 05:22 PM
VictorCampudoni VictorCampudoni is offline
Newcomer
 
Join Date: Jul 2009
Posts: 8
Default

Never Mind I figured it out.
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump

Advertisement:





Free Publications
The ASP.NET 2.0 Anthology
101 Essential Tips, Tricks & Hacks - Free 156 Page Preview. Learn the most practical features and best approaches for ASP.NET.
subscribe
Programmers Heaven C# School Book -Free 338 Page eBook
The Programmers Heaven C# School book covers the .NET framework and the C# language.
subscribe
Build Your Own ASP.NET 3.5 Web Site Using C# & VB, 3rd Edition - Free 219 Page Preview!
This comprehensive step-by-step guide will help get your database-driven ASP.NET web site up and running in no time..
subscribe
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt) Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
 
Need some helpp concerning a VB project. (csvStock.Txt)
Need some helpp concerning a VB project. (csvStock.Txt)
 
-->