Re: [fr-users] Re: [Macro-Basic] génération de cours eleve à partir de fichier cours enseignant

Bonjour,
je m'excuse si je ne suis pas trop en ligne en ce moment... merci beaucoup
à vous deux, il y a peu de monde capable ou prenant le temps d'étudier une
telle demande qui est quand même un poil complexe...


Un exemple de l'utilisation de SimpleFileAccessqui se trouve à la page 155
du livre programmer avec openoffice.org 2, il compte les repertoires et le
fichiers:

Option Explicit

' exemple : compter le nombre de sous-répertoires et le nombre total de
fichiers
Private d as long, f as long

Sub Main
Dim depart As String
d= 0
f = 0
depart = ConvertToURL("C:\Docs OpenOffice\") 'adapter le chemin en fonction
du besoin
explorerDossier(depart)
MsgBox(d & " répertoires,   " & f & " fichiers")
End Sub


Sub explorerDossier(ByVal repEnCours As String)
Dim item As String
Dim ucb As Object, dc As Variant

ucb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
On Error GoTo accesInterdit
dc = ucb.getFolderContents(repEnCours, True)
' ici on obtient un tableau des url complètes
' de chaque fichier et chaque répertoire du répertoire en cours
' mais dans le désordre !
for each item in dc
  if ucb.IsFolder(item)  then ' traitement pour chaque sous-répertoire
    d = d+1 ' exemple : compter les sous-répertoires
    explorerDossier(item) ' récursion
  else ' traitement pour chaque fichier
    f = f+1 ' exemple : compter les fichiers
  end if
next
GoTo Exit1

accesInterdit:
Resume Exit1
Exit1:
On Error GoTo 0
End Sub
J'espére pouvoir travailler dessus cette semaine et vous faire un retour.
Je documenterai un peu la macro quand elle sera fonctionnelle dans
l'optique qu'elle puisse être utilisable par le plus grand nombre.

Best regard :)

Le 1 juin 2015 18:48, pierre-yves samyn <pierre-yves.samyn@laposte.net> a
écrit :

> Bonjour Laurent
>
> Surtout merci à toi de qui j'ai tant appris même si tu ne le sais pas
> (projet ancien...), et l'occasion de remercier aussi Andrew Pitonyak &
> Bernard Marcelly (livre et Xray).
>
> Pierre-Yves
>
>
>
> --
> View this message in context:
> http://nabble.documentfoundation.org/Macro-Basic-generation-de-cours-eleve-a-partir-de-fichier-cours-enseignant-tp4149242p4150227.html
> Sent from the Users mailing list archive at Nabble.com.
>
> --
> Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir
> comment vous désinscrire
> Les archives de la liste sont disponibles à
> http://listarchives.libreoffice.org/fr/users/
> Tous les messages envoyés sur cette liste seront archivés publiquement et
> ne pourront pas être supprimés

-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés