從列表框中的記事本中顯示特定行VB.Net

-1

我完全是VB.net的新手，只有幾個星期才學習我正在做一個項目，我需要製作一個使用記事本作爲數據的EPOS系統基礎。我可以使按鈕的值出現在列表框中，但是我有許多按鈕都有不同的值，但每次按下不同的按鈕時，只有文本框中的第一個值出現。 E.G當按下顯示「喜力肯€5.00」的Guiness按鈕時，當Heineken按鈕按下「Heineken€5.00」時顯示從列表框中的記事本中顯示特定行VB.Net

任何幫助非常感謝！

Imports System.IO 

Public Class Form1 
    Private Sub btnHeineken_Click(sender As Object, e As EventArgs) Handles btnHeineken.Click 
     Dim sr As IO.StreamReader = IO.File.OpenText("DATABASE.txt") 
     'File DATABASE.TXT is the the debug folder 

     Dim name As String 

     Dim stock, price As Double 
     name = sr.ReadLine 

     stock = CDbl(sr.ReadLine) 

     price = CDbl(sr.ReadLine) 

     lstBox.Items.Add(name & "" & FormatCurrency(price)) 
     name = sr.ReadLine 

    End Sub 

Private Sub BtnGuiness_Click(sender As Object, e As EventArgs) Handles BtnGuiness.Click 
    Dim sr As IO.StreamReader = IO.File.OpenText("DATABASE.txt") 
    'File DATABASE.TXT is the the debug folder 

    Dim name As String 

    Dim stock, price As Double 
    name = sr.ReadLine 

    stock = CDbl(sr.ReadLine) 

    price = CDbl(sr.ReadLine) 

    lstBox.Items.Add(name & "" & FormatCurrency(price)) 
    name = sr.ReadLine 
End Sub

DATBASE.txt

喜力， 5.00， 20，吉尼斯， 4.50， 50， Bulmers， 5.00， 25，

來源

2015-02-23 Lorraine Ellen Mulcahy

[VB中的記事本數據庫]的可能重複（http://stackoverflow.com/questions/28670892/notepad-database-in-vb） – Heinzi 2015-02-23 15:41:11

使用System.IO.File.ReadAllLines()函數來獲取所有數據在字符串數組中。然後可以使用數組索引來查找特定的行。

注意：您的文本文件在每個項目後必須包含換行符。您發佈的文字似乎沒有。

因此，例如：

Private Sub BtnGuiness_Click(sender As Object, e As EventArgs) Handles BtnGuiness.Click 
    Dim lines = System.IO.File.ReadAllLines("DATABASE.txt") 
    dim Parts = lines(1).Split(","c) '1 means 2nd line 
    Dim name As String 
    Dim stock, price As Double 
    name = Parts(0) 
    stock = CDbl(Parts(1)) 
    price = CDbl(Parts(2)) 

    lstBox.Items.Add(name & "" & FormatCurrency(price)) 
End Sub

這假定文本文件有以下內容：

Heineken, 5.00, 20 
Guiness, 4.50, 50 
Bulmers, 5.00, 25

（注意在每行的末尾ENTER鍵）

這只是基本的概念。在現實世界中，我們不這樣做。另外還有一些檢查應放置在適當的位置，以避免輸入文本格式錯誤導致的異常。爲了簡潔起見，我已經跳過所有這些東西。

來源

2015-02-23 15:38:51 dotNET

從列表框中的記事本中顯示特定行VB.Net

回答

相關問題