vb.net - r.peek（）> = 0行= r.readline（）

Question

私はvb.netを使用してテキストファイルを読み込み、一致するレコードがあるかどうかを確認し、そのレコードを取り出して書き込みます優れています。

しかし、ピークループでは、ファイルの最後まで読み込みます。私は2つのピークループを持っています - 外側のピークループは項目を探し、それを見つけるために内側のループサーチを行います。

ピークループを停止し、外側ループが停止する場所を継続できますか？これは私のコードの例です。両方の検索ループの外側でforループを実行して、外側のループが停止する場所を続行しますが、どちらかが正しいとは限りません。おかげ

For i = 1 To t_idex 

      rder.BaseStream.Seek(0, IO.SeekOrigin.Begin) 
      rder.DiscardBufferedData() 

      Do While rder.Peek() >= 0 
       line = rder.ReadLine() 
       r_idx += 1 
       st_outer += 1 

       m = Mid(line, 3, 7) 
       P = Mid(line, 19, 7) 
       b= Trim(Mid(line, 34, 14)) 

       If Len(b) = 14 Then 
        Do While rder.Peek() >= 0 
         line2 = rder.ReadLine() 

         m2 = Mid(line2, 3, 7) 
         P2 = Mid(line2, 19, 7) 
         b2 = Trim(Mid(line2, 34, 14)) 

         If b = b2 Then 
          cnt_dups += 1 

         End If 

         r_idx += 1 
        Loop 
       End If 
       i = st_outer 
      Loop 

     Next 

Answer 1

....これがあなたのために何をするか

Dim Lines() As String = File.ReadAllLines("SomeTextFile.txt") 

For LineIndex = 0 To Lines.GetUpperBound(0) 
    Dim Match1 As String = Mid(Lines(LineIndex).Trim, 34, 14) 
    If Match1.Length = 14 Then 
     For Each RemainingLine As String In Lines.Skip(LineIndex + 1) 
      Dim Match2 As String = Mid(RemainingLine.Trim, 34, 14) 
      If Match1 = Match2 Then 
       ' We have a duplicate... 
       DoSomething() 

       ' Resume outer loop 
       ' Comment this line to find all duplicates 
       ' Uncomment this line to short-circuit exit upon finding 
       '  the first duplicate 
       Exit For 
      End If 
     Next 
    End If 
Next 

参考資料を参照してください：

• ReadAllLines
• Skip