Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

过滤指定字符

1970-1-1 08:00| 发布者: 共享| 查看: 1803| 评论: 0

Function FiltString(SourceStr As String, SearchStr As String, Optional ReplaceStr As String = "") As String
Dim I As Integer
FiltString = SourceStr
I = InStr(1, FiltString, SearchStr)
Do While I > 0
FiltString = Mid(FiltString, 1, I - 1) & ReplaceStr & Mid(FiltString, I + 1)
I = InStr(I + Len(ReplaceStr), FiltString, SearchStr)
Loop
End Function

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

过滤指定字符

最新评论

相关分类