- Codice: Seleziona tutto
---
ciao
come va
tutto ok?
---
e farlo inserire in una textbox?
vi prego è importate...
---
ciao
come va
tutto ok?
---
Andy94 ha scritto:In una textbox, a meno che non sia multiline, puoi inserire solamente una riga di testo e non tutte come nell'esempio che hai inserito.
Se ti interessa ottenere un array di valori dividendo una stringa per carattere o altra stringa dovrai usare la funzione split. Tieni presente che ti troverai a gestire un array e non più una singola stringa, quindi dovrai agire di conseguenza.
Altrimenti ti chiedo di essere più specifico, e di indicare quale parte di quel testo vorresti considerare.
Dim disco As System.IO.File
Dim scrivi As System.IO.StreamWriter
SaveFileDialog1.ShowDialog()
scrivi = disco.CreateText(SaveFileDialog1.FileName)
scrivi.WriteLine(TextBox1.Text)
scrivi.WriteLine(TextBox2.Text)
scrivi.WriteLine(ComboBox1.Text)
scrivi.WriteLine(ComboBox2.Text)
scrivi.WriteLine(TextBox3.Text)
scrivi.WriteLine(ComboBox3.Text)
scrivi.WriteLine(TextBox26.Text)
scrivi.WriteLine(TextBox5.Text)
scrivi.WriteLine("---")
scrivi.WriteLine(TextBox4.Text)
scrivi.WriteLine("---")
scrivi.WriteLine(TextBox6.Text)
scrivi.WriteLine(TextBox7.Text)
scrivi.WriteLine(TextBox8.Text)
scrivi.WriteLine(TextBox9.Text)
scrivi.WriteLine(TextBox10.Text)
scrivi.WriteLine(TextBox11.Text)
scrivi.WriteLine(TextBox12.Text)
scrivi.WriteLine(TextBox13.Text)
scrivi.WriteLine(TextBox14.Text)
scrivi.WriteLine(TextBox15.Text)
scrivi.WriteLine(TextBox16.Text)
scrivi.WriteLine(TextBox17.Text)
scrivi.WriteLine(TextBox18.Text)
scrivi.WriteLine(TextBox19.Text)
scrivi.WriteLine(TextBox20.Text)
scrivi.WriteLine(TextBox21.Text)
scrivi.WriteLine(TextBox22.Text)
scrivi.WriteLine(TextBox23.Text)
scrivi.WriteLine(TextBox24.Text)
scrivi.WriteLine(TextBox25.Text)
scrivi.Close()
Dim disco As System.IO.File
Dim leggi As System.IO.StreamReader
OpenFileDialog1.ShowDialog()
leggi = disco.OpenText(OpenFileDialog1.FileName)
While leggi.Peek <> -1
TextBox1.Text = leggi.ReadLine
TextBox2.Text = leggi.ReadLine
ComboBox1.Text = leggi.ReadLine
ComboBox2.Text = leggi.ReadLine
TextBox3.Text = leggi.ReadLine
ComboBox3.Text = leggi.ReadLine
TextBox26.Text = leggi.ReadLine
If TextBox26.Text <> "" Then CheckBox2.Checked = True Else CheckBox2.Checked = False
TextBox5.Text = leggi.ReadLine
TextBox4.Text = leggi.ReadLine
TextBox6.Text = leggi.ReadLine
TextBox7.Text = leggi.ReadLine
TextBox8.Text = leggi.ReadLine
TextBox9.Text = leggi.ReadLine
TextBox10.Text = leggi.ReadLine
TextBox11.Text = leggi.ReadLine
TextBox12.Text = leggi.ReadLine
TextBox13.Text = leggi.ReadLine
TextBox14.Text = leggi.ReadLine
TextBox15.Text = leggi.ReadLine
TextBox16.Text = leggi.ReadLine
TextBox17.Text = leggi.ReadLine
TextBox18.Text = leggi.ReadLine
TextBox19.Text = leggi.ReadLine
TextBox20.Text = leggi.ReadLine
TextBox21.Text = leggi.ReadLine
TextBox22.Text = leggi.ReadLine
TextBox23.Text = leggi.ReadLine
TextBox24.Text = leggi.ReadLine
TextBox25.Text = leggi.ReadLine
End While
vario
testi
---
testo
da
inserire
nella
multiline
---
altro
Andy94 ha scritto:In questo caso puoi usare la funzione split sulla stringa ottenuta dalla lettura del txt, passando come parametro vbCrLf.
Ti troverai un array con tante voci quante sono le righe e considererai solamente gli indici che ti interessano (nel qual caso, ad occhio e croce direi 3, 4, 5, 6, 7).
Andy94 ha scritto:Al momento non ho l'IDE sotto mano per scrivertelo, ti lascio i link ad MSDN (la documentazione di riferimento da usare sempre quando non si conosce qualcosa).
http://msdn.microsoft.com/en-us/library ... 90%29.aspx
Per ottenere in una variabile il contenuto del file usa questa funzione.
http://msdn.microsoft.com/en-us/library/s2tte0y1.aspx
Visitano il forum: Nessuno e 1 ospite
megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising