Últimos temas
-
Convertir número a letras
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: kokodrilo
Hace 7 minutos
» Respuestas: 0
» Vistas: 2 -
AppImage de nuestros prog...
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: tincho
13-01-2021, 21:42
» Respuestas: 4
» Vistas: 58 -
Puerto Paralelo y Gambas3...
Foro: Hardware & IoT
Último mensaje por: AlfredoSC
09-01-2021, 22:58
» Respuestas: 13
» Vistas: 618 -
Cómo se hace un microproc...
Foro: Hardware & IoT
Último mensaje por: Shell
08-01-2021, 15:05
» Respuestas: 0
» Vistas: 37 -
Gambas en Framalibre
Foro: General
Último mensaje por: Shell
08-01-2021, 14:57
» Respuestas: 6
» Vistas: 878
Estadísticas del foro
- Mensajes del foro:1,028
- Temas del foro:218
- Miembros:62
- Último miembro:AnSnarkista

Buenas!.
Quiero empaquetar el directorio "programación" por completo y crear el archivo en un directorio concreto. No necesito comprimirlo.
He usado esto:
Bash
- 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
- 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
- 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
- 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
- find . -type f | wc -l
Me da: 68665
Contar solo los tipo directorios:
Bash
- 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...

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
- tar tvf programacion.tar | grep "^d" | wc -l
Ale que es tarde y casi es fin de año.. en que cosas me distraigo.

Saludos
Buenas!.
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.

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.

Saludos

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
- ' Gambas class file
-
-
-
-
- conexion.Type = "sqlite3"
- conexion.Host = "/home/dario/gambas/PruebaBaseDatos/"
- conexion.Name = "base"
-
- conexion = Null
-
-
-
- txtID.Text = TablaContactos["id"]
- txtNombre.Text = TablaContactos["Nombre"]
- txtApellido.Text = TablaContactos["Apellido"]
- txtTelefono.Text = TablaContactos["Telefono"]
- txtMail.Text = TablaContactos["Mail"]
- txtNacimiento.Text = TablaContactos["FechaNacimiento"]
-
-
-
-
- TablaContactos.MoveFirst()
- MostrarCampos
-
-
-
- TablaContactos.MovePrevious()
-
- MostrarCampos
-
-
-
- TablaContactos.MoveNext()
-
- MostrarCampos
-
-
-
- TablaContactos.MoveLast()
- MostrarCampos
-
-
-
- txtID.Text = ""
- txtNombre.Text = ""
- txtApellido.Text = ""
- txtTelefono.Text = ""
- txtMail.Text = ""
- txtNacimiento.Text = ""
-
-
-
-
- txtID.Text, txtNombre.text, txtApellido.Text, txtTelefono.Text, txtMail.text, txtNacimiento.text)
-
- 'VarResult = Conexion.Create("Contactos")
- 'VarResult["id"] = txtID.Text
- 'VarResult["Nombre"] = txtNombre.Text
- 'VarResult["Apellido"] = txtapellido.Text
- 'VarResult["FechaNacimiento"] = txtNacimiento.Text
- 'VarResult["Telefono"] = txtTelefono.Text
- 'VarResult["Mail"] = txtMail.Text
- VarResult.Update
-
-
-
- MostrarCampos
-
-
-
-
- 'VarResult = Conexion.Edit("Contactos", "id=" & TablaContactos["id"])
- 'VarResult["id"] = txtID.text
- 'VarResult["Nombre"] = txtNombre.text
- 'VarResult["Apellido"] = txtapellido.text
- 'VarResult["FechaNacimiento"] = txtNacimiento.text
- 'VarResult["Telefono"] = txtTelefono.text
- 'VarResult["Mail"] = txtMail.text
- 'VarResult.Update
- 'TablaContactos = Conexion.Exec("Select * from Contactos")
- conexion.Exec("update contactos set nombre ='" & txtNombre.Text & "' where id ='" & txtID.Text & "';")
-
-
-
-
-
-
-
- Conexion.Close
-