Hej,

Försöker få till en sträng(emailadress) som jag vill men lyckas inte.
Om emailadressen ser ut så här:
"kalle.svensson@telia.com"

så skall det skrivas ut så här:
Svensson, Kalle

Ser emailadressen ut så här:
kalle.M.svensson@telia.com

så skall detta skrivas ut:
Svensson, Kalle M

"telia.com" skall alltså inte vara med på något av alternativen.
Jag har försökt i timmar nu, men får inte till det.

Någon som kan hjälpa mig?

/Jocke

Börja med att splitta strängen till en array

myArray = split(email,".")

nu har du
myarray(0) = "kalle"
myarray(1) = "svensson@telia"
myarray(2) = "com"

Sen får du även ta hand om 1:an

myarray(1) = left(myarray(1), instr(myarray(1),"@")-1))

då blir

myarray(1) = "svensson"

nu kan du börja pussla ut detta så det blir rätt.

namn = myarray(1) & ", " & myarray(0)

Men det går även att göra med regexp och säkert lättare - men jag behärskar tyvärr inte det.

Tack!
Löste det precis på ett annat sätt:
Den tar även bort eventuella apostrofer.
<code>
<%
'Call function
SplitNameFromEmailAdress("kalle.a.svensson@telia.com")

Sub SplitNameFromEmailAdress(sInput)

Dim sOutput
Dim sLastname
Dim sFirstname
Dim sInitial

' Remove "@telia.com"
sInput = Mid(sInput, 1, (InStr(1, sInput, "@") - 1))

' Remove any "'"
sInput = Replace(sInput, "'", "")

If InStr(InStr(1, sInput, ".") + 2, sInput, ".") Then

sFirstname = Mid(sInput, 1, (InStr(1, sInput, ".") - 1))
sInitial = Mid(sInput, (InStr(1, sInput, ".") + 1), 1)
sLastname = Mid(sInput, (InStr(1, sInput, ".") + 3))

sOutput = sLastname & ", " & sFirstname & " " & sInitial

Else

sFirstname = Mid(sInput, 1, (InStr(1, sInput, ".") - 1))
sLastname = Mid(sInput, (InStr(1, sInput, ".") + 1))

sOutput = sLastname & ", " & sFirstname

End If

Response.Write sOutput

End Sub
%>
</code>


/Jocke