1 Replies - 2544 Views - Last Post: 11 December 2012 - 06:37 AM Rate Topic: -----

#1 Flintvic   User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 16
  • Joined: 29-October 12

Writing to text file using structure.

Posted 11 December 2012 - 05:41 AM

Hi,this should be an easy question about this inventory program. I am using a structure to write to a text file by date. Now there are two text boxes, a upc text box and a quantity text box. The user inputs upc and quantity and it stores it in an structure. Then I use a if-else statement to seek out the upc within another text file and in the if-else statement is a for loop that stores info and calculations in the structure. Now when I input 2 sets of data with the same upc and write it to text file, it writes both to the file which is supposed to happen but I want to have it only write one upc and the totaled quantity of the same upc. Hope that makes sense?

Basically it appends instead of overwriting the updated upc.
I input 0921115150 as the UPC for both entries and 10 then 12 for the Quantities.
Posted Image
As you can see in the text file it goes by
The last set is the first entry and the first set is the first entry with the updated quantity info in it. I just want the updated info in it if the same upc is being used with multiple quantities.
Posted Image
Imports System.IO
Public Class frmOrderSheet
    Dim Order(-1) As clsInventory
    Public ApparelInfo(-1) As Report
    Public Sales(-1) As FinalSales
    Public intWintQuant As Integer      'Total quantity
    Public decWintSales As Decimal      'Total of sales

    Structure Report
        Dim Upc As String
        Dim Name As String
        Dim Price As Decimal
        Dim Quantity As Integer
        Dim TotalQuantity As Integer
        Dim Sales As Decimal
        Dim Total As Decimal
    End Structure
        Dim Upc As String
        Dim Quantity As String
        Dim Sales As String
        Dim Total As Double
    End Structure

    Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click
        'Validate if text boxes are numeric
        If Not IsNumeric(txtUPC.Text) Or Not IsNumeric(txtQuant.Text) Then
            MessageBox.Show("Please enter only numeric digits.")
            'storing into arrays
            ReDim Preserve ApparelInfo(ApparelInfo.Length)
            With ApparelInfo(ApparelInfo.Length - 1)
                .Upc = txtUPC.Text
                .Quantity = txtQuant.Text
            End With
            Clear() ' calls clear sub
        End If
        'loops the upc array through the class upc for matches and calculates if true
        For i = 0 To (ApparelInfo.Length - 1)
            If Order(0).UPC = ApparelInfo(i).Upc Then
                MessageBox.Show("Item found")
                ApparelInfo(i).Name = Order(0).Item
                ApparelInfo(i).Price = Order(0).Price
                ApparelInfo(i).TotalQuantity += ApparelInfo(i).Quantity
                ApparelInfo(i).Sales += ApparelInfo(i).Quantity * Order(0).Price
                MessageBox.Show(ApparelInfo(i).Upc & " not found")
            End If

    End Sub

    Private Sub frmOrderSheet_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'clear out array
        ReDim Order(-1)
        'check if file exists
        If File.Exists("Order.txt") = True Then
            'read from file
            Dim myfile As StreamReader
            myfile = File.OpenText("Order.txt")
            Do Until myfile.Peek = -1
                ReDim Preserve Order(Order.Length)
                Order(Order.Length - 1) = New clsInventory 'establish New instance Address Of class
                With Order(Order.Length - 1)
                    .UPC = myfile.ReadLine
                    .Item = myfile.ReadLine
                    .Price = myfile.ReadLine
                End With
            'close the data file
        End If
    End Sub

    Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        'Closes the form
    End Sub

    Public Sub Clear()
        'Clears out the OrderSheet form and sets focus
    End Sub

    Private Sub btnView_Click(sender As System.Object, e As System.EventArgs) Handles btnView.Click
    End Sub

    Private Sub btnWrite_Click(sender As System.Object, e As System.EventArgs) Handles btnWrite.Click
        Dim dDate As String
        Dim myfile As StreamWriter

        dDate = dtpCalendar.Text
        'writes the information to text
        myfile = File.CreateText(dDate & ".txt")
        For i As Integer = 0 To ApparelInfo.Length - 1
            With ApparelInfo(i)
            End With
    End Sub
End Class

Is This A Good Question/Topic? 0
  • +

Replies To: Writing to text file using structure.

#2 lar3ry   User is offline

  • Coding Geezer
  • member icon

Reputation: 314
  • View blog
  • Posts: 1,296
  • Joined: 12-September 12

Re: Writing to text file using structure.

Posted 11 December 2012 - 06:37 AM

Once you modify the value, you need to update it in the array that holds all the values, then write out the entire array, overwriting the entire file.
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1