18/06/13 12:56
tullio1995
Prova a usare un file temporaneo dove appoggiarti, copi il file fino e dove devi inserire la stringa, inserisci la stringa, e poi continui a copiare. Poi rinomini e cancelli il vecchio file
aaa
18/06/13 18:11
non esiste un metodo più semplice?
20/06/13 9:30
Thejuster
Public Sub Aggiungi_linea(filename As String, linea As Integer, testo As String)
Dim rtb As New RichTextBox()
'RichTextBox Provvisorio
rtb.LoadFile(filename, RichTextBoxStreamType.PlainText)
rtb.Text.Insert(linea, testo)
Dim rtb2 As New RichTextBox()
For i As Integer = 0 To rtb.Lines.Length - 1
If i = linea Then
rtb2.AppendText(testo & vbLf)
End If
rtb2.AppendText(rtb.Lines(i) + vbLf)
Next
rtb2.SaveFile(filename, RichTextBoxStreamType.PlainText)
End Sub
Funzione che aggiunge una linea ad un file esistente. Ovviamente specificando il numero della riga.
Ultima modifica effettuata da Thejuster 20/06/13 9:30