Salvare correttamente il contenuto di una Richtextbox in un file ".txt"

[Nicola 240]

Buongiorno

Devo salvare il contenuto di una RichTextBox, il problema è che quando vado a salvare le righe (che sono a capo tra loro) si attaccano formando un unica riga unica, mentre io voglio mantenere la formattazione originale, ovvero:

G88G90G54P5T01c8G42X4Y-20Z=b C0V0
G1G90X4Y128.06
G88G90G54P5T01c8G42X344.81Y128.06Z=a C0V0
G1G90X482.73Y-7.61

e NON:

G88G90G54P5T01c8G42X4Y-20Z=b C0V0 G1G90X4Y128.06 G88G90G54P5T01c8G42X344........

Sto usando il seguente sistema per salvare il file:

Dim save As NewSaveFileDialog


If save.ShowDialog = Windows.Forms.DialogResult.OK Then 'mostra finestra dialogo salvataggio'
TextBox2.Text = save.FileName
End If


Dim salva As New IO.StreamWriter(TextBox2.Text) 'salva il file'
salva.Write(RichTextBox1.Text)
salva.Close()

Come potrei risolvere?

[oregon]

Ma tu come visualizzi i dati quando vedi una sola riga?

[apinato]

Buongiorno

Devo salvare il contenuto di una RichTextBox, il problema è che quando vado a salvare le righe (che sono a capo tra loro) si attaccano formando un unica riga unica, mentre io voglio mantenere la formattazione originale, ovvero:

G88G90G54P5T01c8G42X4Y-20Z=b C0V0
G1G90X4Y128.06
G88G90G54P5T01c8G42X344.81Y128.06Z=a C0V0
G1G90X482.73Y-7.61

e NON:

G88G90G54P5T01c8G42X4Y-20Z=b C0V0 G1G90X4Y128.06 G88G90G54P5T01c8G42X344........

Sto usando il seguente sistema per salvare il file:

Dim save As NewSaveFileDialog


If save.ShowDialog = Windows.Forms.DialogResult.OK Then 'mostra finestra dialogo salvataggio'
TextBox2.Text = save.FileName
End If


Dim salva As New IO.StreamWriter(TextBox2.Text) 'salva il file'
salva.Write(RichTextBox1.Text)
salva.Close()

Come potrei risolvere?

Io metterei il contenuto della richtextbox in una array di stringhe e poi la ciclerei per scriverla nel file.

[oregon]

No ... il fatto è che le linee sono scritte con il terminatore LF e non con CR LF e quindi se usa Notepad non sono divise.

Basta scrivere rimpiazzando la sequenza LF con CRLF

salva.Write(RichTextBox1.Text.Replace(Convert.ToChar(10), Convert.ToChar(13) + Convert.ToChar(10)))

[Nicola 240]

Uso il blocco note per aprire il file .txt e mi ritrovo una riga lunga 40'000 caratteri anziché 2000 righe da 20 caratteri, mi incolla tutto quello che trova nella rich...

[URANIO]

Ciao nicola.
La sezione di prima era corretta, semplicemente se hai più domande differente apri thread differenti nella stessa sezione.

Questa sezione Windows, dove si parla di windows e la gestioen dei software.
LA sezione che serve a te è Programmazione ->Visual Basic e .Net Framework
Ricontinua qua: http://forum.html.it/forum/showthrea...readid=2937400

Chiudo questo thread