Salve a tutti sono nuovo di questo forum, e ora mi andro a presentare come di consueto
intanto vi espongo il mio problema
premetto che sono niubbo del vb.net e sto cercando di imparare
sto sviluppando un programma per editare un file di circa 7000 righe txt
tramite una ricerca, leggo riga per riga il file in questione
e tramite delle alcune IF mi riporto le stringhe, in cui il valore cercato è contenuto, in una variabile e in una Listbox
fino a qui nessuno problema tutto perfattamente funzionante
ora pero vorrei che i valori che io edito tramite ritchtextbox portati li dentro tramite la variabile
ovvero le stringhe che ho ricercato, mi vengano sostituite al file originale cosi che io possa cercare ed editare allo stesso momento..
il problema e che non so proprio come fare..
vi posto il mio sorgente
la Form1 è formata
da Button1 che è il cerca che tramite Textbox1 mi cerca i valori nel TXT e me li mette in una ListBox1, successivamente tramite Button2 posso editare le righe trovate tramite la RichTextBox1 che è uguale a una variabile dove sono contenute le righe "tmp"
e tramite Button3 effettuare la modifica
come faccio a fare un replace della rich editata, nel file originale? ^^
grazie in anticipo a tutti quanti per l'aiuto

SORGENTE:

Imports System.IO

Public Class Form1
Dim Trov As String = ""
Dim tmp As String = ""
Dim Font2 As String = ""
Dim arrText As New ArrayList()


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
tmp = Nothing
Dim objReader As New System.IO.StreamReader("c:\prova.txt")
Dim sLine As String = ""


Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
arrText.Add(sLine)
If sLine.Contains(TextBox1.Text) Then
ListBox1.Items.Add(sLine)
If tmp = "" Then
tmp = sLine
Else
tmp = tmp & vbCrLf & sLine
End If
End If
End If
Loop Until sLine Is Nothing
objReader.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RichTextBox1.Clear()
RichTextBox1.Text = tmp
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End Sub
End Class