0

私は2つのことをしようとしています:

テキスト ファイル ( Books.txt) があり、ListBox. テキスト ファイルには次のように書かれています。

Left Behind,Lahaye,F,7,11.25
A Tale of Two Cities,Dickens,F,100,8.24
Hang a Thousand Trees with Ribbons,Rinaldi,F,30,16.79
Saffy's Angel,McKay,F,20,8.22
Each Little Bird that Sings,Wiles,F,10,7.70
Abiding in Christ,Murray,N,3,12.20
Bible Prophecy,Lahaye and Hindson,N,5,14.95
Captivating,Eldredge,N,12,16
Growing Deep in the Christian Life,Swindoll,N,11,19.95
Prayers that Heal the Heart,Virkler,N,4,12.00
Grow in Grace,Ferguson,N,3,11.95
The Good and Beautiful God,Smith,N,7,11.75
Victory Over the Darkness,Anderson,N,12,16

最後から 3 番目の要素はF、フィクションまたはNノンフィクションのいずれかを示します。アプリケーションがテキスト ファイルを調べ、要素 3 が か かどうかを確認し、書籍のタイトル (最初の要素) のみを に投稿するコードを書き込もうとしてFいNますListBox。

私ListBoxの名前はlstInventoryです。

4

1 に答える 1

2

各行を,配列に分割する必要があります。そこからは簡単です。

For Each line In IO.File.ReadLines("Books.txt")
    Dim values() As String = line.Split(","c)

    If values(2) = "F" Then
        'Fiction
    Else
        'Nonfiction
    End If
Next
于 2012-07-29T22:17:33.240 に答える