原作者:www.upwinder.com 添加时间:2007-09-02 原文发表:2007-08-31 人气:10 来源：未知

---

参数 : 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")

---

• Visual Basic使用技巧 • 编制自已的电话录音小程序 • 使用 ADO 來压缩或修复 Microsoft Access � • 用VB6.0编写磁盘格式化程序 • VB中使用WinSock控件编写网络程序 • VB对低层硬件访问控制 • VB程序实现XP效果的界面 • 用VB创建复杂表格 • 用VB测定可移动驱动器是否准备好 • 在VB中更改SQL Server数据库结构

• 在VB6中将XML传入一个TreeView控件 • VB从图片框控件取得颜色 • 用类来编写数据库程序 • VB技巧-工具栏使用技巧 • 如何使用文件复制对话框 • 在VB5中生成统计图形 • 利用VB6.0实现五线谱作曲工具 • 用RND()函数加密 • 使用Shell指令具有Wait的功能 • 鼠标编程小技巧二则

---

本文章所属分类：首页 → VB