Vb.net 从文本文件中读取信息并显示在列表框中
我试图弄清楚如何让一个表单中的用户在列表框中的另一个表单中写入他们希望看到的信息。基本上,用户会输入他们想要的详细信息(标题、作者、股票、价格、小说或非小说),然后按record details,程序会在文本文件中搜索这些值,然后另一个表单会出现一个列表框,在其中他们会看到所有选定的书籍 以下是我到目前为止的代码,它基本上读取文本文件信息并将其存储到数组中:Vb.net 从文本文件中读取信息并显示在列表框中,vb.net,Vb.net,我试图弄清楚如何让一个表单中的用户在列表框中的另一个表单中写入他们希望看到的信息。基本上,用户会输入他们想要的详细信息(标题、作者、股票、价格、小说或非小说),然后按record details,程序会在文本文件中搜索这些值,然后另一个表单会出现一个列表框,在其中他们会看到所有选定的书籍 以下是我到目前为止的代码,它基本上读取文本文件信息并将其存储到数组中: Dim Title As String Dim Author As String Dim Stock As Int
Dim Title As String
Dim Author As String
Dim Stock As Integer
Dim Price As Double
Dim Fiction As String
Dim NonFiction As String
Private Sub btnRecord_Click(sender As System.Object, e As System.EventArgs) Handles btnRecord.Click
''Read the information into a string''
Dim objReader As New StreamReader("C:\Users\Books.txt")
Dim fileString As String = objReader.ReadToEnd()
objReader.Close()
objReader.Dispose()
''Concert string into array''
Dim Array As Char() = fileString.ToCharArray()
Array(0) = CChar("BookName")
''Declare the string to hold the value''
Dim resultString As String = ","
''Increment each item in the string''
Dim curChar As Char
For i As Integer = 0 To (Array.Length - 1)
curChar = Array(i)
If (Char.IsLetterOrDigit(curChar)) Then
Array(i) = Chr(Asc(curChar) + 1)
End If
Next
''Conver the array back to string''
Dim newString As String = New String(Array)
''Hide the details form when book inventory runs''
Me.Hide()
''display inventory form''
frmInventory.Show()
End Sub
为了澄清,用户输入 将标题设置为字符串 将作者设置为字符串 将股票变暗为整数 双倍价格 朦胧的小说如弦 暗淡的非虚构的字符串 然后您可以搜索文件“C:\Users\Books.txt”中的数据吗 因为,假设您是将所有书籍添加到文本文件的人,并且假设您将每本书放在具有相同属性的行上,即 书名、作者、价格等 下一本书。。。。等等 那我不明白你为什么不做这样的事
'Storing All Book Information Into One Object
Public Structure BookDetails
Dim Title As String
Dim Author As String
Dim Stock As Integer
Dim Price As Double
Dim Fiction As String
Dim NonFiction As String
End Structure
sub ...
Dim theObjContents as new ArrayList
Using objReader as new StreamReader("C:\Users\Books.txt")
while objReader.endofstream = false
theObjContents.add(objReader.readline)
end while
End Using
For each line in theObjContents
'Check what you want
if bookdetails.Title = line.split(whatever your delimiting character is").item(0)
next
end sub
我不确定这是否能回答任何问题,如果我完全偏离了你的要求,请告诉我