Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim R As Regex = New Regex(" \( " & _
" (?> " & _
" [^()]+ " & _
" | " & _
" \( (?<DEPTH>) " & _
" | " & _
" \) (?<-DEPTH>) " & _
" )* " & _
" (?(DEPTH)(?!)) " & _
" \) ", _
RegexOptions.IgnorePatternWhitespace)
Dim str As String = R.Replace("1.0 (Mac OS X Mail 9.0 \(3083\))", "")
Console.WriteLine(str)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKUHVibGljIENsYXNzIFRlc3QKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQoJCSAgICBEaW0gUiBBcyBSZWdleCA9IE5ldyBSZWdleCgiIFwoICAgICAgICAgICAgICAgICAgICIgJiBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICIgICAoPz4gICAgICAgICAgICAgICAgIiAmIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgIiAgICAgICBbXigpXSsgICAgICAgICAiICYgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAiICAgICB8ICAgICAgICAgICAgICAgICIgJiBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICIgICAgICAgXCggKD88REVQVEg+KSAgIiAmIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgIiAgICAgfCAgICAgICAgICAgICAgICAiICYgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAiICAgICAgIFwpICg/PC1ERVBUSD4pICIgJiBfCiAgICAgICAgICAgICAgICAgICAgICAgICAgICIgICApKiAgICAgICAgICAgICAgICAgIiAmIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgIiAgICg/KERFUFRIKSg/ISkpICAgICAiICYgXwogICAgICAgICAgICAgICAgICAgICAgICAgICAiIFwpICAgICAgICAgICAgICAgICAgICIsIF8KICAgICAgIFJlZ2V4T3B0aW9ucy5JZ25vcmVQYXR0ZXJuV2hpdGVzcGFjZSkKICAgIAlEaW0gc3RyIEFzIFN0cmluZyA9IFIuUmVwbGFjZSgiMS4wIChNYWMgT1MgWCBNYWlsIDkuMCBcKDMwODNcKSkiLCAiIikKICAgIAlDb25zb2xlLldyaXRlTGluZShzdHIpCglFbmQgU3ViCkVuZCBDbGFzcw==