---

Hej,

På en af mine sider er der et textarea felt hvori folk tilføjer data til
databasen. "Desværre" er det et site for unge/børn som af og til skriver med
ene store bogstaver. Er der en mulighed for at tjekke om et tegn er et stort
bogstav? Noget a la:

If IsUCase(x) Then...

- Morten

---

"MacMan" <nospam@nospam.com> skrev i en meddelelse
news:B7885C94.731F%nospam@nospam.com...
> Hej,
>
> På en af mine sider er der et textarea felt hvori folk tilføjer data til
> databasen. "Desværre" er det et site for unge/børn som af og til skriver
med
> ene store bogstaver. Er der en mulighed for at tjekke om et tegn er et
stort
> bogstav? Noget a la:
>
> If IsUCase(x) Then...

Du kan bruge følgende

if Text = UCase(Text) then
response.write "Teksten består kun af store bogstaver"


Mvh. Christoffer Thygesen

e-mail: cht@cht.dk
homepage: http://cht.dk

---

MacMan <nospam@nospam.com> skrev i news:B7885C94.731F%nospam@nospam.com
> Hej,
>
> På en af mine sider er der et textarea felt hvori folk tilføjer data til
> databasen. "Desværre" er det et site for unge/børn som af og til skriver
med
> ene store bogstaver. Er der en mulighed for at tjekke om et tegn er et
stort
> bogstav? Noget a la:
>
> If IsUCase(x) Then...

Dim Text
Text = "hei på deg"

If Mid(Text, 1, 1) = UCase(Mid(Text, 1, 1)) Then

'Den første bokstaven er stor ...

Else

'Den første bokstaven er liten ...

End If

--

Vennlig hilsen Erlend
erlendkb@c2i.net
ICQ 42053660
http://www.kleggen.com/

---

"MacMan" <nospam@nospam.com> skrev i en meddelelse
news:B7885C94.731F%nospam@nospam.com...
> Hej,
>
> På en af mine sider er der et textarea felt hvori folk tilføjer data til
> databasen. "Desværre" er det et site for unge/børn som af og til skriver
med
> ene store bogstaver. Er der en mulighed for at tjekke om et tegn er et
stort
> bogstav? Noget a la:
>
> If IsUCase(x) Then...
>
> - Morten

Prøv dette:

'Max antal store bogstaver'
MaxStor = 75

For i = 1 to len(text)
tegn = mid(text,i,1)
If Not tegn = " " then
If UCase(Tegn) = Tegn then
antalStor = antalstor + 1
AntalBogstaver = AntalBogstaver + 1
end if
end if
next

ProcentStor = antalStor / AntalBogstaver
ProcentStor = ProcentStor * 100
If ProcentStor > MaxStor then
Response.write "For mange store bogstaver"
else
Respinse.redirect ""
end if



--
Mvh
Anders Lund
webmaster@123grin.dk
---------------------------------------------------
Webmaster for GEnet.dk, Jyllands bedste netparty