동일한 바늘 사이에 여러 건초 더미가 있음

Question

현재 특정 웹 페이지에서 데이터를 가져 오는 응용 프로그램을 개발하고 있습니다.

<needle1>HAYSTACK 1<needle2> 
<needle1>HAYSTACK 2<needle2> 
<needle1>HAYSTACK 3<needle2> 
<needle1>HAYSTACK 4<needle2> 
<needle1>HAYSTACK 5<needle2> 

그리고 나는 다음과 VB.NET 코드가 있습니다 :

Function GetBetween(ByVal haystack As String, ByVal needle As String, ByVal needle_two As String) As String 
    Dim istart As Integer = InStr(haystack, needle) 
    If istart > 0 Then 
     Dim istop As Integer = InStr(istart, haystack, needle_two) 
     If istop > 0 Then 
      Dim value As String = haystack.Substring(istart + Len(needle) - 1, istop - istart - Len(needle)) 
      Return value 
     End If 
    End If 
    Return Nothing 
End Function 

:

Dim webClient As New System.Net.WebClient 
Dim FullPage As String = webClient.DownloadString("PAGE URL HERE") 
Dim ExtractedInfo As String = GetBetween(FullPage, "<needle1>", "<needle2>") 

GetBetween는 다음과 같은 기능입니다

는이 웹 페이지는 다음과 같은 내용을 가지고 말할 수 있습니다 언급 된 코드를 사용하면 ExtractedInfo는 항상 건초 더미를 가져 오기 때문에 항상 "건초 더미 1"과 같습니다. 발견 된 첫 번째 사건에서부터

제 질문은 : 두 번째, 세 번째, 네 번째 등의 항목을 찾기 위해 일종의 배열처럼 ExtractedInfo를 설정하는 방법입니다. 같은

뭔가 : 사전에

ExtractedInfo(1) = HAYSTACK 1 
ExtractedInfo(2) = HAYSTACK 2 

감사합니다!

Answer 1

편집 : 이것이 실제로 부탁 한 것 같습니다. GetBetween 함수를 각 "바늘"세트에 대해 한 번 호출합니다.

Dim webClient As New System.Net.WebClient 
Dim FullPage As String = webClient.DownloadString("PAGE URL HERE") 
Dim ExtractedInfo As List (Of String) = GetBetween(FullPage, "<needle1>", "<needle2>") 

Function GetBetween(ByVal haystack As String, ByVal needle As String, ByVal needle2 As String) As List(Of String) 
     Dim result As New List(Of String) 
     Dim split1 As String() = Split(haystack, needle).ToArray 
     For Each item In split1 
      Dim split2 As String() = Split(item, needle2) 
      Dim include As Boolean = True 
      For Each element In split2 
       If include Then 
        If String.IsNullOrWhiteSpace(element) = False Then result.Add(element) 
       End If 
       include = Not include 
      Next element 
     Next item 

     Return result 
End Function