A "String Replacement" Function
I know there is the
replace(text1.text,"Jack","Jill")
in VB6 which would find all the words Jack and replace them with Jill in text1, but how can I do this in VB5?
I want to be able to put symbols in general sentences, and replace the symbols with specific data. such as:
Thats a great pass from #!
He passes to # who sets up a shot!
Original Author: MilkTin
Code
'Explainaion - http://go.to/cyberprogrammer
Private Sub cmdReplace_Click()
Text1.Text = pReplace(Text1.Text, txtFind, txtReplace)
End Sub
Public Function pReplace(strExpression As String, strFind As String, strReplace As String)
Dim intX As Integer
If (Len(strExpression) - Len(strFind)) >= 0 Then
For intX = 1 To Len(strExpression)
If Mid(strExpression, intX, Len(strFind)) = strFind Then
strExpression = Left(strExpression, (intX - 1)) + strReplace + Mid(strExpression, intX + Len(strFind), Len(strExpression))
End If
Next
End If
pReplace = strExpression
End Function
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.