Hola !!!!!!
intento recorrer una cadena de caracteres para buscar acentos. La finalidad es realizar una búsqueda por hipertexto, es decir, que de igual introducir acentos o no, y en ambos casos encuentre lo mismo.
Recorro la cadena así:
For I=1 To Len(Autor)
Aux = Autor(I)
Autor(I) = QuitarAcentos (Aux)
Next
Me da error y creo que es porque no referencio bien el carácter de la cadena. Se que es una tontería, pero no recuerdo cómo se hacía.
Podéis ayudarme ??
Ah!!! pongo la función QuitarAcentos por si le sirve a alguien:
Function QuitarAcentos (Aux)
Select Case Aux
Case "Á","À","Â","Ä"
QuitarAcentos = "A"
Case "É","È","Ê","Ë"
QuitarAcentos = "E"
Case "Í","Ì","Î","Ï"
QuitarAcentos = "I"
Case "Ó","Ò","Ô","Ö"
QuitarAcentos = "O"
Case "Ú","Ù","Û","Ü"
QuitarAcentos = "U"
Case "Ý"
QuitarAcentos = "Y"
Case "á","à","â","ä"
QuitarAcentos = "a"
Case "é","è","ê","ë"
QuitarAcentos = "e"
Case "í","ì","î","ï"
QuitarAcentos = "i"
Case "ó","ò","ô","ö"
QuitarAcentos = "o"
Case "ú","ù","û","ü"
QuitarAcentos = "u"
Case else
QuitarAcentos = Aux
End Select
End Function
Muchas gracias.