Replace String?

[ -wx- @ 05.09.2003. 14:14 ] @

Da li je moguće utvrditi kraj nekog stringa? Nešto slično kao EOF samo za stringove. Ovaj deo programa bi trebao da pretraži ceo string (frmMain.rtfQuickEdit.Text) i da zameni txtSearch.Text u stringu sa txtReplace.Text.

Code:

Private Sub cmdReplace_Click()
    Dim Position As Long
    Position = 0
While Not EndOfString
    Position = frmMain.rtfQuickEdit.Find(txtSearch, Position, Len(frmMain.rtfQuickEdit))
    With frmMain.rtfQuickEdit
        .SelStart = Position
        .SelLenght = Len(txtSearch)
        .SelText = Replace(frmMain.rtfQuickEdit, txtSearch, txtReplace, , , vbTextCompare)
        .SetFocus
    End With
Loop
End Sub

[ mladenovicz @ 05.09.2003. 14:29 ] @

Replace bi trebao da ti zameni sva pojavljivanja, ukoliko izostavis parametar count -
znaci ne moras da ides kroz string. Znaci ovo bi trebalo da odradi posao:

Code:

frmMain.rtfQuickEdit=Replace(frmMain.rtfQuickEdit, txtSearch, txtReplace)

Ako vec hoces da ides kroz string i imas Position promenljivu, onda ti je EndOfString = (Position = Len(str))

[ -wx- @ 05.09.2003. 14:52 ] @

Hvala na odgovoru, probao sam i radi.