首页 > > 程序设计 > VB >

清除字符串中指定的字符

2008-02-23 06:54:05来源：互联网阅读 ()

该函数在字符串 s 中清除 Search（注意：如果 s 为 AAABBB，Search 为 AB。如何？）：
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

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

上一篇：巧截字符串(探讨用InStrRev函数配合Right/Left函数截取字符串)
下一篇：如何对字符串进行加密解密

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有