View source for Remove non-letters from a string

===WinBatch===
<pre>
; Remove non-letters from a string, assuming space as non-letter character.

strString = "15+41-2Hel54lo **1212 Wor2ld! Ho5w Are 6996 Yo7u?"

; Example 1
strClean1 = StrClean (strString, "0123456789+-*/!?.,;:~@ ", "", @TRUE, 1) 
; strClean1 = "HelloWorldHowAreYou"

; Example 2
strClean2 = StrClean (strString, "abcdefghijklmnopqrstuvwxyz", "", @FALSE, 2) 
; strClean2 = "HelloWorldHowAreYou"

; Example 3
objRegExp = ObjectCreate ("VBScript.RegExp")
objRegExp.IgnoreCase = @TRUE
objRegExp.MultiLine = @FALSE
objRegExp.Global = @TRUE
objRegExp.Pattern = "[^a-z]"
strClean3 = objRegExp.Replace(strString, "") 
objRegExp = 0
; strClean3 = "HelloWorldHowAreYou"

Exit
; This code example was written by Detlev Dalitz.
</pre>