Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim myFile AS String = "Name_2019-11-29_D_HPSeries.txt"
Dim bC As String = Regex.Match(myFile, "_([A-Z])_").Groups(1).Value
Console.WriteLine(bc)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gbXlGaWxlIEFTIFN0cmluZyA9ICJOYW1lXzIwMTktMTEtMjlfRF9IUFNlcmllcy50eHQiCgkJRGltIGJDIEFzIFN0cmluZyA9IFJlZ2V4Lk1hdGNoKG15RmlsZSwgIl8oW0EtWl0pXyIpLkdyb3VwcygxKS5WYWx1ZQoJCUNvbnNvbGUuV3JpdGVMaW5lKGJjKQoJRW5kIFN1YgpFbmQgQ2xhc3M=