Module VBModule
Sub Main()
Dim patternStr AS String = "<NUM> <PUBNAME> | <PUBDATE>"
Dim patterns As String() = patternStr.split("<")
Dim patternLen As Integer = patterns.length - 1
For index As Integer = 1 To patternLen
Console.WriteLine(patterns(index).Substring(0, patterns(index).IndexOf(">")))
Next
End Sub
End Module
Result:
NUM
PUBNAME
PUBDATE
No comments:
Post a Comment