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

SingularToPlural - Converting the input word from singular to plural

' Convert the input word from singular to plural
Function SingularToPlural(ByVal singular As String) As String
    ' convert to lowercase for easier comparison
    Dim lower As String = singular.ToLower()
    Dim res As String

    ' rule out a few exceptions
    If lower = "foot" Then
        res = "Feet"
    ElseIf lower = "goose" Then
        res = "Geese"
    ElseIf lower = "man" Then
        res = "Men"
    ElseIf lower = "woman" Then
        res = "Women"
    ElseIf lower = "criterion" Then
        res = "Criteria"
        ' plural uses "ies" if word ends with "y" preceeded by a non-vowel
    ElseIf lower.EndsWith("y") AndAlso "aeiou".IndexOf(lower.Substring _
        (lower.Length - 2, 1)) < 0 Then
        res = singular.Substring(0, singular.Length - 1) + "ies"
    Else
        res = singular + "s"
    End If

    ' the result must preserve the original word's capitalization
    If singular = lower Then
        Return res.ToLower()   ' it was an all-lowercase word
    ElseIf singular = singular.ToUpper() Then
        Return res.ToUpper()    ' it was an all-uppercase word
    Else
        Return res    ' return whatever is in "res"
    End If
End Function
Francesco Balena
 
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