'========================================

Function zStr_MakeRegexSafe(sInput)

	'DP handles regular expressions 
	'So "$" is handled as 'Matches the end of input' 
	'These have to be 'escaped' by prefixing them with a backward slash (\)
	'So change all occurences of '$' to "\$" etc.

	'Characters to process are....
	'$, (, ), *, +, ., [, ?, ^, {, |

	Dim sOutput

	sOutput = sInput

	sOutput = Replace(sOutput, "$", "\$")
	sOutput = Replace(sOutput, "(", "\(")
	sOutput = Replace(sOutput, ")", "\)") 
	sOutput = Replace(sOutput, "*", "\*") 	  
	sOutput = Replace(sOutput, "+", "\+")
	sOutput = Replace(sOutput, ".", "\.")
	sOutput = Replace(sOutput, "[", "\[")
	sOutput = Replace(sOutput, "?", "\?")
	sOutput = Replace(sOutput, "^", "\^")
	sOutput = Replace(sOutput, "{", "\{")
	sOutput = Replace(sOutput, "|", "\|")		

	zStr_MakeRegexSafe = sOutput

End Function

'========================================