Ciao Mario,
On Jun 16, 2007, at 20:44 , Mario Graziani wrote:
Problema:
Grazie ai consigli di Gilberto De Faveri son riuscito a salvare e
aprire un file.rtf
con il seguente codice
Dim f as FolderItem
dim s as TextOutputstream
if right(oldpat,4) <> ".rtf" then
oldpat=Untiled.rtf"
end if
f=GetSaveFolderItem("myrtf", oldpat)
If f <> nil then
s =f .CreateTextfile
s.Write Editfield1.StyledText.RTFData
s.close
Il quale anche se funzionante mostra dei limiti inaccettabili
Il tempo impiegato per salvare o aprire un file è legato alla
dimesione del testo
discretamente fino a 2 Kb (qualche secondo)
Accettabile fino a 4/5 kb
Stressante fino 8/10 Kb (oltre 1 minuto)
oltre neanche a parlarne.
con 40 kb dopo 5 minuti non aveava ancora finito
Purtroppo i file che devo salvare sono di oltre 35 kb di puro testo.
se lo stesso file viene salvato senza RTFData
s.Write Editfield1.StyledText.Text
il salvataggio è immediato anche con file oltre 50 Kb
Le ho provate tutte senza riuscirci, purtroppo la mia esperienza è
limitata.
dove sbaglio?
Ho fatto una prova ed effettivamente sembra che su Mac il tempo
impiegato per il parsing e la creazione degli RTF sia esponenziale
rispetto alla lunghezza del testo.
Ti consiglio di segnalare il problema agli ingegneri di REAL Software
dalla pagina di feedback (http://www.realsoftware.com/feedback/
reports.php), nella sezione REALbasic -> Framework -> Text -> Styled
Text
Una possibile alternativa è il plug-in WordGuise, che trovi qui:
http://homepage.mac.com/vanhoek/#wordguise
--
gilberto de faveri
omnidea srl
edificio pegaso
parco scientifico tecnologico vega
via delle industrie, 15
30175 venezia marghera
tel +39 041 509 3441
fax +39 041 509 3641
www.omnidea.it
|