Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步，快速開(kāi)始

access自定義Replace函數(shù)

2015-4-17 11:20| 發(fā)布者: admin| 查看: 1245| 評(píng)論: 3|原作者: 大熊|來(lái)自: www.mzhfr.cn

摘要: 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 = ...
一個(gè)replace的函數(shù)。

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


發(fā)表評(píng)論

最新評(píng)論

引用 tmtony 2002-4-8 18:24
我也有個(gè)例子，在
http://www.mzhfr.cn/bbs/dispbbs.asp?boardID=3&RootID=1329&ID=1388
里用到.不過(guò)也是借用的

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-4-8 18:41
好像基本一樣啊，只是覺(jué)得你的函數(shù)名更好記，但是變量命名就沒(méi)此人來(lái)的規(guī)范，可讀性也要差一些！兩者合并以后，歸我用啦！：）

Ps.加個(gè)CompMode也很實(shí)用。
[此貼子已經(jīng)被大熊于2002-4-8 10:41:14編輯過(guò)]

引用 tmtony 2002-4-8 18:43
可以，反正也不是我的，順?biāo)饲椋贿^(guò)你要再拿幾個(gè)好的函數(shù)出來(lái)交換 ：）

查看全部評(píng)論(3)

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2025-7-17 06:04 , Processed in 0.085696 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回頂部