Visual Basic - Hledání v textu – Visual Basic – Fórum – Programujte.com

Ahoj, potřeboval bych pomoct s jedním programem co dělám. Mám určitý text ve kterém chci vyhledat určité slovo které to nahradí jiným slovem (to jsem zatím zvládl) ale to mi pouze provede akci na první slovo v textu které to najde a né na ty ostatní tak se ptám jak to mám udělat aby mi to našlo a nahradilo všechna určená slova v textu. Předem dík za odpověd :)

 Zdrojový kód:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim location As Integer
        Dim zaklad, search, replace As String
       
        zaklad = TextBox1.Text
        search = "Neco"
        replace = "Něco"
        location = TextBox1.Text.IndexOf(search)
        
        If location = -1 Then
            
        Else
            TextBox1.Text = zaklad.Remove(location, search.Length).Insert(location, replace)
        End If

    End Sub

Pokud bys to chtěl dělat takhle, tak bys to mohl dát do smyčky. A pak by místo String.IndexOf(value) byla lepší varianta String.IndexOf(value, startIndex).

Ale jinak prostě novy = puvodni.Replace(oldValue, newValue)

#1 Stuky
… a proč ne třeba takto … (!?) …   
Dim myText$
Private Function Change(ByRef Vstup As String, _
                      ByRef Hledany As String, _
                       ByRef Meneny As String, _
                         ByRef Styl As VbCompareMethod, _
               Optional ByRef Start As Variant, _
                 Optional ByRef Max As Variant, _
              Optional ByRef nPocet As Variant) As String
Dim Lm&, Lz&, La&, ss&
    nPocet = 0
    If IsMissing(Start) Then Start = 1
    Change = Vstup
        Lm = Len(Hledany)
        Lz = Len(Meneny)
        La = Len(Change)
        ss = InStr(Start, Change, Hledany, Styl)
        If IsMissing(Max) Then
            Do Until ss = 0
                    La = Len(Change)
                If (La + 1 - ss - Lm) > 0 Then
                    Change = Left(Change, ss - 1) & Meneny & Right(Change, La + 1 - ss - Lm)
                Else
                    Change = Left(Change, ss - 1) & Meneny
                End If
                    ss = InStr(ss, Change, Hledany, Styl)
                nPocet = nPocet + 1
                DoEvents
            Loop
        Else
            Do Until ss = 0
                    La = Len(Change)
                If (La + 1 - ss - Lm) > 0 Then
                    Change = Left(Change, ss - 1) & Meneny &  Right(Change, La + 1 - ss -Lm)
                Else
                    Change = Left(Change, ss - 1) & Meneny
                End If
  
                    ss = InStr(ss, Change, Hledany, Styl)
                         nPocet = nPocet + 1
                If Max = nPocet Then Exit Do
                DoEvents
             Loop
        End If
End Function
Private Sub Command1_Click()
Dim nVar As Variant
    nVar = Change(myText, "auto", "KOLO", vbTextCompare)
MsgBox nVar
End Sub
Private Sub Form_Load()
myText = "najdi slovo a zaměnit za jiné, protože je to pěkné auto , které jezdí mezi auty" & _
" spolu s autoBusy . Které auto jezdí do Prahy a nazpět, některá auta jsou mezi auty malenké "
End Sub