Alle 18:58, giovedì 15 settembre 2005, Emanuele ha scritto:
> >Provato il codice seguente con OOo1.9.128 (en) e OOo1.1.4 (it-PLIO) su
> >GNU/Linux.
> >Non riscontro nessun problema.
> >Tu stai usando Windows o Linux ?
>
> Sto usando windows.
> Come avevo accennato non avevo avuto tempo per fare molte prove, ma
> forse ho capito quando si verifica!
> Non mi ricordavo che la funzione che richiamo dal print a sua volta
> chiama un'altra sub che scrive su un secondo file (sempre aperto) (so di
> essere un po' contorto :-)), se tolgo questa sub funziona correttamente.
[...]
direi che si tratta di un piccolo bug, perchè a mio avviso il codice è
formalmente corretto.
Cmq ti segnalo che l'API di openoffice offre un approccio al filesystem che ti
permette di lavorare in modo semplice e con un elevato grado di astrazione.
(perciò senza scomodare quelle istruzioni BASIC antidiluviane come
Open/Print/Put etc.)
In questo caso non serve nemmeno conoscere l'API per poterla utilizzare, visto
che la libreria Tools contiene un modulo ricchissimo di funzioni molto
semplici per lavorare con i files
ecco un esempio:
REM ***** BASIC *****
Sub ExampleWorkWithAFile
'carica la libreria Tools
'necessario perchè intendiamo chiamare
'una funzione contenuta in questa libreria
GlobalScope.BasicLibraries.LoadLibrary("Tools")
'crea un array con il testo da salvare.
'ogni elemento dell'array sarà salvatocome linea
'nel file di testo:
mTextArray() = Array("linea1", "linea2", "linea3")
'converte il percorso del file in URL
'(openoffice usa sempre gli URL perche sono
'indipendenti dalla piattaforma)
sFileUrl = ConvertToUrl("/home/paolo/pippo.txt")
'esegue il salvataggio dei dati chiamando una funzione della libreria Tools
SaveDataToFile(sFileUrl, mTextArray())
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
