code118a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 39 行

Public Function Find_Remove(ByVal srchString As String, ByVal _
    FndString As String, ByVal strEnd As Integer) As String

  Dim I As Integer, LastChar As Integer, Next_Pos As Integer
  Dim CurrentPos As Integer, LastPos As Integer
  Dim TempString As String
  
  If strEnd > 0 Then
    LastChar = strEnd
  Else
    LastChar = Len(SrchString)
  End If
  TempString = SrchString
  Next_Pos = 0
  Next_Pos = InStr(Next_Pos + 1, TempString, FndString)

  Do Until (Next_Pos = 0) Or (Next_Pos > LastChar)
    TempString = Left(TempString, Next_Pos - 1) & _
    Right(TempString, (Len(TempString) - Len(FndString) - _
    (Next_Pos - 1)))
    LastChar = LastChar - Len(FndString)
    Next_Pos = 0
    Next_Pos = InStr(Next_Pos + 1, TempString, FndString)
  Loop

  Find_Remove = TempString
End Function

Public Sub Main()
  Dim SearchString As String, SearchFor As String
  Dim Position As Integer

  SearchString = "Tips for eating tri-tip steak."
  SearchFor = "tip"
  Debug.Print "SearchString = ", SearchString
  SearchString = Find_Remove(SearchString, SearchFor, 0)
  Debug.Print "SearchString = ", SearchString
End Sub