Ucase eller Lcase

[skarbratt]

Hej om jag har texten "AbCdE"

Kan jag då på något sätt få värdet på A = Ucase och b = Lcase

Tror ni förstår vad jag menar.



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

[emission]

Inte jag, i alla fall..

[bohlin]

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]

[skarbratt]

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/ (http://www.fencing4u.nu/)

[bohlin]

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

[Vide]

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 (http://www.webeye.nu)
Vilken kategori spel tycker du mest om? (http://www.webeye.nu/default.asp?que=polls/index.asp)

[Razor]

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]

[skarbratt]

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/ (http://www.fencing4u.nu/)