Stefan Thoolen .nl | VB6 Function Database

Attribute VB_Name = "modStrReplace"
' This function is downloaded from:
' http://www.stefanthoolen.nl/archive/vb6-functions/
' 
' You may freely distribute this file but please leave all comments, including this one, in it.
' 
' @Author Stefan Thoolen <mail@stefanthoolen.nl>

Option Explicit

''
' This function replaces a string in another string
' Same syntax as the PHP function 'str_replace'
' See also: http://www.php.net/manual/en/function.str-replace.php
' @param    String  search      The string that must be replaced
' @param    String  treplace    The string to replace to
' @param    String  subject     The original string
' @param    Integer count       The amount of replaces to be done (0 is infinite)
' @return   String              The new string
' @author   Stefan Thoolen <mail@stefanthoolen.nl>
Public Function str_replace(search As String, treplace As String, subject As String, Optional count As Integer) As String
    ' I wrote this function but later I found out that replace already existed in VB6
    ' For compatibility reasons I turned this into a wrapper
    If count = 0 Then count = -1
    str_replace = replace(subject, search, treplace, 1, CLng(count))
End Function
Visual Basic 6 function "str_replace"

Go back
