Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Aug 18, 2003

FlipCase - Inverting the case of all characters of the input string

' Invert the case of all characters of the input string
'
' Examples:
'    Debug.WriteLine(FlipCase("Hello World")) ' => hELLO wORLD
'    Debug.WriteLine(FlipCase("hELLO wORLD")) ' => Hello World
'    Debug.WriteLine(FlipCase("3) this is message n. 3")) ' => 3) THIS IS 
' MESSAGE N. 3

Function FlipCase(ByVal input As String) As String
    Dim i As Integer
    Dim res As New System.Text.StringBuilder(input.Length)

    For i = 0 To input.Length - 1
        ' if the char is lowercase, add to the stringbuilder the char in 
        ' uppercase
        If Char.IsLower(input.Chars(i)) Then
            res.Append(Char.ToUpper(input.Chars(i)))
        ElseIf Char.IsUpper(input.Chars(i)) Then
            ' if the char is uppercase, add to the stringbuilder the char in 
            ' lowercase
            res.Append(Char.ToLower(input.Chars(i)))
        Else
            ' if the char is a digit or another non-letter char, add it as it is
            res.Append(input.Chars(i))
        End If
    Next
    Return res.ToString()
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date