NameSilo

Help a beginner please. I don't know what to do with this code.

SpaceshipSpaceship
Watch

Erdy

VIP Member
Impact
115
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


' 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
 
0
•••
The views expressed on this page by users and staff are their own, not those of NamePros.
GoDaddyGoDaddy
Module = a file you can make in VB to stick code in, its not a form, just a place to store code.

Should be something like:
File -> New -> Module
 
0
•••
Dynadot — .com TransferDynadot — .com Transfer
CatchedCatched

We're social

Escrow.com
Spaceship
Rexus Domain
CryptoExchange.com
Domain Recover
CatchDoms
DomainEasy — Zero Commission
DomDB
  • The sidebar remains visible by scrolling at a speed relative to the page’s height.
Back