Make updates(Edit, Delete, Add) and save text file????

[kre1973]

I basically have a ListBox1 in which I list records from a file splitting on a "|" delimiter. When the entry in the Listbox1 is double-clicked it displays the second part of the record array in textbox1.

I'm using a class: Individual.vb to display the data in textbox1.

The file is read using IO.SteamReader. I would now like to be able to add, update and delete records from this file using, I guess StreamWriter??

So, I guess a new file would have to be written to and then kill the existing input file and rename the new file to the input file...
There would have to be a "save file" subroutine or function of some sort..

I hope this all makes sense...

Thanks

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim AlphaFileIndividual As String = "//data/AlphaIndividual.txt"
        Dim alIndividual As New ArrayList
       Dim Individual As New IO.StreamReader(AlphaFileIndividual)
        While Individual.Peek > -1
            Dim Individual_line As String = Individual.ReadLine()
            Dim Ind As New Individuals(Individual_line.Split("|"c))
            alIndividual.Add(Ind)
        End While
        ListBox1.DisplayMember = "Individual1"
        ListBox1.ValueMember = "Individual0"
        ListBox1.DataSource = alIndividual
        Individual.Close()
          End Sub
    Private Sub cmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNew.Click
        txtName.Visible = True
       ''''''Code for New record routine
        ''''''Code for Save File routine
    End Sub
    Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
        ''''''Code for Edit record routine
        ''''''Code for Save File routine
    End Sub
    Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
      ''''''Code for Delete record routine
      ''''''Code for Save File routine
   End Sub
      Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        TextBox1.Text = Replace(ListBox1.SelectedValue.ToString(), Chr(34), "")
    End Sub

Individuals.vb code below

Public Class Individuals
    Private Ind_Elements() As String
    Public Sub New(ByVal ind() As String)
        Ind_Elements = ind
    End Sub
    Public ReadOnly Property Individual0() As String
        Get
            Return Ind_Elements(0)
        End Get
    End Property
    Public ReadOnly Property Individual1() As String
        Get
            Return Ind_Elements(1)
        End Get
    End Property
    Public Property IndividualNo(ByVal idx As Integer) As String
        Get
            Return Ind_Elements(idx)
        End Get
        Set(ByVal Value As String)
            Ind_Elements(idx) = Value
        End Set
    End Property
End Class

 

[ThatRickGuy]

I would load the text file into memory at the start of the app. Use a stream reader to pull the text, parse it, and add it to a data table. Then I would bind the data table to the control. And then at the appropriate time I would write that datatable back to disk with a stream writer.

Although, if you don't have to stick to the | delimited file format, you could just use the Dataset.ReadXML and Dataset.WriteXML methods to handle all of the saving/loading.

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.