欧非资源网:安全、免费、专业放心的资源下载站! 最新软件|软件分类

您的位置:欧非资源网 > 其他专区 > Access > Replace函数

Replace函数

时间:2018-10-16 00:48作者:admin来源:未知人气:364我要评论(0)

Function fstrTran(ByVal sInString As String, _
sFindString As String, _
sReplaceString As String) As String
Dim iSpot As Integer, iCtr As Integer
Dim iCount As Integer

iCount = Len(sInString)
For iCtr = 1 To iCount
iSpot = InStr(1, sInString, sFindString)
If iSpot > 0 Then
sInString = Left(sInString, iSpot - 1) & _
sReplaceString & _
Mid(sInString, iSpot + Len(sFindString))
Else
Exit For
End If
Next
fstrTran = sInString

End Function

tmtony在 2002/04/08 18:24:00 回复-------------------
我也有个例子,在
http://www.office-cn.net/bbs/dispbbs.asp?boardID=3&RootID=1329&ID=1388
里用到.不过也是借用的

Function ReplaceStr(TextIn, SearchStr, Replacement, CompMode As Integer)

Dim WorkText As String, Pointer As Integer
If IsNull(TextIn) Then
ReplaceStr = Null
Else
WorkText = TextIn
Pointer = InStr(1, WorkText, SearchStr, CompMode)
Do While Pointer > 0
WorkText = Left(WorkText, Pointer - 1) & Replacement & Mid(WorkText, Pointer + Len(SearchStr))
Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr, CompMode)
Loop
ReplaceStr = WorkText
End If
End Function

大熊在 2002/04/08 18:41:00 回复-------------------
好像基本一样啊,只是觉得你的函数名更好记,但是变量命名就没此人来的规范,可读性也要差一些!两者合并以后,归我用啦!:)

Ps.加个CompMode也很实用。

相关阅读 ​access怎么做点击选择学历的效果​access怎么取消冻结字段​access怎么冻结字段​access怎么删除子数据表​access怎么在表格中插入子数据表​access设置快速访问栏在功能区下方显示​access设置快速访问栏在功能区上方显示​access怎么将设计视图加到快速访问栏​access怎么将导出Excel表格加到快速访问栏​access怎么将数据表视图加到快速访问栏

文章评论
发表评论

热门文章 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩

最新文章 ​access怎么做点击选择学历的效果​access怎么取消冻结字段 ​access怎么冻结字段​access怎么删除子数据表​access怎么在表格中插入子数据表​access设置快速访问栏在功能区下方显示

人气排行 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩怎么在Access报表的页面页脚区添加一个计算控件Access 2007、2010、2016三个版本的使用心得Access查询标准(条件)详解电脑没有access怎么办? access文件打不开怎么办?

盖楼回复X

(您的评论需要经过审核才能显示)