[VB.NET] Leggere file di testo e trovare una corrispondenza

[x69asterix]

allora in questo modo leggo un file con diverse righe così strutturato:

S28,10101,A,123D,00133

SE ESEGUO

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath + "\log.txt")

        Dim TestString As String = fileContents
        Dim TestArray() As String = Split(TestString.Replace("""", ""), ",", -1, CompareMethod.Text)
        Me.TextBox1.Text = TestArray(0)
        Me.TextBox2.Text = TestArray(1)
        Me.TextBox3.Text = TestArray(2)
        Me.TextBox4.Text = TestArray(3)
        Me.TextBox5.Text = TestArray(4).Substring(0, 5)

    End Sub

mi ritorna la prima riga del valore corretto,
ma se invece io voglio ricercare all'interno del file solo la riga dove inizia ad esempio A28?
come procedo

[Pirelli72]

Innanzitutto correggerei il codice in questo modo:

Dim fileContents As String = My.Computer.FileSystem.ReadAllText("C:\log.txt")
        Dim TestArray() As String = Split(fileContents.Replace("""", ""), ",", -1, CompareMethod.Text)
        TextBox1.Text = TestArray(0)
        TextBox2.Text = TestArray(1)
        TextBox3.Text = TestArray(2)
        TextBox4.Text = TestArray(3)
        TextBox5.Text = TestArray(4).Substring(0, 5)

ma se invece io voglio ricercare all'interno del file solo la riga dove inizia ad esempio A28?

Che vuol dire? Che potresti avere una file con più righe?

[x69asterix]

un file con più righe

123,45,.....
0m2,66.33
etc
etc

[Pirelli72]

In tal caso il codice va rivisto, ad esempio:

 Dim fileContents As String() = System.IO.File.ReadAllLines("C:\log.txt")
        For Each row As String In fileContents
            If row.StartsWith("A28") Then
                Dim TestArray() As String = Split(row.Replace("""", ""), ",", -1, CompareMethod.Text)
                TextBox1.Text = TestArray(0)
                TextBox2.Text = TestArray(1)
                TextBox1.Text = TestArray(2)
                TextBox1.Text = TestArray(3)
                TextBox1.Text = TestArray(4).Substring(0, 5)
            End If
        Next

[x69asterix]

scusa ma tu l'hai provato quanto scritto?
a me non ritorna nulla?

[Pirelli72]

In tal caso il codice va rivisto, ad esempio:

 Dim fileContents As String() = System.IO.File.ReadAllLines("C:\log.txt")
        For Each row As String In fileContents
            If row.StartsWith("A28") Then
                Dim TestArray() As String = Split(row.Replace("""", ""), ",", -1, CompareMethod.Text)
                TextBox1.Text = TestArray(0)
                TextBox2.Text = TestArray(1)
                TextBox1.Text = TestArray(2)
                TextBox1.Text = TestArray(3)
                TextBox1.Text = TestArray(4).Substring(0, 5)
            End If
        Next

[Pirelli72]

Originariamente inviato da x69asterix
scusa ma tu l'hai provato quanto scritto?
a me non ritorna nulla?

Ovviamente.

Guarda che ho cambiato il path del file...........

[x69asterix]

ma o stai provando ad usare un file scritto diversamente dal mio, o il tuo pc è superdotato.
a me non ritorna nulla.
questo è il formato delle linee del file

"555,AS904,C,5516ZX49,TGH553";

[Pirelli72]

Originariamente inviato da x69asterix
ma o stai provando ad usare un file scritto diversamente dal mio, o il tuo pc è superdotato.
a me non ritorna nulla.
questo è il formato delle linee del file

"555,AS904,C,5516ZX49,TGH553";

A parte che hai già cambiato il formato della linea rispetto al tuo primo post da

S28,10101,A,123D,00133

a

"555,AS904,C,5516ZX49,TGH553";

e comunque sia legge perfettamente, come puoi vedere da uno ScreeShoot, creando un file di testo log.txt in C:\ con al suo interno l'ultima riga che hai postato: "555,AS904,C,5516ZX49,TGH553";

[x69asterix]

bo...
a me non ritorna nessun valore nella textbox

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fileContents As String() = System.IO.File.ReadAllLines("C:\log.txt")
        For Each row As String In fileContents
            If row.StartsWith("555") Then
                Dim TestArray() As String = Split(row.Replace("""", ""), ",", -1, CompareMethod.Text)
                TextBox1.Text = TestArray(0)
           
            End If
        Next

    End Sub