Imports System
Imports System.Text.RegularExpressions
Class DollarSymbolChecker
Public Shared Function IncludeDollarSymbolText(ByVal input As String) As Boolean
Dim regex As Regex = New Regex("\$[a-z]+\$", RegexOptions.IgnoreCase)
Dim cleanedText As String = regex.Replace(input, "")
Return Not cleanedText.Contains("$")
End Function
Public Shared Sub Main()
Console.WriteLine(IncludeDollarSymbolText("abc xy $text$ z")) ' ok
Console.WriteLine(IncludeDollarSymbolText("abc xy $ text$ z")) ' space
Console.WriteLine(IncludeDollarSymbolText("abc xy $$ z")) ' empty
Console.WriteLine(IncludeDollarSymbolText("abc 100 $text$ z")) ' ok
Console.WriteLine(IncludeDollarSymbolText("abc $1000 $text$ z")) ' open $
Console.WriteLine(IncludeDollarSymbolText("abc xy $IBM$ z $Microsoft$")) ' ok
Console.WriteLine(IncludeDollarSymbolText("abc xy $F3$ z")) ' include number
Console.WriteLine(IncludeDollarSymbolText("abc xy $text z")) ' missing close $
End Sub
End Class
' run:
'
' True
' False
' False
' True
' False
' True
' False
' False
'
