Home •  Forum •  FAQ •  Search •  Recent Topics •  Memberlist •  Register •  Log in 
Forum » Gambas » General

¿Una Rutina Para Unir Varios .odt En Uno Solo?

Reply to topic

Goto page Previous  1, 2, 3, 4, 5

vuott
Quote
Posts: 2086
Thursday, 21 September 2017, 18:32
Subject: Re: ¿Una Rutina Para Unir Varios .odt En Uno Solo?
shordi escribió:  
Verás cómo el tipo de fuente de cada archivo se homogeneiza...

Comprendo. ...perdí la super-medalla Jedi, Maestro shordi.
Tengas en cuenta que pero mi codigo es muy simple y por supuesto no quiere ser exhaustivo.
Algo, pero, lo conserva, por ejemplo el color de las letras y del fondo.

Estoy seguro que haciendo las adecuadas integraciones......

Last edited by vuott on Thursday, 21 September 2017, 18:34; edited 4 times in total
Profile PM  
shordi
Quote
Posts: 4982 Location: Albacete
Thursday, 21 September 2017, 18:42
Subject: Re: ¿Una Rutina Para Unir Varios .odt En Uno Solo?
vuott escribió:  
shordi escribió:  
Verás cómo el tipo de fuente de cada archivo se homogeneiza...

Comprendo. ...perdí la super-medalla Jedi, Maestro shordi.
Tengas en cuenta que pero mi codigo es muy simple y por supuesto no quiere ser exhaustivo.
Algo, pero, lo conserva, por ejemplo el color de las letras y del fondo.

Estoy seguro que haciendo las adecuadas integraciones......


¿Has probado el que yo subí?

Profile PM  
vuott
Quote
Posts: 2086
Thursday, 21 September 2017, 19:06
Subject: Re: ¿Una Rutina Para Unir Varios .odt En Uno Solo?
shordi escribió:  
¿Has probado el que yo subí?

Magister shordi, me da error: " Unknown identifier: AddMeta ".

Profile PM  
shordi
Quote
Posts: 4982 Location: Albacete
Thursday, 21 September 2017, 19:39
Subject: Re: ¿Una Rutina Para Unir Varios .odt En Uno Solo?
Oops... excusati me, fili meus. Se me pasaron éstas funciones.
Public Sub docs2pdf(ardocs As String[], titulo As String)

Dim s, cad, destino As String
Dim files As String
Dim tmp As String

tmp = Temp()
titulo = Subst(titulo, " ", "_")
destino = File.Name(mComun.pathProject)
destino = Replace(destino, " ", "_")
tmp = File.Dir(tmp) &/ destino
Mkdir tmp
For Each s In ardocs
cad = Subst("libreoffice --headless --convert-to pdf \"&1\" --outdir \"&2\"", mComun.pathProject &/ ".textos" &/ s, tmp)
Shell cad Wait
files &= tmp &/ s & ".pdf "
Next
s = "pdftk " & files & " cat output \"" & Settings["Entorno/path_salida"] &/ titulo & "\""
Shell s Wait

End


Public Sub docStats(docs As String[]) As Collection

Dim tmp, doc, s As String
Dim xm As XmlDocument
Dim nodo As XmlNode
Dim col As New Collection
Dim v As Variant

For Each doc In docs
tmp = Temp()
Shell "unzip \"" & doc & "\" -d " & tmp To s
xm = New XmlDocument(tmp &/ "meta.xml")
nodo = xm.GetElementsByTagName("meta:document-statistic")[0]
For Each v In nodo.Attributes
If Not col.Exist(v.name) Then
col.Add(v.value, v.name)
Else
col[v.Name] += v.Value
Endif
Next
Next

Finally

Return col

Catch

Debug Error.Text;; Error.Where

End

Public Sub addMeta(cTotal As Collection, pathdoc As String)

Dim v As Variant
Dim xm As XmlDocument
Dim nodo As XmlNode

xm = New XmlDocument(pathdoc &/ "meta.xml")
nodo = xm.GetElementsByTagName("meta:document-statistic")[0] 'obtenemos las estadísticas del documento
For Each v In nodo.Attributes 'y las acumulamos
If Not cTotal.Exist(v.name) Then
cTotal.Add(v.value, v.name)
Else
cTotal[v.Name] += v.Value
Endif
Next

End


Docs2pdf y docstats no se usan en la unión de documentos, pero están chulas

Profile PM  
vuott
Quote
Posts: 2086
Friday, 22 September 2017, 00:32
Subject: Re: ¿Una Rutina Para Unir Varios .odt En Uno Solo?
Magister Jedi shordi, obtengo otro error: " Unknown identifier: mComun ".

...no sería mejor si tú agregaras el archivo ?

Profile PM  
shordi
Quote
Posts: 4982 Location: Albacete
Friday, 22 September 2017, 08:00
Subject: Re: ¿Una Rutina Para Unir Varios .odt En Uno Solo?
ok. Hoy tengo un viaje. Esta noche o mañana subo un proyecto que lo haga.

Quetontostoypoldió,...

Profile PM  
vuott
Quote
Posts: 2086
Friday, 22 September 2017, 16:14
Subject: Re: ¿Una Rutina Para Unir Varios .odt En Uno Solo?
shordi escribió:  
Hoy tengo un viaje.

Claramente un viaje hacia la comprensión de la Fuerza y del Universo todo.

csxoi

Profile PM  
Reply to topic
Goto page Previous  1, 2, 3, 4, 5

Page 5 of 5


  
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Generation Time: 0.2282s (PHP: -23% SQL: 123%)
SQL queries: 24 - Debug Off - GZIP Enabled