Stort forbogstav

Hvad med at lave noget kode som først konvertere hele strengen til små bogstaver, for derefter at tage de bogstaver som du gerne vil have storre også benytte en funktion til dette
    dim tmp
    dim LCaseString
    tmp = "temp TEMPSEN"
    Response.Write(tmp)
    LCaseString = LCase(tmp)
    Response.Write(vbcrlf + "<br>")
    Response.Write(LCaseString)   
    Response.Write(vbcrlf + "<br>")   
    tmp = Left(LCaseString,1)
    LCaseString = UCase(tmp) + Right(LCaseString, Len(LCaseString) -1)
    Response.Write(LCaseString)

SÅ for du ihvertfald første bogstav stort, skal lige tænke over hvordan får efternavnet med stort også

HEHE...

Jamen det med fornavnet er ikke noget problem...
- Det behøver slet ikke at fylde så meget...
Så kunne nedenstående eksmepel også bruges:
<%
name = "jens jensen"
fBNname = left(ucase(name),1)
nBNname = len(name)
aBNname = right(lcase(name),nBNname)
name = fBNname & aBNname
%>
Det er mere når der også både der efternavne og mellemnavne problemet opstår...
- Men man kan måske lave en split-funktion... Men hvordan skal den så integreres?

\Dan

- Jeg mente selvfølgelig:
<%
name = "jens jensen"
fBNname = left(ucase(name),1)
nBNname = len(name)-1
aBNname = right(lcase(name),nBNname)
name = fBNname & aBNname
%>
Output: Jens jensen

dvs at dit problem faktisk er at du ikke kan få efternavnets første bogstav til at blive stort

er der egentlig altid mellemrum mellem fornavn og efternavn

Hejsa.

Jeps der er altid mellemrum mellem fornavn og efternavn eftersom...
Du får lige mit nyeste eksempel her:
Her er problemet så ikke at den ikke kan få efternavn og mellemnavn med stort... Her problemet lidt mindre... Her laver den et mellemrum efter hele navnet... Måske et lidt mindre problem men det vil jeg gerne have væk alligevel...
<%
name = "jens jensen"
Sname = split(name," ")
for i=0 to ubound(Sname)
fBNname = left(ucase(Sname(i)),1)
nBNname = len(Sname(i))-1
aBNname = right(lcase(Sname(i)),nBNname)
Rname = Rname & fBNname & aBNname & " "
next
Response.Write Rname
%>
Som du kan se så laver den et mellemrum imellem hvert navn/ord... Og også et mellemrum til sidst... Kan man ikke fjerne det ene mellemrum på en måde?

- Og eventuelt også lave det hele til en funktion i stedet?

\Dan

hejsa!

    function Name(username)
   
        Sname = split(username," ")
        for i=0 to ubound(Sname)
        fBNname = left(ucase(Sname(i)),1)
        nBNname = len(Sname(i))-1
        aBNname = right(lcase(Sname(i)),nBNname)
        Rname = Rname & fBNname & aBNname & " "
        next   
        Rname = RTrim(Rname)

        Name = RName   
    end function
   
    Response.Write Name("jens jensen") + "TEMP"

Nu får du ikke dit mellemrum efter efternavnet og er blevet placeret i en function

- OK! Mange tak!

Det virker præcis efter hensigten...

Smider du ikke lige et svar for point?

Endnu engang tak...

\Dan

Her kommer et svar

God Weekend

Tak og i lige måde!