comparing characters with diacritic signs

[Pablo Cardellino]

Hi,
is there any setting for comparing characters with diacritic signs?

I need this sample comparisons to be evaluated as true:

a = Á
e = ê
C = ç
I = í

and so on.

Option Compare Text helps for case insensitive comparison, but not to
compare diacritic characters.

I've already written a function to do this, but I think it should be a
native way for.

Thanks in advance,

Pablo Cardellino
Florianópolis, SC
Brazil

 

[Klaus Linke]

Hi Pablo,

I'm not aware of a *direct* built-in way, but this seems to work:

? StrConv("Á", vbLowerCase, 8)
a

? StrConv("ê", vbLowerCase, 8)
e

? StrConv("ç", vbLowerCase, 8)
c

? StrConv("í", vbLowerCase, 8)
i

(I got the LCID of 8 simply by trying... assuming there would be one that
would work, and 8 was the first value that did)

So a simple function for your purpose could be:

Function Norm(Char1 As String) As String
If Len(Char1) <> 1 Then
MsgBox "Error: Function meant to work on single characters!"
End If
Norm = StrConv(Char1, vbLowerCase, 8)
End Function

.... and then compare

? Norm("a") = Norm("Á")
True

? Norm("C") = Norm("ç")
True

? Norm("é") = Norm("A")
False

etcetera

Regards,
Klaus

 

[Klaus Linke]

I've just tested the Norm function, and the following Unicode characters are
converted to "a":

AaÀÁÂÃÄÅàáâãäåAaAaAaAaAaAa

While it's not perfect (... say I'd have hoped to see characters from "Latin
Extended Additional" with uncommon and/or multiple accents), it's not bad
either.

Klaus

 

[Klaus Linke]

Why didn't that get across as Unicode? Another try:



a = AaÀÃÂÃÄÅàáâãäåĀÄĂ㥹ÇǎǞǟＡï½

b = BbƀＢｂ

c = CcÇçĆćĈĉĊċČÄＣｃ

d = DdÄŽÄÄđ♪♫Ｄｄ

e = EeÈÉÊËèéêëĒēĔĕĖėĘęĚěＥｅ

f = FfＦｆ

g = GgÄœÄĞğĠġĢģǤǥǦǧＧｇ

h = HhĤĥĦħＨｈ

i = IiÃŒÃÃŽÃìíîïĨĩĪīĬĭĮįİƗÇÇＩｉ

j = JjĴĵǰＪｊ

k = KkĶķǨǩＫｋ

l = LlĹĺĻļĽľÅłƚ∟└╚Ｌｌ

m = Mmï¼­ï½

n = NnÑñŃńŅņŇňＮｎ

o = OoÒÓÔÕÖØòóôõöøŌÅÅŽÅÅőƟƠơǑǒǪǫǬǭ☺☻Ｏï½

p = Ppï¼°ï½

q = QqＱｑ

r = RrŔŕŖŗŘřＲｒ

s = SsŚśŜÅŞşŠšＳｓ

t = TtŢţŤťŦŧƫƮ┬╦Ｔｔ

u = UuÙÚÛÜùúûüŨũŪūŬŭŮůŰűŲųƯưǓǔǕǖǗǘǙǚǛǜＵｕ

v = Vv↓Ｖｖ

w = WwŴŵＷｗ

x = XxＸｘ

y = YyÃýÿŶŷŸＹｙ

z = ZzŹźŻżŽžＺｚ

 

[Pablo Cardellino]

Thanks Klaus,
it worked fine, and yet it is not a native function, it is much more
economic than the one I'd written.
Regards,

Pablo Cardellino
Florianópolis, SC
Brazil