#13 Inversione di una stringa

La funzione restituisce la stringa invertita passatagli come parametro.

Public Function ReverseString(ByVal stringToReverse As String) As String 
    ' dichiarazione variabili 
    Dim i As Long 
    Dim tmpString As String = "" 
    Dim lunghezza As Long = 0 
    If stringToReverse = "" Then 
        ' se stringa vuota restituiscila 
        tmpString = "" 
    Else 
        ' altrimenti esegui l'inversione della stringa 
        lunghezza = stringToReverse.Length 
        For i = (lunghezza - 1) To 0 Step -1 
            tmpString = String.Concat(tmpString, _ 
                stringToReverse.Substring(i, 1)) 
        Next 
    End If 
    Return (tmpString) 
End Function
Annunci

Pubblicato il 19 gennaio 2008, in Tips con tag . Aggiungi il permalink ai segnalibri. Lascia un commento.

Rispondi

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger hanno fatto clic su Mi Piace per questo: