# @Propercase In Ls

## Domino Resources - Part 2

### Looking for something else?

Function ProperCase(inString As String) As String

' ThisFunction first converts inString to lowercase, then it
' iterates through each character and capitalizes only those characters
' which come after a non-alphabetic character (except for the
' apostrophe, which is treated as an alphabetic character). This
' results in a proper-cased string, which is what is returned.

On Error Goto ErrorHandler
ProperCase = ""

Dim outString As String
Dim char As String
Dim code As Integer
Dim last As Integer
Dim L As Integer

'----- Make sure we have a string
If Strcomp(inString, "") = 0 Then Goto TheEnd

'----- First make everything lowercase
inString = Lcase\$(inString)

'----- Process the first char, if it's alpha then upper it
char = Mid\$(inString, 1, 1)
code = Asc(char)
If Isnumeric(code) Then
If (code >= 97 And code <= 122) Then
outString = Ucase\$(char)
Else
outString = char
End If
End If

For L = 2 To Len(inString)
last = Asc(Right\$(outString, 1))
char = Mid\$(inString, L, 1)
code = Asc(char)

If Isnumeric(code) Then
If (96 <= code And code <= 122) And _ ' char is lower case
and
(last <> 39) And _ ' the last char is not
an apostrophe
Not((65 <= last And last <= 90) Or _ ' and is not a member
of
(97 <= last And last <= 122)) Then ' of the alphabet
outString = outString & Ucase\$(char)
Else
outString = outString & char
End If
End If
Next L
ProperCase = outString

TheEnd:
Exit Function

ErrorHandler:
ProperCase = inString
Print "ProperCase: " & Trim\$(Str\$(Err)) & ": " & Error\$
Resume TheEnd

End Function

This was last published in November 2000

#### Start the conversation

Send me notifications when other members comment.

## SearchWindowsServer

• ### Tailor a WSUS server setup to any Windows environment

Administrators can configure a Windows Server Update Services server -- or several -- to manage and distribute updates from ...

• ### Microsoft SCORCH lights an automated path to more efficiency

System Center Orchestrator tackles tedious tasks and can even make autonomous decisions based on conditions set by the Windows ...

• ### Ease Windows Update problems by using WSUS servers

To combat various Windows Update problems, administrators should consider implementing a WSUS server to regain control over the ...

## Search400

• ### iSeries tutorials

Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

• ### V6R1 upgrade planning checklist

When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

• ### Connecting multiple iSeries systems through DDM

Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

## SearchEnterpriseLinux

• ### SUSE Linux jumps on the open private cloud deployment train

SUSE Linux Enterprise planning private cloud deployment with OpenStack weight behind it. NVIDIA works on Linux drivers for ...

• ### Want one of the many Linux jobs out there? Time to go back to class

Does extended education from the Linux Foundation and others help graduates meet the demands of today’s Linux jobs? Some say yes.

• ### Ubuntu ARM server AMI for Amazon EC2 offers fast access in the cloud

Canonical’s Ubuntu ARM server AMI for Amazon EC2 provide open source shops with a fast ARM server for the cloud.

## SearchDataCenter

• ### Compare benefits of a blade server architecture vs. hyper-convergence

To determine if a series of blade servers is the right call for more condensed compute in your data center, evaluate its benefits...

• ### A hyper-converged data center offers SDDC opportunity, IT scalability

Hyper-convergence can increase scalability and pave the way toward software-defined infrastructure. Use these five tips to learn ...

• ### OpenStack enterprise adoption still awaits full embrace

OpenStack in the enterprise is more likely to see continued adoption via vendor distributions and managed services, not the raw ...

## SearchExchange

• ### Access for Office 365 external users a concern for admins

Microsoft added external access for Office 365 Groups, which means administrators must contend with confidentiality and lifecycle...

• ### The essential admin's guide to Office 365 PowerShell

Need to make extensive updates quickly? Admins can rev up their PowerShell skills, bypass the Office 365 management GUI and leave...

• ### Understanding Exchange Online's Role-Based Access Control model

The Role-Based Access Control model manages and evaluates permissions in Exchange Online. Admins can explore the model, create ...

## SearchContentManagement

• ### Five steps for designing an effective BI dashboard

The BI dashboard can be a very useful tool for data engagement if the dashboard is designed and used effectively. Here are five ...

• ### Examining the top offerings in the WCM platform marketplace

Once you've decided that a WCM platform is right for your business, it's time to decide which to choose. Expert Geoffrey Bock ...

• ### Why Microsoft Teams could change up the collaboration software market

Microsoft's new collaboration tool, Teams, could give Slack a run for its money. Expert Reda Chouffani offers a look at five ...

Close