Mensajes

[vlookup()]

ahora bien, he mirado que existen las llamadas formulas o funciones y he estado probando algunas, pero hay algo que no entiendo, la formula vlookup() no existe en mi excel 2010, la formula buscarv tampoco existe, aparece es buscar(), si yo me lanzo por la formula buscar() y después resulta que otra persona que quiera probar mi libro con otra versión de excel (o en otro idioma) y no le funciona la macro, porque no existe la formula, entonces creo que no serviría de mucho.

¿cómo hacen ustedes para realizar búsquedas de datos en excel?

¿Cómo la buscaste? Yo estoy probando en vba+excel 2010 y me sale con Application.WorksheetFunction.Vlookup con sus respectivos argumentos.

Saludos

Otra sería que en tu query buscaras por uno u otro, en lugar de moverle la lógica a tus dos GET

Código (sql) [Seleccionar] Expandir


select [...] from user where user_id=:user_id
union all
select [...] from user where username=:username

union all porque es más eficiente que un or, dependerá de la magnitud de tu bd.

Saludos

¿Y en qué lenguaje está?
A como lo veo se ve bastante complejo,¿Qué tipo de soporte es? No hay alternativas?

Creo que encontré la manera de mejorar el código, en la tarde que llegue a la casa le muevo al código y dejo resultados, aunque dudo llegar a la velocidad del mspaint 

Saludos desde México

Lo pasé a Vb.net, como quiera y te da una idea... Por cierto pobré la imagen le pasó lo mismo que la versión que comprimes, y con 20kb de más jaja, ojo que mi script es prácticamente hacerlo a pie y es algo lento, tardo como 40-50 segundos en hacer todo (mappeo, conversion y guardado)

Código [Seleccionar] Expandir


Public Sub listas()
Dim pixeles As Byte() = New Byte(50) {}
Dim pixeldos As Byte() = New Byte(254) {}
Dim sumador As Byte = 0
For i As Integer = 0 To pixeles.Length - 2
pixeles(i) = sumador
sumador += 5
Next
For i As Integer = 0 To pixeldos.Length - 2
pixeldos(i) = CByte(i)
Next
For i As Integer = 0 To intwidth - 1
For j As Integer = 0 To intheight - 1
'#Region "limites"
If arrayRed(i, j) = 0 OrElse arrayRed(i, j) < 2 Then
arrayRed(i, j) = 0
End If
If arrayGreen(i, j) = 0 OrElse arrayGreen(i, j) < 2 Then
arrayGreen(i, j) = 0
End If
If arrayBlue(i, j) = 0 OrElse arrayBlue(i, j) < 2 Then
arrayBlue(i, j) = 0
End If
If arrayRed(i, j) = 255 OrElse arrayRed(i, j) > 252 Then
arrayRed(i, j) = 255
End If
If arrayGreen(i, j) = 255 OrElse arrayGreen(i, j) > 252 Then
arrayGreen(i, j) = 255
End If
If arrayBlue(i, j) = 255 OrElse arrayBlue(i, j) > 252 Then
arrayBlue(i, j) = 255
End If
'#End Region
For m As Integer = 3 To pixeles.Length - 3
If arrayRed(i, j) >= pixeles(m) AndAlso arrayRed(i, j) < pixeles(m + 1) Then
arrayRed(i, j) = CByte(pixeles(m) + 2)
End If
If arrayBlue(i, j) >= pixeles(m) AndAlso arrayBlue(i, j) < pixeles(m + 1) Then
arrayBlue(i, j) = CByte(pixeles(m) + 2)
End If
If arrayGreen(i, j) >= pixeles(m) AndAlso arrayGreen(i, j) < pixeles(m + 1) Then
arrayGreen(i, j) = CByte(pixeles(m) + 2)
End If
Next
Next
Next
End Sub

Código [Seleccionar] Expandir

For i As Integer = 0 To intwidth - 1
For j As Integer = 0 To intheight - 1
Dim clr As Color = img2.GetPixel(i, j)
red = clr.R
green = clr.G
blue = clr.B
arrayRed(i, j) = clr.R
arrayGreen(i, j) = clr.G
arrayBlue(i, j) = clr.B
Next
Next

Saludos

es bastante sencillo, lo hice para una materia en la universidad en un domingo en la mañana.

a la imagen en cuestión la recorres en ancho y alto, luego le sacas el valor de los pixeles.



Luego a los arreglos generados se les asigna nuevo valor


Para no hacerla muy larga, lo que hace es generar un promedio de valores
si el pixel está en (122,152,167) lo convierte a (120,150,170), así reduce la cantidad de colores.

Si gustas pudieras dejarme alguna fotografía de esas magnitudes para ver el tiempo que dura y te paso los resultados.

*EDIT*
Ah... Y a los limites del blanco y negro le di cierto margen mayor para que no se notara tanto.


Saludos!

Hola:

Todo esto ya lo se desde hace muchos años.

Pues claro, eso es el propósito para reducir el peso de los archivos y no se ni me importa la tasa de conversión que utiliza msPaint, solo me interesa el resultado que es el que ya he explicado muchas veces (conseguir reducir el peso de los archivos sin perder calidad ni resolución a efectos del ojo humano, incluso con Zoom elevados)

Buenas,

Perdón no alcancé a leer todos los posts porque ando en el trabajo pero entiendo más o menos tu punto, corrígeme si me equivoco:
- Mantener las propiedades de la imagen (EXIF data).
- que la compresión sea humanamente sin pérdidas.
- Que la resolución no cambie.


^
Esa fue mi primer versión del compresor, así como a ti me interesaba comprimir a gran escala gran cantidad de imágenes que estuvieran pesadas y reducirlas a menos de 1MB. El truco es que yo no utilicé ninguna herramienta externa, si no hice un mappeo de los colores e hice un algoritmo bastante sencillo que es muy parecido a lo que hace .jpg cada que se guarda la imagen, solo que mi algoritmo solo hace la compresión una vez, si se vuelve a guardar ya no comprime más, a menos que se guarde con jpg...
Lo de las propiedades y eso no me puse a indagar mucho en el tema cuando lo hice, pero a ver si esté fin le busco y te resuelvo eso, sirve que mejoro el código que ya tiene sus años...

La última versión que hice maneja drop de carpetas completas.



Saludos y una disculpa si se malinterpretó mi respuesta

Buenas,

Yo recuerdo que para una clase hice un compresor de imagenes siguiendo más o menos la lógica de compresión del jpg, hay distintas compresiones, las que tienen pérdidas y las que no, para la 2da no importa cuantas veces lo guardes, va llegar a un tope y no se va comprimir más, lo que tu visualizaste con el mspaint fue que se "volvió" a comprimir con jpg a saber con que tasa de compresión...

Saludos