次のような情報を持つリスト ボックスで txt ファイルを開こうとしています。
11111\George Baker\825.50
22222\Jane Doe\563.75
分割方式を使用しようとしているので、表示時にデータが分割されます。
リストボックスのデータをテキストファイルとまったく同じように表示する場所がありますが、正しく分割して必要な情報を表示することはできません:
Number: 11111 Name: George Baker Balance: 825.50
Number: 22222 Name: Jane Doe Balance 563.75
これが私がこれまでに持っているコードです:
Public Function GetData() As Boolean
Dim streamer As StreamReader = Nothing
LastError = String.Empty
Dim fields() As String
Try
streamer = OpenText("C:\----accounts.txt")
While Not streamer.EndOfStream
Dim line As String = streamer.ReadLine()
fields = line.Split("\"c)
number = fields(0)
name = fields(1)
balance = fields(2)
End While
lstAccounts.Items.Add("Number: " & fields(0).Trim() &
"Name: " & fields(1).Trim() &
"Balance: $" & fields(2).Trim())
LastError = "File not found"
Return False
Catch ex As Exception
LastError = ex.Message
Return False
Finally
If streamer IsNot Nothing Then streamer.Close()
End Try
Return False
End Function
変えたのがこれです。
これは、アカウント クラスにあります。フォームの読み込み時にリスト ボックスに読み込みたいと思います。
System.IO と System.IO.File の両方をインポートしました。
また、他の例では、多くのファイルパスが「..\」を使用して一部のディレクトリを短縮しているのを見ています。ソリューションと同じフォルダにありますが、それを短縮する方法はありますか? (また、スペースを節約するために上に貼り付けたコードに完全なファイルパスを含めませんでした。長かったです...笑)