Visual basic help programm sol in einer datei ein wort suchen

Dragon Styl3 MJ

hallo ich würde gerne ein programm erstellen welches eine datei öffnet und dann nach einem wort sucht und dann dieses duch das wort was ich in die textbox eingeben habe ersetzt

Beispiel:
textdokument:
texta
textb
textc

mein prog soll nun die textdatei öffnen und textb durch hallo ersetzten

DarthSchaf

habe hier einige Anleitungen aus dem galileo openbook visual basic 2008
suchen & ersetzen
in Datei schreiben

hoffe das reicht
grüße

Unregistriert

also irgentwie hilft mir as doch nicht ganz weiter jezt weis ich wie ich in einem forgeschreiben text suche (glaub ich) aber ich versteh das nicht ganz kann mir einer nicht einfach diesen code so verbessern dass er in der geöffneten datei das wort das in textbox1 steht sucht und duch das wort in textbox 2 ersetzt
code:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End Sub
End Class

DarthSchaf

du lädst erst den text aus der textdatei in die variable text, schreibst den zu suchenden text in die erste textbox und den der dafür ersetzt werden soll in die zweite

folgenden code schreibst du in den Button der das ersetzen soll

suchen = textbox1.text 'der gesuchte text
ersetze = textbox2.text 'der zu ersetzende Text
Text = text.replace(suchen,ersetze) ' text wird ersetzt

Edit: habe das mal nachgebaut

Public Class Form1
Dim suchen, ersetze, txt As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
txt = TextBox1.Text
suchen = TextBox2.Text 'der gesuchte text
ersetze = TextBox3.Text 'der zu ersetzende Text
txt = txt.Replace(ersetze, suchen) 'text wird ersetzt
TextBox1.Text = txt
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

txt = ""
suchen = ""
ersetze = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class

Tags