Snygga till en variabel

Hello,

här kommer det en liten funktion som du gör det du vill att den ska göra =O

Function SnyggaTill(varData)
	Dim arrTemp
	Dim strOP
	
	arrTemp = Split(varData)
	For I = LBound(arrTemp) To UBound(arrTemp)
		arrTemp(I) = Left(UCase(arrTemp(I)),1) & Right(arrTemp(I),Len(arrTemp(I)) - 1)

			arrTemp2 = Split(arrTemp(I),"-")
			For N = LBound(arrTemp2) To UBound(arrTemp2)
				arrTemp2(N) = Left(UCase(arrTemp2(N)),1) & Right(arrTemp2(N),Len(arrTemp2(N)) - 1)
				'## -- edit börjar här
				If N = 1 Then
					strOP = strOP & "-" & arrTemp2(N)
				Else
					strOP = strOP & " " & arrTemp2(N)
				End If
				'## -- edit slutar här
			Next
			
	Next
	
	SnyggaTill = strOP
End Function

cya

------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************

[Redigerat av PatrikB den 09 jan 2001]

Mjae, det var inte riktigt vad jag hade tänkt mig.

Det är klart att det var inte lätt för dig att veta men jag berättar nu :)

Låt säga att man heter:

"sven-erik-volter hERmansson"

Då "döps" man om till Sven-Erik Volter HERmansson

Alltså ett av bindestrecken försvinner och efternamnet får bara stor bokstav utan att resten ändras.

Några andra idéer?

------------------
Mvh
Patrik aka Brimba
Har du någon gång provat knark?

efternamnet får bara stor bokstav utan att resten ändras.

börja med att sätta varData = lcase(varData) högst upp i funktionen så borde du komma förbi det.

hur du ska göra för att få alla bindestreck rätt vet jag inte, har inte tittat på funktionen... ;)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>

För att få alla bindestreck rätt ändra denna rad:

If N = 1 Then

Till:

If N >= 1 Then

cya

------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************