獲取符之間的文本字符串中的

Question

我有音樂列表，看起來像這樣的文本文件：

BeginSong{ 
Song Name 
Artist 
Genre 
}EndSong 

這方面有多個實例。

我想獲取BeginSong{和}EndSong之間的文本，並將歌曲信息 放入字符串數組中。然後，我想將每個實例添加到列表框中作爲藝術家 - 歌曲名稱 （但我確信我可以弄清楚這一點）。我希望這是一個明確的描述。

Answer 1

使用的FileStream

的ReadLine()功能，因爲你已經知道的信息的順序，你應該能夠循環中的所有文件行，並將它們存儲在他們相應的屬性。

僞：

WHILE Reader.Read() 
     Store Line in BeginSongTextVariable 
     Read Next Line 
     Store Line in SongNameVariable 
     Read Next Line 
     Store Line in ArtistNameVariable 
     Read Next Line 
     Store Line in GenreVariable 
     Read Next Line 
     Store Line in EndSongTextVariable 
Add The Above Variables in List 
End While 

Answer 2

您可以使用正則表達式與命名組：

BeginSong{\n(?<song_name>.*)\n(?<artist>.*)\n(?<genre>.*)\n}EndSong 

事情是這樣的：

Imports System.Text.RegularExpressions 
'... 
Dim s As New Regex("BeginSong{\n(?<song_name>.*)\n(?<artist>.*)\n(?<genre>.*)\n}EndSong") 
Dim mc As MatchCollection = s.Matches(inputFile) 
For Each m As Match In mc 
    Dim song_name As String = m.Groups("song_name").Value 
    Dim artist As String = m.Groups("artist").Value 
    Dim genre As String = m.Groups("genre").Value 
    'use or store these values as planned 
Next 

Answer 3

有來自Neolisk一個很好的答案，它使用常用表達。但是，既然您還包含了VB.NET標籤，我將在VB6解決方案中進行一些嘗試。

您可以使用字符串分割功能，和分裂的「目的」，即"BeginSong{"和"}EndSong"

Dim songInfos As String 
Dim firstArray() As String 
Dim secondArray() As String 
Dim thirdArray() As String 
Dim songInfoArray() As String 
Dim i As Integer 
Dim songCounter As Integer 
' to test: 
songInfos = songInfos & "BeginSong{" & vbNewLine 
songInfos = songInfos & "Song Name1" & vbNewLine 
songInfos = songInfos & "Artist1" & vbNewLine 
songInfos = songInfos & "Genre1" & vbNewLine 
songInfos = songInfos & "}EndSong" & vbNewLine 
songInfos = songInfos & "BeginSong{" & vbNewLine 
songInfos = songInfos & "Song Name2" & vbNewLine 
songInfos = songInfos & "Artist2" & vbNewLine 
songInfos = songInfos & "Genre2" & vbNewLine 
songInfos = songInfos & "}EndSong" 

firstArray = Split(songInfos, "BeginSong{") 

songCounter = 0 

ReDim songInfoArray(2, 0) 

For i = 1 To UBound(firstArray) Step 1 
    secondArray = Split(firstArray(i), "}EndSong") 
    thirdArray = Split(secondArray(0), vbNewLine) 
    songInfoArray(0, songCounter) = thirdArray(1) 
    songInfoArray(1, songCounter) = thirdArray(2) 
    songInfoArray(2, songCounter) = thirdArray(3) 
    songCounter = songCounter + 1 
    If i < UBound(firstArray) Then 
     ReDim Preserve songInfoArray(2, songCounter) 
    End If 
Next i 

最後一行後的手錶。注意songInfoArray的結構，這是因爲它是ReDim配有