Gemener och versaler....

Hmm jag förstår inte riktigt hur du menar tror jag, menar du t.ex. en stor bokstav efter varje punkt, och resten små? Isf är nog det smidigaste att sätta in hela texten i en sträng och sedan splitta den in i en array vid varje mellanslag. På så sätt kan man sedan kolla om sista tecknet är en punkt, och i så fall göra om första tecknet i nästa array till en versal.

Har för mig att det fanns en sådan tråd tidigare, annars borde jag ha den funktionen på burken här...

Hoppas du hängde med i mitt resonemang :)

------------------
SPiN, bjorne.w@telia.com

--- Är det bara jag som har en britney-cursor? ---

Låter som ett sätt jag skulle kunna använda. Kan du klistra in lite kod om du har det tillgängligt? Har inte jobbat något med den där funktionen tidigare.

------------------
www.pcpriser.nu

Visst självklart kan jag ge dig koden, dock inte just nu... Har den inte tillgänglig på burken jag sitter på för tillfället :)

Kommer senare idag...eller tidigt i morrn :)

------------------
SPiN, bjorne.w@telia.com

--- Är det bara jag som har en britney-cursor? ---

Lessen att det tog lite tid med funktionen... Jag har inte haft så mycket tid :)
Här är en någorlunda fungerande version, men den gör om till versaler endast efter . och inte efter t.ex. 1 eller ?.

Om du fixar till och gör om den till det bättre, skicka den gärna till mig :)

' ©Copyright Björn Wikström, bjorne.w@telia.com
function dotword(sText)

Dim sText, 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

------------------
SPiN, bjorne.w@telia.com

--- Är det bara jag som har en britney-cursor? ---

Tackar så väldans mycket!

------------------
www.pcpriser.nu

Lugna puckar... Nu lägger jag upp den på wfScript också, kanske fler som är intresserade. :)

------------------
SPiN, bjorne.w@telia.com

--- Är det bara jag som har en britney-cursor? ---

Du kan konvertera redan när du hämtar ur databasen!

SELECT LOWER(artikel) FROM tbl_artiklar

Ger fältet artiklar i gemener.

Man kan använda detta tillsammans med en UPDATE för att ändra hela databasen på en gång.

Det finns även UPPER() till versaler, och INITCAP() som gör första tecknet till versal, resten gemener.

/T

------------------
"Den som väntar på någon som gått behöver inte vänta längre..."

Det låter som ett enkelt sätt. Skitbra svar jag fått av er allihopa! Tackar så mycket!!! Detta är fan det bästa forumet i världen :). Man får ju svar snabbare här än om man är ute på mIRC. Kanon helt enkelt ;)

------------------
www.pcpriser.nu