https://bugs.freedesktop.org/show_bug.cgi?id=73140
--- Comment #4 from Marco Masè Dari <[email protected]> --- Il 22/01/2014 21:52, [email protected] ha scritto: > Julien Nabet <mailto:[email protected]> changed bug 73140 > <https://bugs.freedesktop.org/show_bug.cgi?id=73140> > What Removed Added > Status NEW NEEDINFO > > *Comment # 3 <https://bugs.freedesktop.org/show_bug.cgi?id=73140#c3> > on bug 73140 <https://bugs.freedesktop.org/show_bug.cgi?id=73140> from > Julien Nabet <mailto:[email protected]> * > Thank you Stephan for your feedback. > > Marco: following Stephan's comment, could you give a new try and keep us > informed? > ------------------------------------------------------------------------ > You are receiving this mail because: > > * You reported the bug. > OK it seems to work: BEFORE ************* Sub LeggiIndirizzari Dim aMediaDesc(0) as New com.sun.star.beans.PropertyValue aMediaDesc(0).Name = "Hidden" 'carica l'elenco senza mostrarlo aMediaDesc(0).Value = TRUE percorso = thisComponent.StringValue 'individua il percorso completo del modello con caratteri spuri percorso = ConvertFromUrl(percorso) 'lo converte in forma leggibile dove = 1 inizio = InStr(dove, percorso, "\") do while inizio < Len(percorso)-4 dove = inizio+1 inizio = InStr(dove, percorso, "\")'preleva l'ultima parte della stringa loop modello = mid(percorso, dove, Len(percorso)-dove- 6 ) ' a questo punto abbiamo estratto il nome percorso = Left(percorso,Len(percorso) - Len(modello)- 7)'estraiamo il percorso in chiaro desktop = createUnoService("com.sun.star.frame.Desktop") url = "file:///" & Percorso & "Indirizzi.ods" 'abbiamo la url del file (complicatissimo) fogli = desktop.LoadComponentFromURL(url, "_Blank", 0, aMediaDesc) 'apriamo il file quanti = fogli.Sheets.Count 'vediamo quanti fogli ci sono Dim Indirizzari(quanti-1) For n = 0 to quanti -1 Indirizzari(n) = fogli.Sheets.ElementNames(n)'estrae i nomi degli indirizzari oDialogo1.GetControl("IndirizzariList").AddItem(Indirizzari(n),n)'e li aggiunge nella listobox Next Dati = 1 LeggiIndirizzi() End sub AFTER ************** Sub LeggiIndirizzari Dim aMediaDesc(0) as New com.sun.star.beans.PropertyValue aMediaDesc(0).Name = "Hidden" 'carica l'elenco senza mostrarlo aMediaDesc(0).Value = TRUE percorso = thisComponent.StringValue 'THE RESULT IS "file:///C:/Users/Marco/Desktop/OPENOFFICE/LETTERE/Lettere.ott/" ' percorso = ConvertFromUrl(percorso) 'REMOVED THE RESULT WAS "C:\Users\Marco\Desktop\OPENOFFICE\LETTERE\Lettere.ott\" dove = 1 inizio = InStr(dove, percorso, "/") 'CHANGED \ TO / do while inizio < Len(percorso)-4 dove = inizio+1 inizio = InStr(dove, percorso, "/")'CHANGED \ TO / loop modello = mid(percorso, dove, Len(percorso)-dove- 6 ) ' a questo punto abbiamo estratto il nome percorso = Left(percorso,Len(percorso) - Len(modello)- 7)'estraiamo il percorso in chiaro desktop = createUnoService("com.sun.star.frame.Desktop") url = Percorso & "Indirizzi.ods" 'abbiamo la url del file (complicatissimo) fogli = desktop.LoadComponentFromURL(url, "_Default", 0, aMediaDesc) 'apriamo il file quanti = fogli.Sheets.Count 'vediamo quanti fogli ci sono Dim Indirizzari(quanti-1) For n = 0 to quanti -1 Indirizzari(n) = fogli.Sheets.ElementNames(n)'estrae i nomi degli indirizzari oDialogo1.GetControl("IndirizzariList").AddItem(Indirizzari(n),n)'e li aggiunge nella listobox Next Dati = 1 LeggiIndirizzi() End sub Now I try in LIBO 4.0.5 Best regards Marco -- Caselle da 1GB, trasmetti allegati fino a 3GB e in piu' IMAP, POP3 e SMTP autenticato? GRATIS solo con Email.it http://www.email.it/f Sponsor: Posta elettronica professionale con: condivisione di calendari, agenda e rubrica, sincronizzazione con tutti smartphone e tablet, backup e molto altro ancora a soli 24 euro l'anno Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=13176&d=26-1 -- You are receiving this mail because: You are the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
