Shell 10-10-2022, 15:11
Buenas!.
Estoy ejecutando un test y me devuelve violación de segmento rápidamente. A ver como se depura eso.
Es un error en tiempo de ejecución.
Os adjunto el código. Lo primero que se me ocurre es que el array crece y crece.
En la primera función no uso el componente gb.util y en el siguiente si. Casi me da igual en resultado por eso lo del test.
Por otra parte nadie recibe el valor devuelto por la función. Que podría ser un procedimiento que no devuelva valor.
De un post explicado que es y con el lenguaje "C"..yikes! ..es broma.
¿Qué significa Violacion de Segmento?
Algo común: Se produce cuando...
El error se produce en Object.Call desde la primera vez.
Estoy ejecutando un test y me devuelve violación de segmento rápidamente. A ver como se depura eso.
Es un error en tiempo de ejecución.
Os adjunto el código. Lo primero que se me ocurre es que el array crece y crece.
Código:
Public Sub btnSelectDir_Click()
ObtenerNomArchivos(ruta)
End
Public Sub ObtenerNomArchivos(directorio As String)
Dim archivos As String[]
archivos = Dir(directorio, "*.*", gb.File)
If archivos.Length = 0 Then
Return
Else
TestBenchMark("ObtenerExtensiones", archivos)
TestBenchMark("ObtenerExtensiones2", archivos)
Endif
End
Public Sub TestBenchMark(nombrefuncion As String, aelementos As String[])
Dim i, t As Float
Dim ob As Object
ob = Me
t = Timer
For i = 1 To 10 ^ 6
Object.Call(ob, nombrefuncion, aelementos)
Next
Print "Tiempo para 10^6 repeticiones, método: " & nombrefuncion & " = " & "\t"; Format(Timer - t, "0.######") & "s" & "\t"
End
Public Sub ObtenerExtensiones(aarchivos As String[]) As String[]
Dim aextensiones As New String[]
Dim nombref As String
Dim extension As String
Dim pos As Integer
For Each nombref In aarchivos
pos = RInStr(nombref, ".")
extension = Mid(nombref, pos + 1)
If Not aextensiones.Exist(extension) Then
aextensiones.Add(extension)
Endif
Next
Return aextensiones
End
Public Sub ObtenerExtensiones2(aarchivos As String[]) As String[]
Dim aextensiones As New String[]
Dim nombref As String
Dim extension As String
For Each nombref In aarchivos
extension = File.Ext(nombref)
If Not aextensiones.Exist(extension) Then aextensiones.Add(extension)
Next
Return aextensiones
EndEn la primera función no uso el componente gb.util y en el siguiente si. Casi me da igual en resultado por eso lo del test.
Por otra parte nadie recibe el valor devuelto por la función. Que podría ser un procedimiento que no devuelva valor.
De un post explicado que es y con el lenguaje "C"..yikes! ..es broma.
¿Qué significa Violacion de Segmento?
Algo común: Se produce cuando...
Cita:- Intentar acceder una variable que ya fue liberada.
- Intentar escribir sobre una variable de solo lectura. ( No se da el caso , no es una propiedad ).
El error se produce en Object.Call desde la primera vez.
Shell 09-10-2022, 11:23
Buenas!.
Pues más consejo para estar con el pc.
No tenéis que comprar las marcas o los productos que nos habla el fisioterapeuta ( os recomiendo cualquiera de sus vídeos ).
No os toméis a broma el tema. Ahora en vídeo. El dolor no es una opción.
Uno de los problemas es que a veces la silla puede llevar reposa brazos y hay que quitarlo por que chocan con la mesa.
Algo que me llamó la atención es que el trabajador se ponga de pie a trabajar con el pc. Supongo que poco tiempo.
Si no que se lo pregunten a los peluqueros/as.
Ah,¿ y os habéis fijado cuando habla de las pestañas que disponen muchos teclados para elevarlo ?.
Que mejor bajadas.
Saludos y cuídense.
Pues más consejo para estar con el pc.
No tenéis que comprar las marcas o los productos que nos habla el fisioterapeuta ( os recomiendo cualquiera de sus vídeos ).
No os toméis a broma el tema. Ahora en vídeo. El dolor no es una opción.
Uno de los problemas es que a veces la silla puede llevar reposa brazos y hay que quitarlo por que chocan con la mesa.
Algo que me llamó la atención es que el trabajador se ponga de pie a trabajar con el pc. Supongo que poco tiempo.
Si no que se lo pregunten a los peluqueros/as.
Ah,¿ y os habéis fijado cuando habla de las pestañas que disponen muchos teclados para elevarlo ?.
Que mejor bajadas.
Saludos y cuídense.
Shell 08-10-2022, 10:56
Buenas!
¿ Han usado alguna vez el modificador "w" ?. No doy con la tecla de un buen resultado
Hay que añadirle algo más. Recordar que lo de w es por Width.
La ayuda breve que me muestra es:
Me funciona con 0, pero no aparentemente con otros números. A lo más, una columna que es como si escribiese: "ls -1"
Desde luego si escribo ls -w 0 , es un lío la salida por pantalla. Aparenta que es igual ls -w 0 que ls -w0 (lo ha permitido).
¿ Han usado esta opción ?. No encuentro muchas referencias.
El comando Linux LS: Cómo Listar archivos en un directorio + indicadores de opción
Por defecto al escribir ls, muestra por columnas y colores ( es un alias de "ls --color=auto"). Si quieren ver los alias de comandos en su distro, pueden hacerlo con
"alias" sin las comillas.
Saludos
¿ Han usado alguna vez el modificador "w" ?. No doy con la tecla de un buen resultado
Cita:ls: la opción requiere un argumento -- 'w'
Pruebe 'ls --help' para más información.
Hay que añadirle algo más. Recordar que lo de w es por Width.
La ayuda breve que me muestra es:
Cita:
set output width to COLS. 0 means no limit
Me funciona con 0, pero no aparentemente con otros números. A lo más, una columna que es como si escribiese: "ls -1"
Desde luego si escribo ls -w 0 , es un lío la salida por pantalla. Aparenta que es igual ls -w 0 que ls -w0 (lo ha permitido).
¿ Han usado esta opción ?. No encuentro muchas referencias.
El comando Linux LS: Cómo Listar archivos en un directorio + indicadores de opción
Por defecto al escribir ls, muestra por columnas y colores ( es un alias de "ls --color=auto"). Si quieren ver los alias de comandos en su distro, pueden hacerlo con
"alias" sin las comillas.
Saludos
Bienvenido, Invitado
Últimos temas
Problemas con las interru...
Foro: GeneralÚltimo mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 236
Scrolling un ScrollArea
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 249
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 933
Resultados dispares según...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 393
Mover un Result a una pos...
Foro: Bases de DatosÚltimo mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 221