Rekao bih da se ovde malo mešaju pojmovi. Replace funkcija menja bilo koji niz u odabranom stringu u neki drugi niz. Niz može biti i slovo i reč i rečenica, tako da nema govora o menjanju slovo po slovo, niti ima potrebe za korišćenjem MID funkcije. Ako je potrebno odraditi višestruki Replace, mislim da ne postoji ugrađena u VB-u za tako nešto, ali ne bi trebalo da bude problem da se napravi funkcija. Eto i sam kažeš da si napravio funkciju koja to radi. Ne znam kako si to odradio, potšo nisi postovao rešenje, što bi bilo jako lepo od tebe, ali se nadam da nisi išao slovo po slovo. Evo kako bih ja to uradio.
Code:
Private Function MultipleReplace(sText As String, sFindWhat As String, sReplaceWith As String, sDelimiter As String) As String
Dim I As Long
Dim sFindWhatArray() As String
Dim sReplaceWithArray() As String
sFindWhatArray = Split(sFindWhat, sDelimiter)
sReplaceWithArray = Split(sReplaceWith, sDelimiter)
For I = LBound(sFindWhatArray) To UBound(sFindWhatArray)
sText = Replace(sText, sFindWhatArray(I), sReplaceWithArray(I))
Next I
MultipleReplace = sText
End Function
A poziva se naravno ovako
Code:
Private Sub cmdTest_Click()
MsgBox MultipleReplace("elitesecurity.org", ".,e,y", "1,2,3", ",")
End Sub
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti