Go Premium for a chance to win a PS4. Enter to Win

x
Solved

# classic asp Capital Case

Posted on 2011-09-20
Medium Priority
580 Views
I have a data like los angeles and I would like to convert to Los Angeles

How can I do that in classic asp? I just need first letter is capital.
and the data came from sql server database.
0
Question by:Webboy2008

LVL 16

Expert Comment

ID: 36570860
0

LVL 61

Expert Comment

ID: 36570910
use a function like the one here:

http://www.4guysfromrolla.com/webtech/092798-1.shtml
0

LVL 29

Expert Comment

ID: 36571205
You can use this:

Function PCase(word)
PCase = UCase(Left(word,1)) & LCase(Mid(word,2))
End Function

Then all you need to do is:

PCase(state) or whatever your form fieldname is.
0

LVL 11

Accepted Solution

G_H earned 2000 total points
ID: 36572654
Hi There,

I have two functions I use to do this...

They will work for you, but also work for people's names, such as "McDonald"...

Use as:

Str = "loS anGeles"
SortedText = ProperCase(Str)

'' ## Proper Case (Name Case) a sentance, or name
'' ## Uses PCaseWord to do the donkey work
Public Function ProperCase(Input)
Dim strOut, astr, i, j, t

strOut = LCase(Input)
astr = Split(strOut, " ")

for i = 0 to UBound(astr)
if InStr(astr(i), "-") = 0 then
astr(i) = PCaseWord(astr(i))
else
t = Split(astr(i), "-")
for j = 0 to UBound(t)
t(j) = PCaseWord(t(j))
next
astr(i) = Join(t, "-")
end if
next

ProperCase = Join(astr, " ")
End Function

'' ## Takes a word and Upper-cases the first character, Also deals with "McDonnell", "MacDonalds" and "O'Riley"
Function PCaseWord(strIn)
Dim strOut, t

t = Mid(strIn, 1, 3)
if t = "mac" then
strOut = "Mac" & UCase(Mid(strIn, 4, 1)) & Mid(strIn, 5)
else
t = Mid(t, 1, 2)
if t = "mc" then
strOut = "Mc" & UCase(Mid(strIn, 3, 1)) & Mid(strIn, 4)
elseif t = "o'" then
strOut = "O'" & UCase(Mid(strIn, 3, 1)) & Mid(strIn, 4)
else
strOut = UCase(Mid(strIn, 1, 1)) & Mid(strIn, 2)
end if
end if

PCaseWord = strOut
End Function

@sammy: I think your code will result in "Los angeles" rather than "Los Angeles"...?

GH
0

LVL 29

Expert Comment

ID: 36573502
Oops, you are right but it is a trivial fix:

Function PCase(word)
PCase = UCase(Left(word,1)) & UCase(Mid(word,2))
End Function
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
A quick way to get a menu to work on our website, is using the Menu control and assign it to a web.sitemap using SiteMapDataSource. Example of web.sitemap file: (CODE) Sample code to add to the page menu: (CODE) Running the application, we wi…
Is your data getting by on basic protection measures? In today’s climate of debilitating malware and ransomware—like WannaCry—that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.…
Is your OST file inaccessible, Need to transfer OST file from one computer to another? Want to convert OST file to PST? If the answer to any of the above question is yes, then look no further. With the help of Stellar OST to PST Converter, you can e…
###### Suggested Courses
Course of the Month6 days, left to enroll