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

access自定义Replace函数

2015-4-17 11:20| 发布者: admin| 查看: 1225| 评论: 3|原作者: 大熊|来自: www.office-cn.net

摘要: 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 = ...

一个replace的函数。

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

收藏分享邀请

上一篇：access插入错误代码之省事办法（sub转换为function）下一篇：中文的runcommand 的参数详细说明

发表评论

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

access自定义Replace函数

最新评论

相关分类