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.

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


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


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


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


Imprimir