Find and Replace option in string variable

[cssriraman]

Hi all,

I know we can use Replace function, "Replace(expression, find, replace[, start[, count[, compare]]])" to find and replace a char/digit etc.

For example, I want to remove all the symbols, comma, full stop, $ sign, blank space, not printable characters etc.

"I am currently reading "$56 in an hour" Book."

Let say the above sentence is stored in a variable. I need to change it to

Iamcurrentlyreading56inanhourBook

How can I do that?

Pls let me know.

Thanks,

CS.

[Ecniv]

Either
- a list of replace statements.
- a loop through a previously set up array of chars using a loop and replace
- code to go through your string, character by character and compare the characters to see if they are a-z, A-Z, 0-9. Those that are in that range would then be added to an output string.

It would be something like the following...

public function ReplaceAllOtherChars(byval strInput as string) as string
dim strOutput as string, strChar as string
dim lngLen as long, lngPos as long

on error resume next

stroutput = ""
lnglen = len(strinput)
if lnglen>0 then
for lngpos = 1 to lnglen
strchar = mid(strinput,lngpos,1)
if strchar like "[a-z,A-Z,0-9]" then stroutput=stroutput & strchar
next
end if
ReplaceAllOtherChars = stroutput
end function