تحفة بديعة
لذا لن ندعها تمر هكذا
نريد من استاذنا القدير تفضلا وكرما وكما اعتدنا منه شرحا مبسطا أمام هذه الاسطر
Private Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String) As Integer
Dim vSearchLine As String, found As Integer
found = InStr(SearchLine, SearchFor)
vSearchLine = SearchLine
If found <> 0 Then
sReplace = 1
vSearchLine = ""
If found > 1 Then vSearchLine = Left(SearchLine, found - 1)
vSearchLine = vSearchLine + ReplaceWith
If found + Len(SearchFor) - 1 < Len(SearchLine) Then _
vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - _
found - Len(SearchFor) + 1)
End If
found = InStr(vSearchLine, SearchFor)
MyString = vSearchLine
Do While found <> 0
sReplace = sReplace + 1
vSearchLine = Left(vSearchLine, found - 1)
vSearchLine = vSearchLine + ReplaceWith
vSearchLine = vSearchLine + Right$(MyString, Len(MyString) - _
found - Len(SearchFor) + 1)
found = InStr(vSearchLine, SearchFor)
Loop
End Function