Avatar billede onlinepc Nybegynder
01. marts 2002 - 01:01 Der er 1 kommentar og
1 løsning

Hente første bogstav i fornavn og efternavn

Jeg vil gerne kunne hente initialer automatisk ud fra et indtastet navn.
Kaj Jensen bliver til KJ
Jens Jørgen Kristensen bliver til JJK osv.

Kan nogen hjælpe mig
Avatar billede Slettet bruger
01. marts 2002 - 01:25 #1
Hejsa - her er en lille funktion, brug den sådan her:

strInitialer = getInitials("Hans Henrik Pedersen")

Function getInitials(strName As String) As String
  Dim varTmp As Variant, strResult As String
  Dim n As Integer 
  varTmp = Split(strName, " ", -1)
  For n = LBound(varTmp) To UBound(varTmp)
    strResult = strResult & Left$(varTmp(n), 1)
  Next n
  getInitials = strResult
End Function

- Find selv ud af at udvide den så den understøtter bindestreger i navne (f.eks. "Jens-Jørgen Hansen").

/CS
Avatar billede onlinepc Nybegynder
01. marts 2002 - 01:31 #2
SKØNT
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester