[gambafeliz]

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

[vuott]

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 ?

[gambafeliz]

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

Un amigo

[gambafeliz]

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

GAMBAS

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

[vuott]

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

[gambafeliz]

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.

[vuott]

yo quería compactar el número de líneas en código

...esperemos que no se convierta en una obsesión.

---

De todas formas una otra idea la dio tincho:

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

[gambafeliz]

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

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

GAMBAS

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

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.

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