0

この のように、私のコードが検索したレコードではなく、常に最後のレコードを検索するのはなぜですか8850338005909。

テキストファイルのサンプルデータのコードは次のとおりです。

8501045891528,2271,"ADAMS CNDY ホールズ
HNYLMN100S/36",57.25,36.00,4822,1,100,101,465
8850338001604,2271,"ADAMS CNDY ホールズ
HNYLMN100S/36",57.25,36.00,4822,1,100,101,465
8850338005909,2271,"ADAMS CNDY ホールズ
HNYLMN100S/36",57.25,36.00,4822,1,100,101,465
8850338002519,2312,"CLRTS CNDY クールミント
40S/60",27.75,60.00,7049,1,100,101,465 8850338001000,2313,"アダムスガム
CLRETSTWIN PK14GX2/1",66.50,1.00,4822,1,100,101,470
4804880224138,2315,"BGUIO OIL CKNG
16kg/1",978.00,1.00,6135,1,192,193,639

そして私のコード：

Private Sub Data2()
    Dim text As String = IO.File.ReadAllText("C:\ITEMRTV.txt")
    Dim index As Integer = text.IndexOf(TextBox1.Text)
    Dim Values() As String = Split(text, ",")
    If index >= 0 Then
        ' String is in file, starting at character "index"
        Label1.Text = Values(0) ' now contains first column value,
        Label2.Text = Values(1) ' contains second column, etc.
        Label3.Text = Values(2)
        Label4.Text = Values(3)
        Label5.Text = Values(4)
        Label6.Text = Values(5)
    End If
End Sub
4

1 に答える 1

0

これを試して：

Dim text As String = IO.File.ReadAllText("C:\ITEMRTV.txt")
Dim Values() As String = text.Split(New String() {",", Environment.NewLine}, StringSplitOptions.None)
Dim index As Integer = Array.IndexOf(Values, TextBox1.Text)

If index >= 0 Then
    Label1.Text = Values(index)
    Label2.Text = Values(index + 1)
    Label3.Text = Values(index + 2)
    Label4.Text = Values(index + 3)
    Label5.Text = Values(index + 4)
    Label6.Text = Values(index + 5)
End If

ただし、行と列に分割する必要があります。

Dim text() As String = IO.File.ReadAllLines("C:\ITEMRTV.txt")
Dim s() As String

For Each line As String In text
    s = line.Split(","c)
    If s(0).Equals(TextBox1.Text, StringComparison.CurrentCultureIgnoreCase) _
    AndAlso s.Length > 5 Then
        Label1.Text = s(0)
        Label2.Text = s(1)
        Label3.Text = s(2)
        Label4.Text = s(3)
        Label5.Text = s(4)
        Label6.Text = s(5)
        Exit For
    End If
Next

データを保持するための独自の構造を作成することもできますが、これはより良いオプションです。たとえばDictionary(Of Integer, List(Of String))、最初のフィールドはIDのように見えるため、ファイルごとにaを宣言するか、各フィールドを適切に保持するために独自のクラスを宣言します。

于 2013-02-28T08:57:10.900 に答える