• Home
 · 
• String Manipulation
 · 
• String ReplaceTHE FASTEST

String ReplaceTHE FASTEST

This code is a direct replacement for the VB6 Replace function. Obviously, VB 6 users will have very little (if any) use for the function. It is intended for use with older versions of VB that do not have the in-built Replace function. I noticed a similar piece of code released earlier this week, but it only appeared to handle character replacing and not strings. This version will do both and it's pretty tight and fast.

Rate String ReplaceTHE FASTEST

• 1
• 2
• 3
• 4
• 5

(8(8 Vote))

Public Function Replace(sExpression As String, sFind As String, sReplace As String) As String
' Title: Replace
' Version: 1.01
' Author: Leigh Bowers
' WWW:  http://www.esheep.freeserve.co.uk/compulsion
Dim lPos As Long
Dim iFindLength As Integer
' Ensure we have all required parameters
 If Len(sExpression) = 0 Or Len(sFind) = 0 Then
  Exit Function
 End If
 
' Determine the length of the sFind variable
 iFindLength = Len(sFind)
 
' Find the first instance of sFind
 
 lPos = InStr(sExpression, sFind)
 
' Process and find all subsequent instances
 
 Do Until lPos = 0
  sExpression = Left$(sExpression, lPos - 1) + sReplace + Mid$(sExpression, lPos + iFindLength)
  lPos = InStr(lPos, sExpression, sFind)
 Loop
 
' Return the result
 Replace = sExpression
End Function