Actions

Journaux











Je recherche 2 scripts..

Écrit le 09/05/2005 @ 22:20 par Drizzt

Informatique - ProgrammationVoilà..je recherche 2 scripts, pour 2 plateformes différentes.

Premièrement, je recherche un script qui va ajouter l'extension de fichier appropriée à un document Mac n'ayant pas d'extension. Par exemple, un document Word 2001, j'aimerais que le script scan le dossier et ajoute l'extension nécessaire (.doc).

Deuxièmement, je recherche un script qui va comparer la structure de 2 dossiers pour copier la sécurité de l'un sur l'autre.

Si quelqu'un trouve ou programme quelque chose d'intéressant.. j'aimerais le savoir Smile

Dernière modification le 26/07/2005 @ 12:28 par Drizzt

Commentaires

Commentaire par Alexandre  Score: 2
Écrit le: 09/05/2005 @ 22:32

Doit-il scanner le fichier pour savoir qu'il s'agit d'un document d'un certain type ou peut-on considérer que dans le dossier, il n'y a que des fichiers d'un seul type et que tu désires simplement renommer l'ensemble des fichiers en y ajoutant une extension, par exemple ".doc"?

Pour la 2e colle, je ne sais pas, mais probablement qu'en connaissant les attributs d'un dossier donné, on pourrait faire en sorte de les appliquées sur un dossier cible. Pourrais-tu décrire plus en détail ce que tu veux, c'est-à-dire est-ce que de connaître les attributs x/r/w d'un user, d'un groupe et de tous est suffisant ou doit-on connaître pour chaque groupe et chaque user? Confused

Vous avez vu les updates d'emoticons Wink

Commentaire par Drizzt  Score: 2
Écrit le: 09/05/2005 @ 22:49

Pour le premier, il doit se fier au codes de 4 caractère utilisé dans les ressources de MacOS 9. Je croyais avoir trouvé la gemme qui me le ferait.. mais c'est en vain Frown

Pour le 2e, c'est sur un système unix.. donc il doit copier owner+groupe et les permissions r/w/x.

Commentaire par Drizzt  Score: 2
Écrit le: 28/05/2005 @ 13:47

Pour le premier script, ça avance..

J'ai commencé un AppleScript, ça ne fonctionne pas encore.. mais vous allez pouvoir déduire la logique! 

on open (fichiers)

	repeat with i from 1 to number of items in fichiers

		set isFolder to folder of (info for item i of fichiers)

		if isFolder is true then

			walkFolder(item i of fichiers)

		else

			addExtention(item i of fichiers)

		end if

	end repeat

end open



on walkFolder(monDossier)

	tell application "Finder"

		set theFileList to every file of monDossier

		repeat with i from 1 to number of items in theFileList

			addExtention(item i of theFileList)

		end repeat

		set theFolderList to every folder of the entire contents of monDossier

		repeat with i from 1 to number of items in theFolderList

			walkFolder(item i of theFolderList)

		end repeat

		return true

	end tell

end walkFolder



on addExtention(monFichier)

	tell application "Finder"

		set theType to (file type of monFichier as text)

		set theCreator to (creator type of monFichier as text)

		set fs to POSIX path of monFichier

		if theCreator = "MSWD" then

			do shell script "mv \"" & fs & "\" \"" & fs & ".doc\""

		end if

		if theCreator = "XCEL" then

			do shell script "mv \"" & fs & "\" \"" & fs & ".xls\""

		end if

		return true

	end tell

end addExtention



Peut-être que Blanalex va pouvoir me démerder rendu là.. Wink
Dernière modification le 28/05/2005 @ 14:02

Commentaire par Drizzt  Score: 2
Écrit le: 01/06/2005 @ 00:07

Insomnie.. quand tu nous tiens.. Desperated

J'ai modifié mon code un peu.. c'est rendu ceci : 

on open (fichiers)

	display dialog "Open"

	repeat with i from 1 to number of items in fichiers

		display dialog "Open - repeat

		" & item i of fichiers

		walkFolder(item i of fichiers)

	end repeat

end open



on walkFolder(monDossier)

	-- subroutine qui doit détecter si c'est un dossier, et dans le cas échéant, rouler le contenu du sous-dossier dans elle-même

	display dialog "Walkfolder

	" & monDossier

	set isFolder to folder of (info for monDossier)

	if isFolder is true then

		display dialog "Walkfolder - isFolder

	" & monDossier

		tell application "Finder" to set temp to (entire contents of monDossier)

		repeat with i from 1 to number of items in (temp)

			-- problème ici

			walkFolder(item i of temp)

		end repeat

	else

		addExtention(monDossier)

	end if

end walkFolder



on addExtention(monFichier)

	-- subroutine pour ajouter l'extention

	tell application "Finder"

		set theType to (file type of monFichier as text)

		set theCreator to (creator type of monFichier as text)

		set fs to POSIX path of monFichier

		if theCreator = "MSWD" then

			do shell script "mv \"" & fs & "\" \"" & fs & ".doc\""

		end if

		if theCreator = "XCEL" then

			do shell script "mv \"" & fs & "\" \"" & fs & ".xls\""

		end if

		return true

	end tell

end addExtention



Si c'est un fichier qui est passé au programme, ça fonctionne numero uno. Si c'est un dossier, il va aller chercher le premier fichier, et planter sur la ligne set isFolder to folder of (info for monDossier).

Mad Grosse colère Burning Rage


Tous les blogs
<< Les écoles britaniques laisseraient tomber Microsoft? | Retour aux blogs | Sortie d'iTunes 4.8 >>
Blogs de la même catégorie
<< Configuration d'un SpamTrap | QT4 maintenant disponible >>