Avatar billede picard Nybegynder
24. juli 2001 - 09:48 Der er 11 kommentarer og
2 løsninger

Tjekke om en char er et stort eller et lille bogstav

Hejsa

Hvordan tjekker man på en smart måde, om en given karakter er et stort eller et lille bogstav ?
Jeg bruger VB5.

Tak på forhånd

Christian
Avatar billede proaccess Nybegynder
24. juli 2001 - 09:53 #1
if Char = UCase(Char) then
  msgbox \"Stort\"
else
  msgbox \"Lille\"
endif
Avatar billede terry Ekspert
24. juli 2001 - 10:00 #2
If Asc(char) < 97 Then
    MsgBox \"Stort\"
Else
    MsgBox \"Lille\"
End If
Avatar billede terry Ekspert
24. juli 2001 - 10:09 #3
Using ASC is going to give problems with special characters such as the danish Å, Æ, and Ø.

You can use ASC() to find values of other characaters and place then in your IF

\'198 = Æ
If Asc(char) < 97 Or Asc(char) = 198 Then
Avatar billede picard Nybegynder
24. juli 2001 - 10:24 #4
doh

Jeg havde sq slet ikke tænkt i de baner :)
Bruger Proaccess foreslag !

Takker
Avatar billede terry Ekspert
24. juli 2001 - 10:27 #5
proaccess> Just a comment, but I cant get your answer to work, can you picard?

Avatar billede picard Nybegynder
24. juli 2001 - 10:28 #6
Yeah.... It works just fine :)

Avatar billede terry Ekspert
24. juli 2001 - 10:36 #7
test with lower case characters!
Avatar billede proaccess Nybegynder
24. juli 2001 - 10:52 #8
terry> I think that you are testing a string (of more than 1 character)...
If that\'s not the case, then you may have a reference-problem...
Avatar billede terry Ekspert
24. juli 2001 - 11:09 #9
Well I must have a reference/problem on three PC\'s! Two running NT4.0 and another 2000!

I must admit, looking at it I cant see why it shouldnt work, but no...

Anyway, not to worry, its not me needing help (yet!)

Avatar billede terry Ekspert
24. juli 2001 - 12:13 #10
proaccess> Found the problem!

It works as expected in VB but in Access it doesnt, do you have the same problem?
Avatar billede proaccess Nybegynder
24. juli 2001 - 12:22 #11
Yes, I got the same error in Access... :-(

BUT, here\'s the solution (combining our answers):

  If Asc(Char) = Asc(UCase(Char)) Then
    MsgBox \"Stort\"
  Else
    MsgBox \"Lille\"
  End If
Avatar billede terry Ekspert
24. juli 2001 - 12:26 #12
Yes, I\'ll buy that!

terry
Avatar billede picard Nybegynder
24. juli 2001 - 12:27 #13
Nice one :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester