Comunidad Gambas-es

Shell 29-12-2022, 15:25

Buenas!.

Estoy probando el traductor de documentos del propio Google para traducir un pdf. Supongo que tendrá sus limitaciones.

Si lo quiero hacer desde la terminal compruebo que debo:

- Traducir el pdf a texto.
- Traducir el texto a postscript
- Traducir postscript a pdf.

Código:
pdftotext your.pdf your.txt

trans file://your.txt

enscript -p output.ps your.txt

ps2pdf output.ps your2.pdf

Vale, pero eso es solo texto. Las imágenes se perderían. Ya no es una conversión, es una edición y creación.

Fuentes:

¿Cómo traducir un pdf grande desde la línea de comandos? Fuente: https://www.enmimaquinafunciona.com/pregunta/166540/como-traducir-un-pdf-grande-desde-la-linea-de-comandos

Google Translator lo hace a su manera, no queda perfecto, pero puede ayudar.
Por si queréis probar, usar el botón de documentos.

Google Translator

Saludos

Mundo Linux Sin respuestas

Usar sentencia SQL o método de la clase Result

Shell 29-12-2022, 15:10

Buenas!.

Revisando una antigua base de datos que me sirvió para las que estoy liado ahora, encontré que podía hacer la consulta de inserción tanto con la sentencia
SQL como un método de la clase Result.

Código:
 'Si lo hacemos con SQL podemos hacer:

    'Try hConn.Exec("insert into datos values (&1,&2,&3,&4,&5,&6)", Null, TxtTitulo.Text, TxtAutor.Text, CDate(TxtFecha.Text), CFloat(TxtPrecio.Text), TxtDecripcion.Text)

    'Si lo hacemos usando los métodos de la clase result.

    HResul = hConn.Create("datos")

    HResul["id"] = Null

    HResul["titulo"] = TxtTitulo.Text

    HResul["autor"] = TxtAutor.Text

    HResul["fecha"] = TxtFecha.Value

    HResul["precio"] = TxtPrecio.Text

    HResul["descripcion"] = TxtDecripcion.Text

    HResul.Update()

    hConn.Commit()

Uso más SQL ya que es propio del lenguaje y no de un lenguaje de programación concreto.
Imaginar que creo la base de datos para Gambas y ahora hago lo mismo para Python y luego para Java, etc, etc.
Entonces cada lenguaje puede tener una clase que ( como veis parece que se acorta más con la sentencia SQL). ¿ No es mejor algo más universal ?.

En el caso de usar Result en Gambas, lo más probable es que esto lo haga independiente del gestor de base de datos. Puede ser el motivo de su uso.

Saludos

Bases de Datos Respuestas 4

Escribir caracter uno a uno en un TextBox

Shell 28-12-2022, 01:17

Buenas!.

Si dejan pulsada una tecla no se repite esta y no deja escribir en la caja de texto.
Hay que volver a levantar el dedo del teclado ( Rolleyes

) y volver a escribir.

Código:
Private masdeuncaracter As Boolean

Public Sub Form_Open()

  With TextBox1

    .Font = Font["Mono Noto,Bold, 24"]

  End With

End

Public Sub TextBox1_Change()

  If Len(TextBox1.Text) >= 1 Then masdeuncaracter = True

End

Public Sub TextBox1_KeyPress()

  If masdeuncaracter Then

    Stop Event

  Else

    TextBox1.Insert(Upper(Key.Text))

    Stop Event

  Endif

End

Public Sub TextBox1_KeyRelease()

  masdeuncaracter = False

End

Claro que....je, je..si compruebo la longitud de la caja de texto, en realidad después de una letra siempre deberá ser la condición a True.
Uy que tarde.... Tongue