Imports System.Text.RegularExpressions
Module Program
Sub Main()
Dim text As String = "Hello (remove this) from the future (and this too)"
' Step 1: Remove parentheses and their content (non-greedy)
Dim cleaned As String = Regex.Replace(text, "\([^)]*\)", "")
' Step 2: Collapse multiple spaces into one
cleaned = Regex.Replace(cleaned, "\s+", " ").Trim()
Console.WriteLine("Original: " & text)
Console.WriteLine("Cleaned : " & cleaned)
End Sub
End Module
' run:
'
' Original: Hello (remove this) from the future (and this too)
' Cleaned : Hello from the future
'