(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
(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 ?
« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)
« Las ondas nunca regresan. » (Genesis: Ripples, 1976)
« Vita non suavis esse potest, nec Mors amara. » (...vuott)
(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
Un amigo
Última modificación: 02-11-2020, 21:39 por gambafeliz.
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Última modificación: 02-11-2020, 21:34 por gambafeliz.
Mi código tiene en cuenta el modo de composición de los caracteres extra-alfabeto anglosajón.
« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)
« Las ondas nunca regresan. » (Genesis: Ripples, 1976)
« Vita non suavis esse potest, nec Mors amara. » (...vuott)
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.
Última modificación: 02-11-2020, 21:38 por gambafeliz.
(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.
De todas formas una otra idea la dio tincho:
https://gambas-es.org/showthread.php?tid=171
Última modificación: 02-11-2020, 23:14 por vuott.
« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)
« Las ondas nunca regresan. » (Genesis: Ripples, 1976)
« Vita non suavis esse potest, nec Mors amara. » (...vuott)
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.
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.
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))
NextCita: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.
Última modificación: 03-11-2020, 15:25 por gambafeliz.