+- 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] Necesito acelerar código, ¿me ayudan? (/thread-454.html)
Páginas:
1
2
Necesito acelerar código, ¿me ayudan? - gambafeliz - 11-06-2021
Hola,
Tengo varios problemas de lentitud en varios trozos de código y os voy a poner uno por si me pueden ayudar. Gracias.
¿Sería posible acelerar esto?
Código:
' cadena por ejemplo se le pasa -32,40 €
Public Function soloNumeros(cadena As String) As String
Dim n As Integer
Dim sCadena As String
For n = 0 To Len(cadena)
If IsDigit(cadena[n]) Or If cadena[n] = "." Or If cadena[n] = "," Or If cadena[n] = "-" Then sCadena &= cadena[n]
Next
Return IIf(sCadena = "", "0", sCadena)
EndRE: Necesito acelerar código, ¿me ayudan? - vuott - 11-06-2021
...podemos quitar un elemento:[code]
...y, si está absolutamente seguro de que el carácter "/" nunca estará presente en la cadena de caracteres entre los números, pasada a la función "soloNumeros()", entonces podemos eliminar un otro elemento:
[code]
RE: Necesito acelerar código, ¿me ayudan? - Shordi - 11-06-2021
Tras probar varios enfoques, el original es el más rápido... dependiendo de lo que le pongas. Sin embargo como está, supongo, destinado a depurar cadenas cortas casi siempre numéricas, ahí es el más rápido por los atajos decisivos de "or if" porque la mayoría de los caracteres no pasa de isdigit() y no hay que mirar más.
saludos
Código:
RE: Necesito acelerar código, ¿me ayudan? - vuott - 11-06-2021
(11-06-2021, 15:17)vuott escribió: si está absolutamente seguro de que el carácter "/" nunca estará presente en la cadena de caracteres entre los números
...o mejor:
Código:
Public Function soloNumeros(cadena As String) As String
Dim n As Integer
For n = 0 To Len(cadena)
If (Asc(cadena[n]) < 44) Or (Asc(cadena[n]) > 57) Then Mid(cadena, n + 1, 1) = Null
Next
Return cadena
End...o si prefieres sin la palabra-llave "Return":
Código:
Public Sub Main()
Dim cadena As String = "-32.40€"
Dim bb As New Byte[]
bb = bb.FromString(cadena)
soloNumeros(bb)
Print bb.ToString(0, bb.Find(0))
End
Private Function soloNumeros(cadena As Byte[])
Dim n As Integer
For n = 0 To cadena.Max
If (cadena[n] < 44) Or (cadena[n] > 57) Then cadena[n] = 0
Next
EndRE: Necesito acelerar código, ¿me ayudan? - cogier - 11-06-2021
La velocidad de esto ya es muy rápida. Tuve que pasar por un millón de ejemplos para obtener un resultado de velocidad razonable. He puesto una solución ligeramente diferente, (If IsNumber(cadena[n]) Then sCadena &= cadena[n]) pero la diferencia de velocidad es insignificante.
Prueba este código.Tendrás que cambiar el formato del número en la línea 51.
Código:
' Gambas class file
Public Sub Form_Open()
Dim fStart, fFinish As Float
Dim sData As String[]
Dim iLoop As Integer
Dim sNull As String
Me.Center
If Not Exist(Application.Path &/ "data.txt") Then CreateNos
sData = Split(File.Load(Application.Path &/ "data.txt"), gb.NewLine, "", True)
fStart = CFloat(Now)
For iLoop = 0 To sData.Max
sNull = soloNumeros(sData[iLoop])
Next
fFinish = CFloat(Now)
Print DateDiff(fStart, fFinish, gb.Millisecond) & " milisegundos"
End
' cadena por ejemplo se le pasa -32,40 €
Public Function soloNumeros(cadena As String) As String
Dim n As Integer
Dim sCadena As String
For n = 0 To Len(cadena)
'If IsDigit(cadena[n]) Or If cadena[n] = "." Or If cadena[n] = "," Or If cadena[n] = "-" Then sCadena &= cadena[n]
If IsNumber(cadena[n]) Then sCadena &= cadena[n]
Next
Return IIf(sCadena = "", "0", sCadena)
End
Public Sub CreateNos()
Dim iLoop As Integer
Dim sTemp As String
Dim sNumbers As New String[]
For iLoop = 0 To 1000000
sTemp = ""
If Rand(1, 2) = 1 Then sTemp = "-"
sTemp &= Str(Rand(0, 99999) / 100)
sNumbers.Add(Format(sTemp, "#0.00 €")) ''************************************************
Next
File.Save(Application.Path &/ "data.txt", sNumbers.Join(gb.NewLine))
EndRE: Necesito acelerar código, ¿me ayudan? - gambafeliz - 11-06-2021
Gracias por vuestro esfuerzo. Por Dios, muchisimas gracias chicos. Incluso me he emocionado. GRACIAS.
Tras mirarlo más y gracias a vuestros puntos de vista. Me temo que no es posible acelerarlo más.
1. Necesito que me devuelva obligatoriamente "0" ó la cadena depurada donde solo admito números y su signo así como el punto y la coma.
2. Y sí es posible que este todo tipo de caracteres, intento justo depurar toda cadena para saber si es un número tal como yo lo defino.
Al final he detectado mi problema de lentitud y estoy justo ahora intentando resolverlo. Principalmente es desconocimiento de la base de datos SQLite. Os lo cuento por si detectan algo en mi conversación.
Estoy agrupando importes por su categoría y subcategoría. Pero es para cargar un grid por mes y siempre por el año actual. Tenia que crear varias View en concreto 3 para poder obtener un select final.
Además cuando creaba una vista después al final la destruia para crear el siguiente mes. En fin, esto hacia que un ordenador pensara al menos 4 segundo para cargar 12 meses. Y como me he hecho un pendrive con Debian 10 y así ejecutar Gambas IDE donde yo quiera para disfrutar mi maravilloso Gambas sin limites
pues en el pendrive incluso tenia que esperar 1 minuto para ver 12 meses. Una locura. Ojala supiera como acelerar a tope mi pendrive. Esto ocurre en cualquier ordenador, ya lo he probado. 
Me acabo de dar cuenta que si guardo el año actual en configuración de la aplicación y cada vez que ejecuto esta opción de 12 meses miro si el año ya lo guardé en configuración y utilizo las vistas sin destruirlas para tan solo cargar un pequeño select para cada mes. Así creo que será incluso instantaneo.
Pero que tontito fue para no verlo.
RE: Necesito acelerar código, ¿me ayudan? - omoreno - 11-06-2021
Hola gambafeliz
Hay que agregar los caracteres en el array simbolos.
Código:
Public Function soloNumeros(cadena As String) As String
Dim simbolos As String[] = [" ", "€", "$", "¥", "¢", "£"]
For Each s As String In simbolos
cadena = Trim(Replace(cadena, S, ""))
Next
cadena = Format(Val(cadena), "0.00")
Return cadena
EndSaludos.
RE: Necesito acelerar código, ¿me ayudan? - gambafeliz - 11-06-2021
Gracias omoreno lo voy a mirar
RE: Necesito acelerar código, ¿me ayudan? - vuott - 11-06-2021
De todas formas, debes aclarar qué posibles cadenas se pasan a la función.
¿Cualquier tipo de cadena?
O solo algunas cadenas ? Es decir:
esta forma (por ejemplo) "€3,123" es posible ?
Esta ? "€3,123w"
Esta ? "wsde"
Esta ? "3w,45€"
RE: Necesito acelerar código, ¿me ayudan? - gambafeliz - 11-06-2021
Oye vuott primero lo primero aunque se que no eres Futbolero mi enhorabuenas por ganar tu Selección a Turquía. Bravoooo.
Te cuento esta función le paso hasta arroz con cigalas por que es un mero filtro de campos de mi tabla y simplemente le paso columnas de mi tabla para definir.
Mira vuott aunque en la línea anterior afirmo eso que he dicho, es mentira, y ¿por qué? porque acabo de filtra mi Function que nombro en la pregunta y solo le paso cadenas con posibles números con número, signos (+,-) y símbolos monetarios y veo que nada más. Por lo que lo hago por aquello de por si acaso paso algo que no esperaba. Con lo cual os pido disculpa si os he liado o confundido, por su puesto no era mi intensión. Ya sabéis que os aprecio de verdad.
Espero que te haya contestado todo lo que necesitas, joven.
Saludos.