mario.deghetto

#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

Print | posted on mercoledì 14 ottobre 2009 4.46 |