String spiegeln

1
2
3
4
5
6
7
8
9
10
11
12

Namespace gfoidl.Tools
    Public Module StringExtension
        Private Sub New()
        End Sub
        <System.Runtime.CompilerServices.Extension> _
        Public Function Reverse(ByVal s As String) As String
            Dim c As Char() = s.ToCharArray()
            Array.Reverse(c)
            Return New String(c)
        End Function
    End Module
End Namespace