Subido a Gitea

.directory

@@ -0,0 +1,2 @@
+[Desktop Entry]
+Icon=./.icon.png

.gitignore

@@ -0,0 +1,14 @@
+#---- Gambas files to ignore (v4)
+*.gambas
+.lock
+*~
+core
+core.*
+vgcore
+vgcore.*
+.kdbg*
+.*.prof
+.lang/*.pot
+.gambas/*
+.settings
+#----

.hidden/CHANGELOG

@@ -0,0 +1,3 @@
+* Tue Mar 31 2020 luisgulo <luisgulo@soloconlinux.org.es> 1.0.3
+- Exportar PDFs a .odt, .doc y .docx
+

.project

@@ -0,0 +1,30 @@
+# Gambas Project File 3.0
+Title=PDF-Export
+Startup=FMain
+Icon=PDF-Export-icono.png
+Version=1.0.3
+Component=gb.image
+Component=gb.gui
+Component=gb.form
+Description="Exportar/Convertir PDF en .odt, .doc y .docx"
+Authors="luisgulo@soloconlinux.org.es"
+TabSize=2
+Language=es_ES
+SourcePath=/home/luisgulo/ProyectosGAMBAS/SOURCEs
+Maintainer=luisgulo
+Vendor=luisgulo
+Address=luisgulo@soloconlinux.org.es
+Url=https://repositorio.soloconlinux.org.es
+License=General Public License
+PackageName=pdf-export-1.0.3
+CreateEachDirectory=1
+Packager=1
+Systems=debian
+Menus=debian:"Applications/Office"
+Categories=debian:"Office"
+Groups=debian:"utils"
+ExtraDependencies=debian:"libreoffice\t\t"
+Tags=FileTools,Office,TextEditor,Utility,WordProcessor
+Dependencies=libreoffice
+WebSite=https://repositorio.soloconlinux.org.es
+CreateMenu=1

.src/FMain.class

@@ -0,0 +1,54 @@
+' Gambas class file
+
+Public TipoSalida As String = "odt"
+
+Public Sub Form_Open()
+  System.Shell = "/bin/bash"
+  labelVersion.Text = "Version " & Application.Version
+  fichSeleccionPDF.Filter = ["*.pdf", "Ficheros PDF"]
+  'Ruta exportacion
+  Shell "mkdir -p " & User.Home & "/PDF-Export"
+End
+
+Public Sub botonExportar_Click()
+ 'Extraemos la ruta del fichero
+ Dim RutaPDF As String
+ Dim RutaSalida As String
+ RutaPDF = fichSeleccionPDF.SelectedPath
+ If IsNull(RutaPDF)
+  Message.Title = "PDF-Export"
+  Message.Warning("Debe de seleccionar un PDF")
+  Return
+ Endif
+ botonExportar.Text = "E X P O R T A N D O ..."
+ botonExportar.Enabled = False
+ Wait 0.1
+ botonExportar.Refresh
+ RutaSalida = User.Home & "/PDF-Export"
+ RutaPDF = Shell$(RutaPDF)
+ Shell "libreoffice --infilter='writer_pdf_import' --convert-to " & TipoSalida & " " & RutaPDF & " --outdir " & RutaSalida Wait
+ Message.Title = "PDF-Export - Conversión realizada"
+ Message.Info("Puede encontrar su fichero convertido en:" & gb.CrLf & RutaSalida)
+ botonExportar.Enabled = True
+ botonExportar.Text = "Exportar"
+ botonExportar.Refresh
+End
+
+Public Sub PictureLOGO_MouseDown()
+  Message.Title = "PDF-Export"
+  Message.Info("Autor: luisgulo@soloconlinux.org.es")
+End
+
+
+
+Public Sub opcionODT_Click()
+  TipoSalida = "odt"
+End
+
+Public Sub opcionDOC_Click()
+  TipoSalida = "doc"
+End
+
+Public Sub opcionDOCX_Click()
+  TipoSalida = "docx"
+End

.src/FMain.form

@@ -0,0 +1,56 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,98,46)
+  Text = ("PDF-Export")
+  Icon = Picture["PDF-Export-icono.png"]
+  { botonExportar Button
+    MoveScaled(67,37,29,7)
+    Text = ("Exportar")
+    Picture = Picture["PDF-Export-48x48.png"]
+  }
+  { Panel1 Panel
+    MoveScaled(67,23,29,13)
+    { opcionDOC RadioButton
+      MoveScaled(0,4,28,4)
+      Text = ("Microsoft Word 97 (.doc)")
+    }
+    { opcionODT RadioButton
+      MoveScaled(0,0,28,4)
+      Text = ("LibreOffice Writer (.odt)")
+      Value = True
+    }
+    { opcionDOCX RadioButton
+      MoveScaled(0,8,28,4)
+      Text = ("Microsoft Office (.docx)")
+    }
+  }
+  { fichSeleccionPDF FileChooser
+    MoveScaled(1,1,64,43)
+  }
+  { Panel2 Panel
+    MoveScaled(67,1,28.875,16.875)
+    { PictureBox2 PictureBox
+      MoveScaled(13,8,6,6)
+      Picture = Picture["icon:/48/right"]
+    }
+    { PictureBox3 PictureBox
+      MoveScaled(20,7,8,8)
+      Picture = Picture["icon:/64/file"]
+    }
+    { PictureLOGO PictureBox
+      MoveScaled(0,0,16,16)
+      Picture = Picture["PDF-Export-icono.png"]
+    }
+    { labelVersion Label
+      MoveScaled(13,1,15,4)
+      Font = Font["Bold,12"]
+      Foreground = &HC00000&
+      Alignment = Align.Right
+    }
+  }
+  { Label1 Label
+    MoveScaled(67,19,24,4)
+    Text = ("Formato de Exportación:")
+  }
+}

.startup

@@ -0,0 +1,10 @@
+FMain
+PDF-Export
+0
+0
+1.0.3
+
+gb.image
+gb.gui
+gb.form
+