Hi,
Can somebody please give me step by step instructions to make this code working? Can I make it working on ms excel? I tried but didn't succeed. Do I create an online file? Somebody mentioned the word "module". I did a google search but couldn't figure out how to proceed. I need simple instructions. something like this:
1. open ms excel
2. press CTRL + ...
or
1. on your website under public html folder create a file and name it abc.de
2. edit the file and paste the code
I hope somebody can help me.
http://binaryworld.net/Main/CodeDetail.aspx?CodeId=845
Can somebody please give me step by step instructions to make this code working? Can I make it working on ms excel? I tried but didn't succeed. Do I create an online file? Somebody mentioned the word "module". I did a google search but couldn't figure out how to proceed. I need simple instructions. something like this:
1. open ms excel
2. press CTRL + ...
or
1. on your website under public html folder create a file and name it abc.de
2. edit the file and paste the code
I hope somebody can help me.
http://binaryworld.net/Main/CodeDetail.aspx?CodeId=845
' 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








