Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Spazi in textbox
Forum - C# / VB.NET - Spazi in textbox

Avatar
antoniobar (Normal User)
Newbie


Messaggi: 18
Iscritto: 09/09/2012

Segnala al moderatore
Postato alle 9:59
Sabato, 03/11/2012
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)

PM Quote
Avatar
Roby94 (Member)
Guru


Messaggi: 1170
Iscritto: 28/12/2009

Segnala al moderatore
Postato alle 11:23
Sabato, 03/11/2012
Testo quotato

Postato originariamente da 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)


Non l'hai scritto tu, vero?

sBuffer2(i) = "SERIE" & sBuffer2(i).Replace(" ", "") il problema sta qua

PM Quote