Ucase eller Lcase

Inte jag, i alla fall..

Jag tror han menar att första bokstaven ska vara stor och de andra små.

Man kan ju göra så här, men det finns säkert bättre sätt.

	Dim myArray, myText, i
	myText = "DAs tExT HEJSAN hoppSANNNNN"
	myArray = Split(myText, " ")
	myText = ""
	For i=0 To uBound(myArray)
		If myText = "" Then
			myText = UCase(Left(myArray(i), 1)) & LCase(Right(myArray(i), Len(myArray(i))-1))
		Else
			myText = myText & " " & UCase(Left(myArray(i), 1)) & LCase(Right(myArray(i), Len(myArray(i))-1))
		End If
	Next

jag har inte testat koden så jag har inte en aning om den funkar :)

efter redigering:
nu har jag provat koden. den funkar. men det finns säkert snabbare sätt att lösa problemet på.

------------------
/bohlin

[Redigerat av bohlin den 26 jul 2000]

[Redigerat av bohlin den 26 jul 2000]

[Redigerat av bohlin den 26 jul 2000]

Vad jag menade var jag vill skillja på bokstäverna A och a samt B och B, etc.

Alltså IF en bokstav är Ucase Then
och IF en bokstav är Lcase Then

Bättrer förklarat?

------------------
fencing for you?
http://www.fencing4u.nu/

hehe, nu har jag alltså gjort en meningslös funktion i onödan :)

Men nu fattar jag frågan! (kanske)

Men kan ju kolla asci-värdet på bokstäverna!

asc("A") ger 65, asc("a") ger nått annat

------------------
/bohlin

Ja, men inte med dessa funktioner... du får i sånna fall kolla vilket ASC()-nummer det är, och utifrån det göra din if-sats...

------------------
Det prasslas i säven
www.webeye.nu
Vilken kategori spel tycker du mest om?

Exempel:

Dim dinString
Dim i

dinString = "En StrInG MeD En MASsa TEckEN"

For i = 1 To Len(dinString)
If Asc(Mid(dinString, i, 1)) > 64 Or Asc(Mid(dinString, i, 1)) < 91 Then
' Stor bokstav (A-Z)!
ElseIf Asc(Mid(dinString, i, 1)) > 96 Or Asc(Mid(dinString, i, 1)) < 123 Then
' Liten bokstav (a-z)!
End If
Next

Mvh Razor

[Redigerat av Razor den 26 jul 2000]

[Redigerat av Razor den 26 jul 2000]

[Redigerat av Razor den 26 jul 2000]

Tack för allt, fått det att fungera...

Kanske t.o.m. visar er resultatet någon dag *ler*

------------------
fencing for you?
http://www.fencing4u.nu/