---
title: "Punkter&Versaler"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38182-punkter-versaler"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SPiN"
published: "2001-02-22T07:34:00.000Z"
updated: "2001-02-22T07:34:00.000Z"
replies: 0
views: 739
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/38182-punkter-versaler"
---

# Punkter&Versaler

## #1 — SPiN, 2001-02-22T07:34Z

Följande funktion strukturerar om en vald text, så att efter varje punkt blir det en stor bokstav och mellanslag. OBS! Det kan finnas buggar, t.ex. vid användning av flera punkter, eftersom att scriptet inte är fulständigt. Den behandlar också bara punkter och inte utropstecken eller frågetecken, som också är meningsavskiljare.

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
function dotword(sText)
' ©Copyright Björn Wikström, bjorne.w@telia.com

Dim arrText, i, X, chkLen, newLen, sVersal, sRest, txt, newText

sText = Replace(sText, ". ", ".")
sText = Replace(sText, ".", ". ")

arrText = split(sText, ". ")
i = 0
If Right(sText, 2) = ". " then
   X = uBound(arrText)
Else
   X = uBound(arrText) + 1
End If

Do Until i = X
   chkLen = Len(arrText(i))
   newLen = chkLen - 1
   sVersal = uCase(Left(arrText(i), 1))
   sRest = Right(arrText(i), newLen)
   txt = sVersal & sRest
   If i = 0 then
      newText = txt
   else
      newText = newText & ". " & txt
   end if
   i = i + 1
Loop

newText = newText & "."

dotword = newText

end Function

Om någon orkar/vill färdigställa och förbättra funktionen är ni mycket välkomna att skicka resultatet till mig :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38182-punkter-versaler