strSelectedText = document.selection.Text
If strSelectedText = "" Then 
	alert "Nothing selected. Script quits."
	Quit
Else
	'alert strSelectedText
End If


'regex search pattern:
strREPattern = "<a href=.https.+/(en|us)/.+>"


'how many lines?
yPosStartSelection = document.selection.GetAnchorPointY( eePosLogical )
yPosEndSelection = document.selection.GetBottomPointY( eePosLogical )
LinesSelected = yPosEndSelection-yPosStartSelection


'For Each Line In LineS Do:
LinesArray = split(strSelectedText, vbCRLF)
funcRegExReturn =""
For LineNr = 0 to LinesSelected -1
	currLine = LinesArray(LineNr)
	'alert LineNr & ": " & currline & ": " & strREPattern
	funcRegEx strREPattern, currLine
	'alert funcRegExReturn
	If funcRegExReturn = TRUE Then 
		OutArray = OutArray & Linenr+1 & ": " & currLine 
		If LineNr < LinesSelected -1 Then OutArray = OutArray & vbCRLF
	End If
Next

'TEST:
'alert OutArray



'Write OutArray to new document:
'if not editor.EnableTab then 
'   editor.EnableTab = True 
'end if 
editor.NewFile 
document.write OutArray



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 Function

call funcRegEx x y

If funcRegEx Then alert "OK"

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

Dim 	funcRegExReturn

call funcRegEx x y
If funcRegExReturn Then alert "OK"

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