replacing chars in a string 3

[raupe]

Hi all!
Hope you can help me with this:
In the past I had a macro that read a string from screen that maybe had some blanks at the beginning or at the end. I eliminated these blanks with the "trim" command. Now there are underscores ("_") instead of blanks and "trim" does not work any more. Is there any possibility to replace all underscores with blanks in the whole string?
Thanks for your help

 

[calculus]

Sure, I use a loop:

Do While Instr(MyString,"_")<> 0
MyString = Left(MyString,Instr(MyString,"_")-1) & mid(MyString,Instr(MyString,"_")+1,len(MyString))
Loop

Obviously you can use any character in the code to remove it, or change it to a space, or use a variable and put it in a function.

calculus

 

[IknowMe]

Here's the Function I use:

Function strip(changeme as string,stripme as string) as string
pos=instr(changeme,stripme)
while pos<>0
changeme=left(changeme,pos-1)+right(changeme,len(changeme)-pos)
pos=instr(changeme,stripme)
wend
strip=changeme
End Function

Shrek if you see this the credits all yours buddy.