IReplace()
Author: Jare
Added: 26. joulukuuta 2014 kello 0.27
Edited: 26. joulukuuta 2014 kello 0.27
Category: Merkkijonot
Description
Kuin Replace(), mutta kirjainkoolla ei ole väliä.
Code
Select all1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Function IReplace(haystack$, find$, replace_$)
haystack2$ = Lower(haystack)
find = Lower(find)
position = InStr(haystack2, find)
result$ = ""
old_position= 1
While position
result = result + Mid(haystack, old_position, position-old_position) + replace_$
old_position= position + Len(find)
position = InStr(haystack2, find, old_position)
Wend
result = result + Mid(haystack, old_position)
Return result
EndFunction
|
Comments
No comments. You can be first!
Leave a comment
You must be logged in to comment.