Comunidad Gambas-es

Shell 31-12-2020, 00:44

Buenas!.

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

He usado esto:

Código:
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í.

Código:
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:

Código:
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:

Código:
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:

Código:
find . -type f | wc -l

Me da: 68665

Contar solo los tipo directorios:

Código:
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:

Código:
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

Bash Respuestas 1

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

Shell 30-12-2020, 01:14

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

General Sin respuestas

Uso de update en Gambas

dariodr 28-12-2020, 07:03

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.

Código:
' Gambas class file

Private conexion As Connection

Private TablaContactos As Result

Public Sub Form_Open()

   conexion = New Connection

   conexion.Type = "sqlite3"

   conexion.Host = "/home/dario/gambas/PruebaBaseDatos/"

   conexion.Name = "base"

   Try conexion.Open()

   If Error Then

      Message.Error("Error al conectar a la base de datos")

      conexion = Null

   Else

      TablaContactos = conexion.Exec("Select * From contactos")

      If TablaContactos.Available Then MostrarCampos

   Endif

End

Public Sub MostrarCampos()

  txtID.Text = TablaContactos["id"]

  txtNombre.Text = TablaContactos["Nombre"]

  txtApellido.Text = TablaContactos["Apellido"]

  txtTelefono.Text = TablaContactos["Telefono"]

  txtMail.Text = TablaContactos["Mail"]

  txtNacimiento.Text = TablaContactos["FechaNacimiento"]

End

Public Sub btnPrimero_Click()

   TablaContactos.MoveFirst()

   MostrarCampos

End

Public Sub btnAnterior_Click()

   TablaContactos.MovePrevious()

   If Not TablaContactos.Available Then TablaContactos.MoveFirst()

   MostrarCampos

End

Public Sub btnSiguiente_Click()

   TablaContactos.MoveNext()

   If Not TablaContactos.Available Then TablaContactos.MoveLast()

   MostrarCampos

End

Public Sub btnUltimo_Click()

   TablaContactos.MoveLast()

   MostrarCampos

End

Public Sub Menu2_Click()

   btnGuardar.Visible = True

   btnCancelar.Visible = True

   btnPrimero.Visible = False

   btnAnterior.Visible = False

   btnSiguiente.Visible = False

   btnUltimo.Visible = False

   txtID.Text = ""

   txtNombre.Text = ""

   txtApellido.Text = ""

   txtTelefono.Text = ""

   txtMail.Text = ""

   txtNacimiento.Text = ""

End

Public Sub btnGuardar_Click()

   Dim VarResult As Result

   VarResult = conexion.Create("Contactos")

   conexion.Exec("insert into contactos values(&1,&2,&3,&4,&5,&6)",

      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

   TablaContactos = Conexion.Exec("Select * from Contactos")

   btnGuardar.Visible = False

   btnCancelar.Visible = False

   btnPrimero.Visible = True

   btnAnterior.Visible = True

   btnSiguiente.Visible = True

   btnUltimo.Visible = True

End

Public Sub btnCancelar_Click()

   btnGuardar.Visible = False

   btnCancelar.Visible = False

   btnPrimero.Visible = True

   btnAnterior.Visible = True

   btnSiguiente.Visible = True

   btnUltimo.Visible = True

   MostrarCampos

End

Public Sub Menu3_Click()

  Dim VarResult As Result

  '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 & "';")

End

Public Sub Menu5_Click()

  Me.Close

End

Public Sub Form_Close()

  If Message.Question("¿Desea salir del programa?", "Si", "No") = 2 Then

    Stop Event

  Else

    Conexion.Close

  End If

End

Bases de Datos Respuestas 7

Páginas (520): 1 … 452 453 454 455 456 … 520

Bienvenido, Invitado

Buscar en los foros

Estadísticas del foro

Miembros: 265

Último miembro: Morfeo68

Temas del foro: 1,598

Mensajes del foro: 8,348

Últimos temas

Portal

Shell 31-12-2020, 00:44

Shell 30-12-2020, 01:14

dariodr 28-12-2020, 07:03

Quit, salir inmediatament...

WebForm con mysql gridvie...

Antiguo foro. ¿ Viable ?

Gambas 3.20

Ver los repositorios del ...