Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

  1. Comunidad Gambas-es
El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Últimos temas

Estadísticas del foro
  • Mensajes del foro:1,028
  • Temas del foro:218
  • Miembros:62
  • Último miembro:AnSnarkista

  Empaquetando un directorio

Enviado por: Shell
31-12-2020, 00:44
Foro: Bash
- Respuestas (1)

Buenas!.

Quiero empaquetar el directorio "programación" por completo y crear el archivo en un directorio concreto. No necesito comprimirlo.

He usado esto:

Bash
  1. tar cvf /media/mi_usuario/directorio_destino/programacion.tar Programacion


¿ Cómo puedo asegurarme de que el archivo tar creado contiene "todo" el contenido del directorio Programación ?.
Si quiero contar archivos y directorios del directorio Programación, se puede hacer así.

Bash
  1. find . | wc -l



El resultado es entre directorios y archivos: 89612

Para listar el contenido de un archivo tar en este caso puedo hacer esto:

Bash
  1. tar tvf  programacion.tar



Como la lista de archivo se muestra sin líneas vacías al igual que hace el comando find. Para contar cada una de las líneas que muestra la instrucción anterior puedo hacer:

Bash
  1. tar tvf  programacion.tar | wc -l



Pero observo que me cuenta: 89606

Hay una diferencia de "seis".  ¿ A que puede ser debido ?. ¿ Es una forma correcta ?.

Saludos
Puedo contar los tipos por separados del directorio Programación:

Contar solo los tipo archivos:

Bash
  1. find . -type f | wc -l



Me da: 68665

Contar solo los tipo directorios:

Bash
  1. find . -type d | wc -l



Me da: 20922

Total directorios y archivos: 68665 + 20922 = 89587

Que tampoco tiene que ver con: 89612

Se come 25... Huh

En cuanto a si quiero saber cuantos directorios me muestra la salida del tar con las opciones tvf.
Me muestra el mismo número de directorios usando:

Bash
  1. tar tvf programacion.tar | grep "^d" | wc -l



Ale que es tarde y casi es fin de año.. en que cosas me distraigo. Big Grin

Saludos

Imprimir

  Teseo. Aplicación para gestión de una red de telecentros

Enviado por: Shell
30-12-2020, 01:14
Foro: General
- Sin respuestas

Buenas!. Smile

Pues estaba revisando códigos de Gambas de una página y encontré esto:

Teseo. Vital Innova

Desde luego es antiguo. Pero como me picó la curiosidad quise averiguar un poco más.
 

Cita:Teseo es una aplicación de gestión completamente desarrollada en Gambas, que permite el control de una red de telecentros.
Teseo ha sido desarrollada por Vital Innova, dentro del proyecto “Gestión de Telecentros con Software Libre”, en el que actualmente trabajo, y ha sido publicada como software libre, por lo que es posible descargar tanto el código como la documentación asociada en la siguiente dirección:

Debe ser algo dedicado a la educación. Huh

La web ya no funciona.

También encontré esto:

Gestión de Telecentros con software libre

Es un pdf explicando como va la cosa y el software que se usa en este proyecto para los distintos sistemas operativos.

De paso deciros que el blog ya también antiguo, tiene sus cosas de interés. Para repasar me vale.  Smile

Saludos

Imprimir

  Uso de update en Gambas

Enviado por: dariodr
28-12-2020, 07:03
Foro: Bases de Datos
- Respuestas (7)

Hola comunidad, tengo este pequeno programa de ejemplo con base de datos (SQLite3), el problema es a la hora de hacer el Update no se actualiza la DB, tengo que cerrar la aplicacion y volverla a abrir para que se actualicen. Me podiran decir que le falta. El codigo de actualzar esta en el boton Menu3_click.
Les dejo el codigo.
Saludos.

GAMBAS
  1. ' Gambas class file
  2.  
  4. Private TablaContactos As Result
  5.  
  6.  
  7. Public Sub Form_Open()
  8.  
  9.    conexion = New Connection
  10.    conexion.Type = "sqlite3"
  11.    conexion.Host = "/home/dario/gambas/PruebaBaseDatos/"
  12.    conexion.Name = "base"
  13.    
  14.    Try conexion.Open()
  16.       Message.Error("Error al conectar a la base de datos")
  17.       conexion = Null
  18.    Else
  19.       TablaContactos = conexion.Exec("Select * From contactos")
  20.       If TablaContactos.Available Then MostrarCampos
  21.    Endif
  22.  
  24.  
  25. Public Sub MostrarCampos()
  26.    
  27.   txtID.Text = TablaContactos["id"]
  28.   txtNombre.Text = TablaContactos["Nombre"]
  29.   txtApellido.Text = TablaContactos["Apellido"]
  30.   txtTelefono.Text = TablaContactos["Telefono"]
  31.   txtMail.Text = TablaContactos["Mail"]
  32.   txtNacimiento.Text = TablaContactos["FechaNacimiento"]
  33.    
  35.  
  36.  
  37. Public Sub btnPrimero_Click()
  38.  
  39.    TablaContactos.MoveFirst()
  40.    MostrarCampos
  41.  
  43.  
  44. Public Sub btnAnterior_Click()
  45.  
  46.    TablaContactos.MovePrevious()
  47.    
  48.    If Not TablaContactos.Available Then TablaContactos.MoveFirst()
  49.    MostrarCampos
  50.  
  52.  
  53. Public Sub btnSiguiente_Click()
  54.  
  55.    TablaContactos.MoveNext()
  56.    
  57.    If Not TablaContactos.Available Then TablaContactos.MoveLast()
  58.    MostrarCampos
  59.  
  61.  
  62. Public Sub btnUltimo_Click()
  63.  
  64.    TablaContactos.MoveLast()
  65.    MostrarCampos
  66.  
  68.  
  69. Public Sub Menu2_Click()
  70.  
  71.    btnGuardar.Visible = True
  72.    btnCancelar.Visible = True
  73.    btnPrimero.Visible = False
  74.    btnAnterior.Visible = False
  75.    btnSiguiente.Visible = False
  76.    btnUltimo.Visible = False
  77.    txtID.Text = ""
  78.    txtNombre.Text = ""
  79.    txtApellido.Text = ""
  80.    txtTelefono.Text = ""
  81.    txtMail.Text = ""
  82.    txtNacimiento.Text = ""
  83.  
  85.  
  86. Public Sub btnGuardar_Click()
  87.  
  88.    Dim VarResult As Result
  89.    
  90.    VarResult = conexion.Create("Contactos")
  91.    conexion.Exec("insert into contactos values(&1,&2,&3,&4,&5,&6)",
  92.       txtID.Text, txtNombre.text, txtApellido.Text, txtTelefono.Text, txtMail.text, txtNacimiento.text)
  93.       
  94.    'VarResult = Conexion.Create("Contactos")
  95.    'VarResult["id"] = txtID.Text
  96.    'VarResult["Nombre"] = txtNombre.Text
  97.    'VarResult["Apellido"] = txtapellido.Text
  98.    'VarResult["FechaNacimiento"] = txtNacimiento.Text
  99.    'VarResult["Telefono"] = txtTelefono.Text
  100.    'VarResult["Mail"] = txtMail.Text
  101.    VarResult.Update
  102.    TablaContactos = Conexion.Exec("Select * from Contactos")
  103.    btnGuardar.Visible = False
  104.    btnCancelar.Visible = False
  105.    btnPrimero.Visible = True
  106.    btnAnterior.Visible = True
  107.    btnSiguiente.Visible = True
  108.    btnUltimo.Visible = True
  109.  
  111.  
  112. Public Sub btnCancelar_Click()
  113.  
  114.    btnGuardar.Visible = False
  115.    btnCancelar.Visible = False
  116.    btnPrimero.Visible = True
  117.    btnAnterior.Visible = True
  118.    btnSiguiente.Visible = True
  119.    btnUltimo.Visible = True
  120.    MostrarCampos
  121.  
  123.  
  124. Public Sub Menu3_Click()
  125.  
  126.   Dim VarResult As Result
  127.  
  128.   'VarResult = Conexion.Edit("Contactos", "id=" & TablaContactos["id"])
  129.   'VarResult["id"] = txtID.text
  130.   'VarResult["Nombre"] = txtNombre.text
  131.   'VarResult["Apellido"] = txtapellido.text
  132.   'VarResult["FechaNacimiento"] = txtNacimiento.text
  133.   'VarResult["Telefono"] = txtTelefono.text
  134.   'VarResult["Mail"] = txtMail.text
  135.   'VarResult.Update
  136.   'TablaContactos = Conexion.Exec("Select * from Contactos")
  137.   conexion.Exec("update contactos set nombre ='" & txtNombre.Text & "' where id ='" & txtID.Text & "';")
  138.  
  139.  
  141.  
  142. Public Sub Menu5_Click()
  143.  
  145.  
  147.  
  148. Public Sub Form_Close()
  149.  
  150.   If Message.Question("¿Desea salir del programa?", "Si", "No") = 2 Then
  151.     Stop Event
  152.   Else
  153.     Conexion.Close
  154.   End If
  155.  


Imprimir


  1. Comunidad Gambas-es