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 :)
------------------
SPiN, bjorne.w@telia.com
--- Är det bara jag som har en britney-cursor? ---
[Redigerat av SPiN den 22 feb 2001]