Hente ut første bokstav av fornavn og hele etternavn

strNavn = "Rune Nielsen"

arrNavn = Split(strNavn, " ")
strForbogstav = Left(arr(0),1)
strEfternavn = arrNavn(1)

Response.Write(strForbogstav & ". " & strEfternavn)

//>Rune

Hov, sorry, det skulle være VBScript!

strNavn = "Rune Nielsen"

arrNavn = Split(strNavn, " ")
strForbogstav = Left(arr(0),1)
strEfternavn = arrNavn(1)

document.write(strForbogstav & ". " & strEfternavn)

//>Rune

Sorry endnu engang, nu dummer jeg mig igen! Her har du den rigtige:

strNavn = "Rune Nielsen"

arrNavn = Split(strNavn, " ")
strForbogstav = Left(arrNavn(0),1)
strEfternavn = arrNavn(1)

MsgBox(strForbogstav & ". " & strEfternavn)

//>Rune

Dette er kjempefint medions !! Men bare ett spørsmål til; Hva gjøre jeg hvis brukeren har flere navn ? F.eks. Rune Birger Nielsen ? Jeg ønsker jo ikke å hente ut navnet "Birger"...

Klarer jeg også å luke ut bokstavene æ,ø og å hvis navnet inneholder noen av disse bokstavene ?

Sådan her:

strNavn = "Rune Hørlyk Nielsen"

arrNavn = Split(strNavn, " ")
strForbogstav = Left(arrNavn(0),1)
strEfternavn = arrNavn(UBound(arrNavn))

MsgBox(strForbogstav & ". " & strEfternavn)

//>Rune

Hvad skal der ske hvis der findes et æ, ø eller å i navnet siger du? (Forstår ikke særlig godt Norsk ;o))

//>Rune

Tusen takk du har reddet dagen min !!!

Altså, er det fx. sådan her du mener?

Function UdelukDkChar(strChars)
  strChars = Replace(strChars, "æ", "ae")
  strChars = Replace(strChars, "ø", "oe")
  strChars = Replace(strChars, "å", "aa")
  UdelukDkChar = strChars
End Function

strNavn = "Rune Nielsen Hørlyk"

arrNavn = Split(UdelukDkChar(strNavn), " ")
strForbogstav = Left(arrNavn(0),1)
strEfternavn = arrNavn(UBound(arrNavn))

MsgBox(strForbogstav & ". " & strEfternavn)

//>Rune

Anytime ;o)
Thx 4 Poinz

//>Rune

Jeg skal bytte ut disse bokstavene. Hvis det finnes ø skal den byttes med o..

Det kan du selv styre med overstående eksempel! ;o)

//>Rune