CReplaceString
CReplaceString is a function that I decided to code when I was bored. Had no idea what to code so I decided to code an advanced ReplaceString function. The concept is simple, it will replace a specified text in the string with something else.
Original Author: Carlos Rodrigues aka Crazy
Inputs
Public Function CReplaceString(ToFind As String, ReplaceWith As String, ToSearch As String, CaseSensitive As Boolean) As String
Assumptions
All explinations are in the function, but here is the usage:
Say you have a string, lets say UR_String and within that string you have the word or phrase, "replace_Me", and you want to replace that with "im_replaced". This is all you need to do
UR_String = CReplaceString("replace_Me", "im_replaced", UR_String, True)
The case sensitive is the advanced section of this. A normal replace string function would not have this. Could come in handy :)
Returns
The fixed string the replaced text.
Side Effects
None.
Code
Public Function CReplaceString(ToFind As String, ReplaceWith As String, ToSearch As String, CaseSensitive As Boolean) As String
'Alias: Crazy
'CReplaceString Function
'This is a advanced replacestring.
'There are obviously the basic replace
'string options with the now included
'case sensitive.
'Casing being Ex: aKa, AkA, aka
'Dim our variables
Dim FoundLeft As String
Dim FoundRight As String
Dim Found As Integer
'If in the string, get it's first location
If CaseSensitive = True Then
Found = InStr(1, ToSearch$, ToFind$)
ElseIf CaseSensitive = False Then
Found = InStr(1, LCase(ToSearch$), LCase(ToFind$))
End If
'If the string you want to replace
'is not there, Found will = 0, and this
'If/Then statement will be skipped.
'If Found is not equal to 0 (<>) then
'it will enter the If/Then statement
'and follow the rest of the function
If Found <> 0& Then
Do
FoundLeft = Left(ToSearch$, Found - 1)
FoundRight = Mid(ToSearch$, Found + Len(ToFind$), Len(ToSearch$) - Found + Len(ToFind$))
ToSearch$ = FoundLeft & ReplaceWith$ & FoundRight
'Gets next location of string
'that you want to replace
If CaseSensitive = True Then
Found = InStr(Found + 1, ToSearch$, ToFind$)
ElseIf CaseSensitive = False Then
Found = InStr(Found + 1, LCase(ToSearch$), LCase(ToFind$))
End If
Loop Until Found = 0& 'Will exit loop if no longer found
'Set the new string
CReplaceString = ToSearch$
ElseIf Found = 0& Then 'If what you are looking for
'is not in the string then
'it will just keep it the
'same as it was when the
'function was initiated
CReplaceString = ToSearch$
End If
End Function
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.