[VB.NET] inserire virgola in una stringa

[antonygm]

Ciao a tutti,

Ho bisogno di creare una funzione che sia in grado di inserire in una stringa, dopo ogni lettera, una virgola.

Per esempio ho una stringa che contiene "CIAO". Ho bisogna che questa stringa diventi
"C,I,A,O".


Secondo voi come posso fare?


Grazie a tutti!

[oregon]

Utilizza il metodo String.Insert

[LeleFT]

Sposto nel forum "Visual Basic e .NET Framework".

Ciao.

[optime]

la prima cosa che mi è venuta in mente

Dim a As String = "CIAO"
Dim b As String = ""
For i As Integer = 1 To a.Length
b = b + a.Substring(i - 1, 1) + ","
Next
b = b.TrimEnd(","c)

forse esistono altri metodi più efficienti

[sspintux]

Ciao a tutti,

Ho bisogno di creare una funzione che sia in grado di inserire in una stringa, dopo ogni lettera, una virgola.

Per esempio ho una stringa che contiene "CIAO". Ho bisogna che questa stringa diventi
"C,I,A,O".


Secondo voi come posso fare?


Grazie a tutti!

Ciao, puoi provare anche così

MessageBox.Show([String].Join(",", "CIAO".ToCharArray().AsEnumerable))

[pietro09]

se guardiamo le prestazioni la funzione di sotto è molto veloce

    Private Function ModificaStringa1(stringaIniziale As String) As String
        Dim sb As New StringBuilder(100)
        For i As Integer = 0 To stringaIniziale.Length - 1
            sb.Append(stringaIniziale.Chars(i))
            sb.Append(","c)
        Next
        If sb.Length > 0 Then sb.Remove(sb.Length - 1, 1)
        Return sb.ToString
    End Function

mentre quella suggerita da sspintux, anche se più lenta, mi pare molto interessante

    Private Function ModificaStringa3(stringaIniziale As String) As String
        Return String.Join(",", stringaIniziale.ToArray().AsEnumerable)
    End Function

il codice di sotto è il più lento (con una stringa di 26 caratteri in un ciclo molto lungo)

    Private Function ModificaStringa2(stringaIniziale As String) As String
        Dim sb As String = ""
        For i As Integer = 0 To stringaIniziale.Length - 1
            sb &= stringaIniziale.Chars(i) & ","c
        Next
        If sb.Length > 0 Then sb.Remove(sb.Length - 1, 1)
        Return sb
    End Function

[oregon]

Non ho testato le prestazioni ma per semplicità potrebbe essere utile scrivere

        For i = s.Length - 1 To 1 Step -1
            s = s.Insert(i, ",")
        Next i

[pietro09]

Non ho testato le prestazioni ma per semplicità potrebbe essere utile scrivere

        For i = s.Length - 1 To 1 Step -1
            s = s.Insert(i, ",")
        Next i

Solo per togliermi la ruggine accumulata in questi giorni, dalle prove che sto facendo, questo metodo è il più lento per una stringa di qualche decina di caratteri, mentre è il più veloce per una stringa di pochi caratteri.

ps. è chiaro che sto calcolando i tempi in un ciclo di un milione di passi e che perciò una soluzione vale l'altra. L'importante secondo me è vedere più soluzioni per imparare a manipolare bene le stringhe.

[MItaly]

Non ho testato le prestazioni ma per semplicità potrebbe essere utile scrivere

        For i = s.Length - 1 To 1 Step -1
            s = s.Insert(i, ",")
        Next i

Questa soluzione ha l'innegabile pregio della semplicità (cosa che in questo caso può convenire privilegiare), ma sapendo cosa accade "sotto il cofano", è abbastanza chiaro che è O(n^2) quando potrebbe essere O(n) (forse anche qualcosa di peggio, dato che le stringhe .NET sono immutabili e ogni modifica equivale ad allocare una nuova stringa).

In genere per manipolazioni di questo genere l'approccio più rapido è basato su StringBuilder (che corrisponde di fatto ad un buffer di caratteri "stile C"):

    Private Function AddCommas(str As String) As String
        If str.Length=0 Then Return str
        Dim sb As New StringBuilder
        sb.Length=str.Length*2
        For i As Integer = 0 To str.Length - 1
            sb(i*2)=str(i)
            sb(i*2+1)=","c
        Next
        sb.Length-=1
        Return sb.ToString()
    End Function

Credo anch'io che la soluzione in stile programmazione funzionale di sspintux sia la più elegante, ed è sostanzialmente è equivalente a quello che in Python scriverei come

def AddCommas(s):
    return ",".join(s)

(in effetti, visto che sparisce il 90% della verbosità non starei nemmeno a metterlo in una funzione a parte).

Da notare che nessuno degli approcci qui citati tiene in considerazione i surrogate pairs; qualunque stringa UTF-16 contenente codepoints superiori a 0xD7FF passata a queste funzioni verrebbe sfasciata senza pietà.

Per sistemare questo problema, un approccio potrebbe essere:

    Private Function AddCommas(str As String) As String
        If str.Length = 0 Then Return str
        Dim sb As New StringBuilder(str.Length*2)
        For i As Integer = 0 To str.Length - 1
            sb.Append(str(i))
            If Not char.IsHighSurrogate(str(i)) Then 
                sb.Append(","c)
            End If
        Next
        sb.Length-=1
        Return sb.ToString()
    End Function

[sspintux]

Aggiungo un paio di link a MSDN sul prblema sollevato sa Mitaly
http://msdn.microsoft.com/en-us/libr...v=vs.100).aspx
http://msdn.microsoft.com/en-us/libr...v=vs.100).aspx