Find initialer i navn

navnet="Peter Hansen"

initialer=left(navnet,1)

for pos=2 to len(pos)
if mid(navnet,pos-1,1)=" " then initialer=initialer&mid(navnet,pos,1)
next

response.write initialer

Den er jo ustabil den der, hvis brugeren har et mellemnavn. Brug denne her istedet for:

<%
strNavn = "Søren Hansen Jensen"
strNavn = Split(strNavn," ")

For i = LBound(strNavn) to Ubound(strNavn)

    Response.Write Left(strNavn(i), 1)
   
Next
%>

Fandt denne:
Function getInitials(strName)
  Dim varTmp, strResult
  Int n 
  varTmp = Split(strName, " ", -1)
 
  For n = LBound(varTmp) To UBound(varTmp)
    strResult = strResult & Left(varTmp(n), 1)
  Next
 
  getInitials = strResult
End Function


Og da jeg har brug for Første og sidste bogstav (uden mellemnavn):

Dim Initialer
TempInitialer = getInitials("Fornavn Mellemnavn Efternavn)
' giver FME
Initialer = Left(TempInitialer,1)
Initialer = Initialer & Right(TempInitialer,1)
' giver FE

Men takker for hjælpen...

TempInitialer = getInitials("Fornavn Mellemnavn Efternavn)
skal være
TempInitialer = getInitials("Fornavn Mellemnavn Efternavn")

Madeindk: Smider du ikke et svar...

Svar :-)

Er da ikke ustabil ?

kun en lille fejl..

len(pos) skal rettes til len(navnet)

navnet="Peter Hansen"

initialer=left(navnet,1)

for pos=2 to len(navnet)
if mid(navnet,pos-1,1)=" " then initialer=initialer&mid(navnet,pos,1)
next

response.write initialer


Den tager da også mellemnavne med..


Når det så er sagt, så vil jeg så gerne indrømme at din er smartere.. Og nok også noget hurtigere ved lange navne.

Takker for indsatsen...

Tak for point.

tak tak