Comunidad Gambas-es
[SOLUCIONADO] Detectar Tilde en una cadena - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: General (https://gambas-es.org/forum-4.html)
+--- Tema: [SOLUCIONADO] Detectar Tilde en una cadena (/thread-163.html)

Páginas: 1 2

RE: Detectar Tilde en una cadena - gambafeliz - 01-11-2020

(01-11-2020, 17:02)guizans escribió: Esto es válido. El problema que encontré es precisamente con los caracteres especiales como las tildes, las eñes, etcétera, que no las imprime. No se el motivo.

Creo que tu duda la he resuelto en:

https://gambas-es.org/showthread.php?tid=167

RE: Detectar Tilde en una cadena - vuott - 02-11-2020

(01-11-2020, 15:44)gambafeliz escribió: vuott, siento decirte que tu código fallaría en cuanto pase algún ascii basado en un carácter no especificado por mi regla expuesta que es ("á", "é", "í", "ó", "ú", " ") supongo que te habrás dado cuenta ya.

Puedes hacer un ejemplo ?

RE: Detectar Tilde en una cadena - gambafeliz - 02-11-2020

(02-11-2020, 00:20)vuott escribió:
(01-11-2020, 15:44)gambafeliz escribió: vuott, siento decirte que tu código fallaría en cuanto pase algún ascii basado en un carácter no especificado por mi regla expuesta que es ("á", "é", "í", "ó", "ú", " ") supongo que te habrás dado cuenta ya.

Puedes hacer un ejemplo ?

vuott, tienes razón, tu código funciona de las mil maravillas. Por favor, te pido humildemente disculpas. Osado de mi Smile

Un amigo

RE: Detectar Tilde en una cadena - gambafeliz - 02-11-2020

Esto es lo máximo que he podido compactar el código para hacer lo que pido:

Código:
For Each sCadena As String In ["Fecha de compras", "Descripción", "Año de Investigación", "Fecha creación"]
   aConComillasoNo.Add(IIf(InStr(sCadena, " ") > 1 Or InStr(sCadena, "á") > 1 Or InStr(sCadena, "é") > 1 Or InStr(sCadena, "í") > 1 Or InStr(sCadena, "ó") > 1 Or InStr(sCadena, "ú") > 1, "'" & sCadena & "'", sCadena))
Next


RE: Detectar Tilde en una cadena - vuott - 02-11-2020

Mi código tiene en cuenta el modo de composición de los caracteres extra-alfabeto anglosajón.

RE: Detectar Tilde en una cadena - gambafeliz - 02-11-2020

Tu código vuott es la leche, me gusta, lo que pasa es que yo quería compactar el número de líneas en código.

RE: Detectar Tilde en una cadena - vuott - 02-11-2020

(02-11-2020, 21:37)gambafeliz escribió: yo quería compactar el número de líneas en código

...esperemos que no se convierta en una obsesión. Confused
De todas formas una otra idea la dio tincho:

   https://gambas-es.org/showthread.php?tid=171

RE: Detectar Tilde en una cadena - gambafeliz - 03-11-2020

Primero un ¡¡¡ Bravisimo !!! para tincho por que es exactamente lo que yo buscaba pero no sabia si existía, Genial Smile

Por lo tanto así queda el código que para mi es extremadamente compacto.

Código:
For Each sCadena As String In ["Fecha de compras", "Descripción", "Año de Investigación", "Fecha creación"]
     aConComillasoNo.Add(IIf(sCadena Like "*[ áéíóú]*", " '" & sCadena & "'", sCadena))
Next
Cita:vuott:
...esperemos que no se convierta en una obsesión.

Pues sí, empezó como un entretenimiento, un juego, y me parece que a mutado a una obsesión. Me encanta llegar al limite en todo lo que hago. Rayos y centellas. Smile

Gracias vuott me has dado un enlace buenísimo algo que quería como el comer.