vb.net - r.peek()> = 0 line = r.readline()

Question

vb.net을 사용하여 텍스트 파일을 읽고 일치하는 레코드가 있는지보고 해당 레코드를 선택하여 쓰기 뛰어나다.

그러나 peek 루프를 사용하면 파일이 끝날 때까지 파일을 읽습니다. 나는 2 peek loop를 가지고있다. - outer peek loop는 아이템을 찾는다. inner loop search는 그것을 찾는다.

peek 루프를 중지하고 외부 루프가 멈출 수 있습니까? 이것은 나의 코드 예제이다. 두 외부의 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