fork download
  1. Imports System
  2. Imports System.Text.RegularExpressions
  3.  
  4. Public Class Test
  5. Public Shared Sub Main()
  6. Dim myFile AS String = "Name_2019-11-29_D_HPSeries.txt"
  7. Dim bC As String = Regex.Match(myFile, "_([A-Z])_").Groups(1).Value
  8. Console.WriteLine(bc)
  9. End Sub
  10. End Class
Success #stdin #stdout 0.04s 19756KB
stdin
Standard input is empty
stdout
D