敬业的IT人 互联网 佚名 2008-4-17 17:14:26

参数:1：要检查的字串[准备移除其中某些字符]
2：要移除的字符(数字/中英文)

程序码
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

返回值移除某些字符后的字串

实例:
我想移除Text1中的字符"A"
Text1=StringCleaner(Text1,"A")

最新文章

通往Internet的捷径---捷径档的结构[04-17]

如何实现VB程序登录admin888加密[04-17]

截取屏幕图像[04-17]

读写INI文件的四个函数[04-17]

计算两个日期间的工作日[04-17]

用VisualBasic设计个性化文件夹图标[04-17]

相关文章