---
title: "Capitalize"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38200-capitalize"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Pace"
published: "2001-07-07T14:18:00.000Z"
updated: "2001-07-07T14:18:00.000Z"
replies: 0
views: 935
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38200-capitalize"
---

# Capitalize

## #1 — Pace, 2001-07-07T14:18Z

En liten användbar funktion till att göra första bokstaven till
versal i varje ord och de resterande bokstäverna till gemener
("hejsan hoppsan" blir därmed "Hejsan Hoppsan"). Kan vara användbart i
t.ex. titlar och dylikt (och mellan \<TITLE\> som inte stylesheets klarar)!

**\[r\]Klarar nu även bindestreck!!
bengt-göran \>\> Bengt-Göran.\[/r\]**

Så här använder du funktionen:
variabel = Capitalize("text som ska översättas...")

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
Function Capitalize(strText)

   strText = UCase(Left(strText, 1)) & LCase(Mid(strText, 2))
   For currChar = 1 To Len(strText)
      If (Mid(strText, currChar, 1) = Chr(32)) OR (Mid(strText, currChar, 1) = "-") Then
         newChar = UCase(Mid(strText, (currChar + 1), 1))
	 strText = Mid(strText, 1, currChar) & newChar & Mid(strText, currChar + 2)
      End If
   Next
   Capitalize = strText

End Function

Fel och dylikt kan diskuteras i denna 
[tråden](http://cgi.webforum.nu/wf/Forum11/HTML/005147.html).

Permalänk: https://www.webforum.nu/p/38200

---

Tråden på webben: https://www.webforum.nu/amne/asp/38200-capitalize