Find fornavne og efternavne

Tjae...
Hvad med bare at lave en split?
- Som her:
<%
navn = split("Niels Nielse Nielsen"," ")
fornavn = navn(0)
efternavn = navn(1)
%>

- Eller virker dette ikke?

\Dan

Men vil ovenstående ikke give:

fornavn = Niels
efternavn = Nielse

?

Jo. Prøv i stedet med noget i denne stil:

<%
FuldtNavn = "Niels Nielse Nielsen"

Dim NavnArr
NavnArr = Split(FuldtNavn)

ForNavn = ""

For idx=LCase(NavnArr) To UCase(NavnArr)-1
    If ForNavn <> "" ForNavn = ForNavn & " "
    ForNavn = ForNavn & NavnArr(idx)
Next

EfterNavn = NavnArr(UCase(NavnArr))
%>

Med et regulært udtryk

FuldtNavn = "Niels Nielse Nielsen"

Set re = New RegExp
re.Pattern = "(.*) (.*)"
Set m = re.Execute(FuldtNavn)

ForNavn = m(0).SubMatches(0)
EfterNavn = m(0).SubMatches(1)

ranglen: Jeg har anvendt din løsning - takker.

Vil du lægge et svar...

ranglen: Jeg har anvendt din løsning - takker.

Vil du lægge et svar...

Ingen respons...

Ingen respons...