'Allows parsing header like: '@link: http://punchlinetech.com
Private Sub ParseProjectDocAttributes(Attribute As String) As String
Dim HeaderMatcher As Matcher
Dim HeaderMatcherData As String
HeaderMatcher = Regex.Matcher("(?i)(?:'@" & Attribute & ")(?-i):(?:.*)", ProjectFileTextData)
If HeaderMatcher.Find Then
HeaderMatcherData = HeaderMatcher.Match
HeaderMatcherData = HeaderMatcherData.SubString(HeaderMatcherData.IndexOf(":") + 1)
HeaderMatcherData = HeaderMatcherData.Trim
End If
Return HeaderMatcherData
End Sub