[VB.NET] Eliminare gli ultimi due caratteri di una stringa

[x69asterix]

in questo modo ottengo un file di testo così composto:

"Giorno";"Causale";"Uscita";"Entrata";"Totale"
"14/06/07";"L";"06.55";"13.05";"06:10";"

che creo in questo modo:

Dim sw As StreamWriter = New StreamWriter(db1)
        sw.WriteLine("""Giorno" & """;""" & "Causale" & """;""" & "Uscita" & """;""" & "Entrata" & """;""" & "Totale""")
        Dim testo As String
        For i As Integer = 0 To dataSet.Tables(0).Rows.Count - 1
            testo = """"
            For a As Integer = 0 To 4
                testo = testo & dataSet.Tables(0).Rows(i).Item(a) & """;"""
            Next
            Application.DoEvents()
            sw.WriteLine(testo)
        Next
        sw.Close()

quello che volevo sapere è se esiste un modo per eliminare gli ultimi due caratteri della stringa: cioè questi ;"

[oregon]

Dopo la next usa le funzioni Left e Len per eliminare gli ultimi due caratteri ...

[MItaly]

In .NET sarebbe meglio usare i metodi d'istanza della classe String... per cui

testo = testo.Remove(testo.Length-2,2)

.
O, in alternativa

            For a As Integer = 0 To 4
                testo += dataSet.Tables(0).Rows(i).Item(a) + """"
                If a<4 Then testo +=  ";"""
            Next

.

[oregon]

Sì ... ma penso che, se x69asterix fa una richiesta cosi' "di base" (la gestione delle stringhe e' uno dei primi argomenti nella programmazione ...), puo' voler dire che non ha tanta confidenza con il linguaggio e tanto meno con l'OOP ...

[MItaly]

Certamente, ma come sempre è meglio evitare di usare le funzioni di compatibilità con VB6 in favore dei metodi standard del Framework, anche in un'ottica didattica.

[alka]

Bastava togliere un ulteriore carattere da quanto detto qui.

[x69asterix]

Prima di tutto grazie a tutti,
diciamo che con ALKA ne avevamo già discusso , ed è proprio il suo suggerimento che ho messo in pratica:

       Dim sw As StreamWriter = New StreamWriter(db1)
        sw.WriteLine("""Giorno" & """;""" & "Causale" & """;""" & "Uscita" & """;""" & "Entrata" & """;""" & "Totale""")
        Dim testo, tabella As String
        For i As Integer = 0 To dataSet.Tables(0).Rows.Count - 1
            testo = """"
            For a As Integer = 0 To 4
                testo = testo & dataSet.Tables(0).Rows(i).Item(a) & """;"""
            Next
            tabella = testo.Substring(0, testo.Length - 2) 
            Application.DoEvents()
            sw.WriteLine(tabella)
        Next
        sw.Close()
        MsgBox("Esportazione conclusa", MsgBoxStyle.Information, "Ore")

[oregon]

Originariamente inviato da x69asterix
Prima di tutto grazie a tutti,

Di nulla ... ma dato che avevi gia' affrontato il problema, come mai riproporlo ?

[x69asterix]

ciao oregon,
perchè non mi veniva in mente

[alka]

Originariamente inviato da x69asterix
perchè non mi veniva in mente

Ok, però in futuro credo sia più corretto che tu faccia una ricerca piuttosto che reiterare una domanda già posta e impegnare gli utenti del forum a ricordarti la risposta a qualcosa che hai già chiesto, altrimenti è un approfittarsi della disponibilità altrui e una mancanza di rispetto, oltreché una violazione del Regolamento (che esiste proprio perché in certi casi è necessario mettere "nero su bianco" le cose che non si ha il buon senso di pensare).