Discriminate between upper and lower case characters

[LanaR]

I'm working on a routine to strip out accented characters from a string and replace them with standard Latin characters.

The code does pretty much what I'm looking for, except that it doesn't seem to discriminate between upper and lower case characters. The code looks in part like;

 Select Case GrapeLetterCheck
                    
                            Case "ƒ"
                                GrapeLetterCheck = "f"
                            Case "Š"
                                GrapeLetterCheck = "S"
                            Case "š"
                                GrapeLetterCheck = "s"
                            Case "ß"
                                GrapeLetterCheck = "ss"
                            Case "Ä"
                                GrapeLetterCheck = "Ae"
                            Case "ä"
                                GrapeLetterCheck = "ae"
                                
                                ....
                                
End Select

For example, š with return S rather than s.

What do I need to change to get the code to make the distinction between Š and š (or any other upper/lower case characters)?

 

[Minty]

I would use Asc() or chr() to get / compare the character code.

? Asc( "ƒ")
131

 

[arnelgp]

you can also use AscW() and ChrW().

 

[LanaR]

Thanks, I was afraid the answer would be something like that

 

[LanaR]

? Asc( "ƒ")
131

I know that's correct, as I just did a test. But according to all the tables I've found say

ASCII code 131 = â ( letter a with circumflex accent or a-circumflex )
ASCII code 159 = ƒ ( Function sign ; f with hook sign ; florin sign )

Which confuses me to no end

 

[Minty]

Try this one

Character set (128 - 255)

Office VBA reference topic

docs.microsoft.com

 

[LanaR]

Thanks. I'd just found something similar.

I'm still curious though, why the mismatch?

 

[MarkK]

Check out the Option Compare statement at the top of your module.

'Option Compare Database
Option Compare Binary

Sub TestTextComparison()
    Debug.Print "a" = "A"
End Sub

If you change it to Option Compare Binary, then your upper and lower case characters will not be equal.

 

[LanaR]

Thanks, I'll keep that in my pocket for the next time