txtファイルとリネーム番号の文字列を見つけるには

Question

私は "許容誤差計算機"を作りたい

ユーザーは文字列として入力します。たとえば： "D6"今これを.txtファイルで検索し、次の行を読む必要があります。

Dim Findstring = IO.File.ReadAllText("....\Toleranz0.txt") 

がどのように私は、文字列の文字列の後に次の行を見つけることができます。

は、私はこのようなファイルを読みますか？

は多分：

Findstring.contains("D6") 'gives a Boolean 

は、どのように私は、正しいラインを取得していますか？

Answer 1

String.Split()を使用してアレイにあなたの文字列を変換して "D6" の後の次のインデックスまたは2つのインデックスを見つける：Blorgbeardにより示唆されるようにここで

Private Sub Funcy() 
    Dim Findstring As String = IO.File.ReadAllText("....\Toleranz0.txt") 
    Dim MyCollection() As String = Findstring.Split() 
    Dim result As String = MyCollection(Array.IndexOf(MyCollection, "D6") + 2) 
    MessageBox.Show(result) 
End Sub 

Answer 2

はReadAllLines()を使った例です：

Dim lines() As String = IO.File.ReadAllLines("....\Toleranz0.txt") 
Dim index As Integer = Array.IndexOf(lines, "D6") 
If index <> -1 AndAlso index <= lines.Count - 2 Then 
    Dim targetLine As String = lines(index + 1) 
    ' ... do something with "targetLine" ... 
Else 
    ' either the line was not found, or there was no line after the found line 
End If