Keskustelu: Ohjelmointikysymykset: VB6: Kirjainkoolla väliä

Visual basic

Elikkä mitenköhän ohjelma saisi selville että onko teksti kirjoitettu isoilla vai pienillä kirjaimilla?..

https://www.ohjelmointiputka.net/hak/?kieli­=Visual Basic&alue=Merkkijonot ja tuolta LCase / UCase / StrComp

en hae nyt tuota LCase enkä UCasea vaan tarkoitus olisi ottaa textboxista selville onko se kirjoitettu isoilla vai pienillä.. eikä tarvi muuttaa niitä joko isoiksi tai pieniksi..

Kuten tsuriga jo vastasi, niin vastaus on StrComp.

Dim MerkkijonoA As String: MerkkijonoA = "FOO"
Dim MerkkijonoB As String: MerkkijonoB = "bar"
Dim MerkkijonoC As String: MerkkijonoC = "Foobar"

MsgBox StrComp(MerkkijonoA, UCase(MerkkijonoA), vbBinaryCompare) 'ei muutosta, joten 0
MsgBox StrComp(MerkkijonoB, UCase(MerkkijonoB), vbBinaryCompare) 'muutos pienestä suurempaan, joten 1
MsgBox StrComp(MerkkijonoC, LCase(MerkkijonoC), vbBinaryCompare) 'muutos suuresta pienempään, joten -1

Jos merkkijono on sama kuin UCase(merkkijono), se on kirjoitettu isoilla kirjaimilla. Jos merkkijono on sama kuin LCase(merkkijono), se on kirjoitettu pienillä kirjaimilla. Tietysti voi olla myös niin, että merkkijonossa on sekaisin isoja ja pieniä kirjaimia.

Dim teksti As String
teksti = "ABC"
If UCase(teksti) = teksti Then
    MsgBox "isot kirjaimet"
ElseIf LCase(teksti) = teksti Then
    MsgBox "pienet kirjaimet"
Else
    MsgBox "kirjaimia sekaisin"
End If

Jos tarkoitit jotain muuta, niin tarkenna...

Merri suosittelee LCase$ ja UCase$ ja Mid$ ja Left$ ja Right$ ja niin edelleen versioita merkkijonofunktioista.

niin tietysti.. eipä tullu tuota aatelleeksi.. :D kiitoksia..