清除字符串中指定的字符

核心提示：该函数在字符串s中清除Search（注意：如果s为AAABBB，Search为AB，清除字符串中指定的字符，如何？）：FunctionStringCleaner(sAsString,SearchAsString)AsStringDimiAsInteger,resAsStringres=sDoWhileInStr(res

该函数在字符串s中清除Search（注意：如果s为AAABBB，Search为AB。如何？）：
FunctionStringCleaner(sAsString,SearchAsString)AsString
DimiAsInteger,resAsString
res=s
DoWhileInStr(res,Search)
i=InStr(res,Search)
res=Left(res,i-1)&Mid(res,i 1)
Loop
StringCleaner=res
EndFunction

007快速交换整数
可用以下的代码快速交换两个整数（Interger）：
a=axorb
b=axorb
a=axorb->