tekst van cijfers scheiden

[erton]

ik moet uit een bestand een waarde lezen, en ik kan die waarde zoeken door het woord dat ervoor staat.
----------------------------------------
PKnaarKW 0,7457

KWnaarPK 1,34102
---------------------------------------------------

ik heb momenteel deze code:

Dim LineInput As String
Dim FoundString As String

Dim TextReader As System.IO.TextReader = New System.IO.StreamReader("c:\tmp\vermogen.txt")

Try

Do While TextReader.Peek <> -1
LineInput = TextReader.ReadLine
If LineInput.StartsWith("PKnaarKW") = True Then
FoundString = LineInput

End If

Loop

Catch ex As Exception
MsgBox(ex.Message)
End Try


FoundString = txtInhoudBestand.Text

---------------------------------
Kan ik nu de tekst van de cijfers scheiden als ik een regel inlees?

Of zou het gemakkelijker zijn om de waarde of een volgende lijn te zetten?

hartelijk dank

 

[Pizara]

Volgens mij eindigde dit topic in een andere thread maar goed ,

Je kan toch gewoon je FoundString als array gebruiken en dan splitten.

Dim LineInput As String
[B]Dim FoundString() As String[/B]

Dim TextReader As System.IO.TextReader = New System.IO.StreamReader("c:\tmp\vermogen.txt")

Try

Do While TextReader.Peek <> -1
LineInput = TextReader.ReadLine
If LineInput.StartsWith("PKnaarKW") = True Then
[B]FoundString = LineInput.Split(" ")[/B]

End If

Loop

Catch ex As Exception
MsgBox(ex.Message)
End Try


[B]txtInhoudBestand.Text = FoundString(1).Text[/B]

 

[erton]

met die aanpassing krijg ik het rapport dat de index buiten de matrixgrenzen ligt.

 

[Pizara]

deed het even uit mijn hoofd.

het moet zijn :

Dim FoundString() As String = Nothing

en txtInhoudBestand.Text = FoundString(1).toString



[Bedenk mij net , zitten er extra enters in die textfile? zoja, die even weghalen , want die kunnen uiteraard niet gesplit worden ]

 

[erton]

mijn probleem is nog steeds niet opgelost. ik kan in foundstring().tostring enkel 0 invullen, want anders heb ik weer dezelfde error.