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!
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
'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
Původní komentáře (3)
Obnoveno z Wayback Machine