Fabio Fiorentini wrote:
> tu hai parlato di varie righe da leggere dal file, ma nel tuo esempio cerchi
> di leggere una sola riga e di metterla in una sola cella usando come
> riferimento un range di celle a cui ne appartiene una sola.
> L'esempio seguente funziona:
>
> Sub ooo
>
> GlobalScope.BasicLibraries.LoadLibrary("Tools")
>
> dim array$(4)
> 'ho dimensionato la variabile a 5 in quanto nel mio file di prova da leggere
> ho messo 5 righe
> Dim oDocins as object
> oDocins = ThisComponent
> Dim oSheetins as object
> oSheetins = oDocins.Sheets.GetByName("importato")
> Dim oCellins as object
>
> for i = 0 to 4
> 'ho creato un ciclo a 5 per leggere e scrivere direttamente tutte le righe
> LoadDataFromFile("/home/fabio/file.txt", Array$())
> 'qui leggo l'intero contenuto del file e lo metto nell'array
> oCellins = oSheetins.GetCellByPosition(0,i)
> 'qui seleziono la cella della colonna A (indicata con 0) e della riga i che
> varia in base al ciclo
> oCellins.string = Array$(i)
> 'qui scrivo nella cella il contenuto dell'array alla riga i
> next i
> ' fine del ciclo
>
> End Sub
>
> l'ho testata e mi scrive nelle celle da A1 a A5 le 5 righe del file.
>
grazie fabio, l'ho testata anchio e funziona, la funzione
LoadDataFromFile ha pero' la necessita' di sapere quante righe ha il
file, ho provato facendo il loop con un numero di righe maggiore di
quante ne abbia il file, (dimensionando l'array adeguatamente) e mi da
un errore, con le funzioni:
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oInputStream = createUnoService("com.sun.star.io.TextInputStream")
sNomeFile = ConvertToUrl("/home/pla/ooo-dati.txt")
oFile = oUcb.OpenFileReadWrite(sNomeFile)
oInputStream.SetInputStream(oFile.GetInputStream())
invece non ci sono problemi di numero di righe e probabilmente l'array
viene riempito con valori nulli, invece sembra che con LoadfDataFromFile
la parte che non contiene righe non riempie l'array, la differenza tra
le due funzioni, in questo caso, mi ha fatto preferire la seconda,
> Ciao
>
> FaBBio
>
> P.S. ho visto che hai già risolto, ma ti scrivo lo stesso perché almeno la
> soluzione resta nell'archivio della mailing list e se qualcuno in futuro ha
> lo stesso problema almeno lo trova.
>
ottima idea :-)))
anzi non so se si possono mettere le due soluzioni come esempio nella
pagina web che mi desti come riferimento:
http://nathanvi.it/cgi-bin/openoffice/bin/view/FAQ/MacroCalcCelle
che dici??
ciao
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
