Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim input As String = "17. Specific heat of certain element is 0.064, its approximate atomic mass is" & vbCrLf &
"1) 100 U 2) 10 U 3) 20 U 4) Both 2) and 3)"
Dim regex As Regex = New Regex("(?<=\t)[1-4]\)")
Dim result As String = regex.Replace(input, "#")
Console.WriteLine(result)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKRGltIGlucHV0IEFzIFN0cmluZyA9ICIxNy4JIFNwZWNpZmljIGhlYXQgb2YgY2VydGFpbiBlbGVtZW50IGlzIDAuMDY0LCBpdHMgYXBwcm94aW1hdGUgYXRvbWljIG1hc3MgaXMiICYgdmJDckxmICYKIjEpIDEwMCBVCTIpIDEwIFUJMykgMjAgVQk0KSAgQm90aCAgMikgYW5kIDMpIgpEaW0gcmVnZXggQXMgUmVnZXggPSBOZXcgUmVnZXgoIig/PD1cdClbMS00XVwpIikKRGltIHJlc3VsdCBBcyBTdHJpbmcgPSByZWdleC5SZXBsYWNlKGlucHV0LCAiIyIpCgpDb25zb2xlLldyaXRlTGluZShyZXN1bHQpCglFbmQgU3ViCkVuZCBDbGFzcw==