---
title: "Stor bokstav i varje ord i en mening"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/119876-stor-bokstav-i-varje-ord-i-en-mening"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "bigsky"
published: "2005-01-11T23:01:35.000Z"
updated: "2005-01-13T07:02:36.000Z"
replies: 9
views: 513
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/119876-stor-bokstav-i-varje-ord-i-en-mening"
---

# Stor bokstav i varje ord i en mening

## #1 — bigsky, 2005-01-11T23:01Z

Om en användare skickar en text via ett formulär, hur ska jag skriva så att varje ord i en mening börjar med stor bokstav?

Ex. "Detta är En mening som Jag vill Formatera om"

så att den blir så här:

"Detta Är En Mening Som Jag Vill Att Den Ska Se Ut"

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

## #2 — jawbreaker, 2005-01-12T07:12Z

Om det bara är vid presentationen som texten ska visas på det sättet så kan du göra det med css:

```
<span style="text-transform: capitalize;">Detta är En mening som Jag vill Formatera om</span>
```

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

## #3 — bigsky, 2005-01-12T08:05Z

Nej det är vid sparandet till databasen som texten ska formateras om.

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

## #4 — OveRRidE, 2005-01-12T08:08Z

Finns det någon maximal längd på den text som kommer sparas? Handlar det om en till tre meningar eller om en uppsats på 25 sidor?

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

## #5 — bigsky, 2005-01-12T12:58Z

Egentligen handlar det oftast bara om två ord. Det är namn som ska sparas med formatet "Förnamn Efternamn" och inte "förnamn efternamn".

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

## #6 — OveRRidE, 2005-01-12T14:41Z

Ja, är det inga groteska mängder data så kan du ju alltid göra såhär:

```
Dim sMyString, vMyArray, i
sMyString = "det finns inte så många versaler"
    
vMyArray = Split(sMyString, " ")
sMyString = ""
    
For i = LBound(vMyArray) To UBound(vMyArray)
   If Len(vMyArray(i)) > 0 Then sMyString = sMyString & UCase(Left(vMyArray(i), 1)) & Right(vMyArray(i), Len(vMyArray(i)) - 1) & " "
Next
sMyString = Trim(sMyString)
```

/red. Fel upptäckte jag.

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

## #7 — Erik Juhlin, 2005-01-12T14:47Z

Eller så här. Lite enklare och bättre prestanda i.o.m. mindre konkatenerande. :)

```
Dim sMyString, vMyArray, i
sMyString = "det finns inte så många versaler"

vMyArray = Split(sMyString, " ")

For i = LBound(vMyArray) To UBound(vMyArray)
	vMyArray(i) = UCase(Left(vMyArray(i), 1)) & Right(vMyArray(i), Len(vMyArray(i)) - 1)
Next
sMyString = Join(vMyArray, " ")
```

Redigering: Fixade fel...

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

## #8 — OveRRidE, 2005-01-12T14:55Z

Ännu bättre. :)

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

## #9 — bigsky, 2005-01-12T23:45Z

Microsoft VBScript runtime fel '800a000d' 

Type mismatch

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

## #10 — OveRRidE, 2005-01-13T07:02Z

```
Dim sMyString, vMyArray, i
sMyString = "det finns inte så många versaler"

vMyArray = Split(sMyString, " ")

For i = LBound(vMyArray) To UBound(vMyArray)
	vMyArray(i) = UCase(Left(vMyArray(i), 1)) & Right(vMyArray(i), Len([b]vMyArray(i)[/b]) - 1)
Next
sMyString = Join(vMyArray, " ")
```

Ah, Erik hade glömt att specificera vilket index i arrayen som skulle användas.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/119876-stor-bokstav-i-varje-ord-i-en-mening