03/11/12 8:59
antoniobar
salve, ho questo codice che mi permette di portare su una riga una file di testo e splittarlo modo che ogni inizio riga inizia con la parola "SERIE".
il problema è che mi toglie tutti gli spazi dal testo, come fare???
' Leggo il testo dal file e lo metto nella variabile sBuffer0
Dim sr As New IO.StreamReader(TextBox1.Text)
Dim sBuffer0 As String = sr.ReadToEnd()
sr.Close()
' Sostituisco tutti i NewLine con una stringa vuota
Dim sBuffer1 As String = sBuffer0.Replace(ControlChars.NewLine, ""
' Splitto la stringa sBuffer1 ottenendo un array senza la parola "SERIE"
Dim sBuffer2() As String = Split(sBuffer1, "SERIE ", , CompareMethod.Text)
' Riaggiungo ad ogni elemento dell'array la parola "SERIE "
' l'elemento zero contiene una stringa vuota per questo parto da 1
For i As Integer = 1 To sBuffer2.Length - 1
sBuffer2(i) = "SERIE" & sBuffer2(i).Replace(" ", ""
Next
' Unisco gli elementi dell'array in un unica stringa
Dim sOut As String = Strings.Join(sBuffer2, ControlChars.NewLine)
' Elimino il primo NewLine (relativo all'elemento zero dell'array)
' e assegno la stringa ad una TextBox
TextBox2.Text = Replace(sOut, ControlChars.NewLine, "", 1, 1)
il problema è che mi toglie tutti gli spazi dal testo, come fare???
' Leggo il testo dal file e lo metto nella variabile sBuffer0
Dim sr As New IO.StreamReader(TextBox1.Text)
Dim sBuffer0 As String = sr.ReadToEnd()
sr.Close()
' Sostituisco tutti i NewLine con una stringa vuota
Dim sBuffer1 As String = sBuffer0.Replace(ControlChars.NewLine, ""
' Splitto la stringa sBuffer1 ottenendo un array senza la parola "SERIE"
Dim sBuffer2() As String = Split(sBuffer1, "SERIE ", , CompareMethod.Text)
' Riaggiungo ad ogni elemento dell'array la parola "SERIE "
' l'elemento zero contiene una stringa vuota per questo parto da 1
For i As Integer = 1 To sBuffer2.Length - 1
sBuffer2(i) = "SERIE" & sBuffer2(i).Replace(" ", ""
Next
' Unisco gli elementi dell'array in un unica stringa
Dim sOut As String = Strings.Join(sBuffer2, ControlChars.NewLine)
' Elimino il primo NewLine (relativo all'elemento zero dell'array)
' e assegno la stringa ad una TextBox
TextBox2.Text = Replace(sOut, ControlChars.NewLine, "", 1, 1)
aaa
