MultiReplace Function To Replace Multiple Text With One Line

Hello Every Body

This My MultiReplace Function To Replace Multiple Text With One Line By Using Arrays

PHP Code:

---

Public Function MultiReplace(xExpression As String, xFind As Variant, xReplace As Variant, Optional xStart As Long = 1, Optional xCount As Long = -1, Optional xCompareMethod As VbCompareMethod = vbBinaryCompare) As Variant 
If UBound(xFind) = UBound(xReplace) Then 
Dim i As Integer 
For i = LBound(xFind) To UBound(xFind) 
xExpression = Replace(xExpression, xFind(i), xReplace(i), xStart, xCount, xCompareMethod) 
Next i 
MultiReplace = xExpression 
Else 
MsgBox "Error In Array", vbCritical, "Err" 
MultiReplace = xExpression 
Exit Function 
End If 
End Function 


---

Example

PHP Code:

---

Private Sub Command1_Click() 
Text1.Text = MultiReplace(Text1.Text, Array("Sniper", "vb6"), Array("Sniper.ps", "vb.net")) 
End Sub 


---

All The Best :)