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.

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
 
End

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. Wink

¿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.   Sad

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
 
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. Smile

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
Páginas (564):    1 261 262 263 264 265 564   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 292
Último miembro: DarkWolf
Temas del foro: 1,742
Mensajes del foro: 9,029
Últimos temas
Ordenar en un TableView
Foro: General
Último mensaje por: Shordi, 03-11-2025, 18:41
Respuestas: 3 - Vistas: 100
Odio a gb.Report
Foro: General
Último mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,546
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,329
Ordenando las carpetas
Foro: Programación en otros lenguajes
Último mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 112
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.