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å.

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?

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

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...

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*