#language = "VBScript"

FileText = document.selection.Text
If FileText = "" Then
	alert "Nothing selected?" & vbCRLF _
	& "This script works with selected text only."
	Quit
End If

PromptText = "Remove lines containing this search string"
searchStr = prompt(PromptText, "")
If searchStr = "" Then Quit

Lines = Split(fileText, vbCRLF)
For each line in Lines
	funcRegEx searchStr, line
        '//FALSE = line not contains search pattern
        '//TRUE  = line contains the search pattern
	If funcRegExReturn = FALSE Then 
	    resultText = resultText + line + vbCRLF
	End If
Next

'editor.NewFile()
document.writeln(resultText)

Function funcRegEx(needle, haystack)
	funcRegExReturn = FALSE
	Set regEx = New RegExp
	regEx.Pattern = needle
	regEx.IgnoreCase = True
	regEx.Global = True
	If regEx.Test(haystack) Then 
           funcRegExReturn = TRUE
        End If
End Function