opdele streng

Så skal strenge først deles ved tegnet "_", og derefter ved " "..

Hvad skal der ske, hvis man nu hedder "Mads Michael Mikkelsen"?

Du kan bruge noget i stil med:

dim navn, anavne, ini, i

navn = "Mark Mikkelsen_16"
navn = left(navn, instr(navn, "_") - 1) ' indeholder nu kun "Mark Mikkelsen"

anavne = split(navn, " ")

ini = ""
for i = Lbound(anavne) to UBound(anavne)
ini = ini & UCase(left(anavne(i), 1)
next

Det burde få følgende resultat:

Mark Mikkelsen -> MM
Mark Michael Mikkelsen -> MMM

Uha, ja...øhh havde ikke tænkt over efternavn.

Men øhh vil gerne nøjes med 2 initialer...

Rettelse (manglede et ")"):

dim navn, anavne, ini, i

navn = "Mark Mikkelsen_16"
navn = left(navn, instr(navn, "_") - 1) ' indeholder nu kun "Mark Mikkelsen"

anavne = split(navn, " ")

ini = ""
for i = Lbound(anavne) to UBound(anavne)
ini = ini & UCase(left(anavne(i), 1))
next

feltet hedder v1 hvordan får jeg det udskrevet initialerne

Ah.. hvis det kun er fornavn og efternavn, kan man gøre sådan her:

navn = v1
navn = left(navn, instr(navn, "_") - 1) ' indeholder nu kun "Mark Mikkelsen"

anavne = split(navn, " ")

if ubound(anavne) = 0 then
' der er kun et fornavn, som f.eks. Björk eller Madonna osv..
ini = UCase(left(anavne(0),1)
else
' der er flere navn, dvs, fornavn og efternavn osv..
ini = UCase(left(anavne(0), 1)) & UCase(left(anavne(ubound(anavne)), 1))
end

response.write "Initialerne for " & navn & " er: " & ini

Det var da utroligt.. jeg har glemt endnu en ")".. :-)

Sådan:

navn = v1
navn = left(navn, instr(navn, "_") - 1) ' indeholder nu kun "Mark Mikkelsen"

anavne = split(navn, " ")

if ubound(anavne) = 0 then
' der er kun et fornavn, som f.eks. Björk eller Madonna osv..
ini = UCase(left(anavne(0),1))
else
' der er flere navn, dvs, fornavn og efternavn osv..
ini = UCase(left(anavne(0), 1)) & UCase(left(anavne(ubound(anavne)), 1))
end

response.write "Initialerne for " & navn & " er: " & ini

Og så skal der også stå "end if":

navn = v1
navn = left(navn, instr(navn, "_") - 1) ' indeholder nu kun "Mark Mikkelsen"

anavne = split(navn, " ")

if ubound(anavne) = 0 then
' der er kun et fornavn, som f.eks. Björk eller Madonna osv..
ini = UCase(left(anavne(0),1))
else
' der er flere navn, dvs, fornavn og efternavn osv..
ini = UCase(left(anavne(0), 1)) & UCase(left(anavne(ubound(anavne)), 1))
End If

response.write "Initialerne for " & navn & " er: " & ini

Jeg har lige fået følgende resultat med koden fra 29/03-2008 16:25:32:

Initialerne for Mark Michael Mikkelsen er: MM

Jeg får :

Microsoft VBScript runtime  error '800a0005'

Invalid procedure call or argument: 'left'

/plan/default2.asp, line 175

Det er sikker fordi der mangler et "_", som i "_16", hvilket du sagde der ville være.. :-)

Rettet - Den checker nu om der er "_" i navnet:

navn = v1
If InStr(navn, "_") Then navn = left(navn, instr(navn, "_") - 1) ' indeholder nu kun "Mark Mikkelsen"

anavne = split(navn, " ")

if ubound(anavne) = 0 then
' der er kun et fornavn, som f.eks. Björk eller Madonna osv..
ini = UCase(left(anavne(0),1))
else
' der er flere navn, dvs, fornavn og efternavn osv..
ini = UCase(left(anavne(0), 1)) & UCase(left(anavne(ubound(anavne)), 1))
End If

response.write "Initialerne for " & navn & " er: " & ini

Årh jeg er en tosse...sorry, det virker

Jeg smider et svar :-)

Takker for points :-)