vb.netのテキストファイルから行を削除する

Question

予約と支払いのためのシステムを構築しようとしていますが、現在は複数の変数をファイルに保存しています。私がする必要があるのは、設定されたbookingIDに支払いを追加することです。変更された支払い合計をファイルに追加するようにソートしましたが、古いものを削除することはできません。したがって、ファイルを検索すると、顧客が£50を支払った古いものと、£100を支払った最新のものではなく、古いものが最初に見つかる。だから私はファイルから読んで、私はそれからデータで行う必要があるすべてを行うと、その1行のデータを削除し、次に私は新しいデータを追加する方法を知っている。ここでそれを見て、それは私を大いに混乱させました。事前に

おかげ

それはデータを検索し、彼らはたぶん

Dim bookings As String 
    bookings = "E:\Grouse Lodge Bookings\Bookings.txt" 
    bookingidtemp = txtbookingid.Text 
    FileOpen(1, bookings, OpenMode.Input) 
    found = False 
    If temp = True Then 
     If found = False Then 
      Do Until found = True 
       Input(1, custname) 
       Input(1, address1) 
       Input(1, address2) 
       Input(1, cost) 
       Input(1, amount) 
       Input(1, startdate) 
       Input(1, enddate) 
       Input(1, postcode) 
       Input(1, bookingid) 
       Input(1, remaining) 
       If bookingidtemp = bookingid Then 
        txtname.Text = custname 
        txtaddress1.Text = address1 
        txtaddress2.Text = address2 
        txtcost.Text = cost 
        txtstartdate.Text = startdate 
        txtenddate.Text = enddate 
        txtpostcode.Text = postcode 
        txttopay.Text = remaining 
        found = True 
        FileClose(1) 
       Else 

       End If 
      Loop 
     End If 
     If found = False Then 
      MsgBox("Booking not found, please try again") 
      FileClose(1) 
     Else 
      If found = True Then 
       FileOpen(1, bookings, OpenMode.append) 
       custname = txtname.Text 
       address1 = txtaddress1.Text 
       address2 = txtaddress2.Text 
       cost = txtcost.Text 
       amount = txtpaid.Text 
       startdate = txtstartdate.Text 
       enddate = txtenddate.Text 
       postcode = txtpostcode.Text 
       bookingid = txtbookingid.Text 
       cost = txtcost.Text 
       amount = txtpaid.Text 
       paying = remaining - amount 
       remaining = paying 
       amount = cost - remaining 
       WriteLine(1, custname, address1, address2, cost, amount, startdate, enddate, postcode, bookingid, remaining) 
       FileClose(1) 
       MsgBox("Payment added") 

Answer 1

を追加したい金額を入力した後、これは、それを表示する場所の上より多くのコードがあります..... 。

Public Sub rml(ByVal path As String, ByVal ln As Integer) 
    Dim tb As New TextBox 
    tb.Text = My.Computer.FileSystem.ReadAllText(path) 
    Dim str As New List(Of String) 
    Dim i As Integer = 0 
    For Each l In tb.Lines 
     str.Add(tb.Lines(i)) 
     i += 1 
    Next 
    str.RemoveAt(ln - 1) 
    tb.Text = "" 
    For Each h In str 
     tb.Text = tb.Text & h & vbNewLine 
    Next 
    Dim writer As New System.IO.StreamWriter(path) 
    writer.Write(tb.Text) 
    writer.Close() 
End Sub 

例：rml("C:\Users\User1\Desktop\TextEx.txt", 5)は、テキストファイルの5行目を削除します "TextEx"