移除字串中不要的字符--IT学习网——资源丰富的计算机教程库




庞大资源库的计算机教程网站！

		设为首页加入收藏总编信箱
投稿或申请专栏请先 [登陆]

首页	┊操作系统	┊程序设计	┊图形图像	┊媒体动画	┊机械电子	┊WEB开发	┊数据库	┊办公系列	┊路由技术	┊网络原理	┊网络应用┊
	┊认证考试	┊安全技术	┊

		首页>程序设计>VB专区>编程技巧>正文

资料搜索

Google搜索


	▍返回上级列表

移除字串中不要的字符

作者：本站收集日期：2005-8-4 11:35:51

字号选择〖大中小〗/ 双击滚屏单击停止

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

程序码
Function StringCleaner(s As String, Search As String) As String
Dim i As Integer, res As String
res = s
Do While InStr(res, Search)
i = InStr(res, Search)
res = Left(res, i - 1) & Mid(res, i + 1)
Loop
StringCleaner = res
End Function

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

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

上一篇：通往 Internet 的捷径---捷径档的结构下一篇：Visual Basic 实现某一天的下/上一个星期几是那一天

[发送给好友] [关闭窗口] [返回顶部] 转载请注明来源：www.it00.com


	特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

	责任编辑：原点	投稿作者：本站收集
	信息来源：网络	录入时间： 2005-8-4 11:35:51

关于我们 - 广告服务 - 版权申明 - 网站地图 - 联系方式 - 总编信箱 - 会员投稿



		Copyright ©2005 - 2008 IT00.COM，All Rights Reserved