Jkuehlthau at 19:16, 29 March 2016

2016-03-29T19:16:09Z

← Older revision		Revision as of 19:16, 29 March 2016
Line 2:		Line 2:

	=Specify specific characters to remove or replace=		=Specify specific characters to remove or replace=
	<source lang="~~vbscript~~">		<source lang="vb">
	Function strClean (strtoclean)		Function strClean (strtoclean)
	Dim objRegExp, outputStr		Dim objRegExp, outputStr
Line 20:		Line 20:

	=Remove all characters except specific characters, or a range of characters by allowing specific ranges (eg. a-z, A-Z, 0-9)=		=Remove all characters except specific characters, or a range of characters by allowing specific ranges (eg. a-z, A-Z, 0-9)=
	<source lang="~~vbscript~~">		<source lang="vb">
	Function strClean (strtoclean)		Function strClean (strtoclean)
	Dim objRegExp, outputStr		Dim objRegExp, outputStr

Jkuehlthau: Created page with "Source: http://www.code-tips.com/2009/04/vbscript-string-clean-function-remove.html =Specify specific characters to remove or replace= Function strCl..."

2016-03-29T19:15:55Z

Created page with "Source: http://www.code-tips.com/2009/04/vbscript-string-clean-function-remove.html =Specify specific characters to remove or replace= <source lang="vbscript"> Function strCl..."

New page

Source: http://www.code-tips.com/2009/04/vbscript-string-clean-function-remove.html

=Specify specific characters to remove or replace=
<source lang="vbscript">
Function strClean (strtoclean)
Dim objRegExp, outputStr
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "[(?*"",\\<>&#~%{}+_.@:\/!;]+"
outputStr = objRegExp.Replace(strtoclean, "-")

objRegExp.Pattern = "\-+"
outputStr = objRegExp.Replace(outputStr, "-")

strClean = outputStr
End Function
</source>

=Remove all characters except specific characters, or a range of characters by allowing specific ranges (eg. a-z, A-Z, 0-9)=
<source lang="vbscript">
Function strClean (strtoclean)
Dim objRegExp, outputStr
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "((?![a-zA-Z0-9]).)+"
outputStr = objRegExp.Replace(strtoclean, "-")

objRegExp.Pattern = "\-+"
outputStr = objRegExp.Replace(outputStr, "-")

strClean = outputStr
End Function
</source>

Clean String Functions - Remove Unwanted Characters - Revision history

Jkuehlthau at 19:16, 29 March 2016

Jkuehlthau: Created page with "Source: http://www.code-tips.com/2009/04/vbscript-string-clean-function-remove.html =Specify specific characters to remove or replace= Function strCl..."