[R] Gérer la date pour executer un fichier

[darkworm]

Bonjour,
Je suis débutant dans le monde d'autoIt et j'aimerais quelques astuces

Voila le problème :

*J'ai un fichier du type OpenOffice Calc (un tableur quoi) qui contient une colone avec une date (du 1er au 31) et la colone suivante qui contient un nombre de deux caractère(de 1 à 17)

*j'ai également 17 images toutes placées dans un dossier (C:\Documents and Settings\admin1\Mes documents\diaporama\modèles) prenant comme nom 1.odg par exemple.

*un dossier C:\Documents and Settings\admin1\Mes documents\diaporama\aujourd'hui

J'aimerais qu'en fonction du jour, il copie une image du dossier "modèles" dans le dossier "aujourd'hui" en la renomant main.odg

exemple :

nous sommes le "x" ème jour du mois. j'aimerai qu'au lancement du script, il lise automatiquement le caractère qui se trouve à la ligne "x" -colone 2 correspondant à une variable "y", et qu'il copie donc le fichier "C:\Documents and Settings\admin1\Mes documents\diaporama\modèles\y.odg" à l'endroit "C:\Documents and Settings\admin1\Mes documents\diaporama\aujourd'hui\main.odg"

Est ce possible ?
ca parrait balèze comme ca mais en fait il faut juste comprendre comment lire dans un tableau openoffice ... et à ce niveau la ... je suis largué XD

need help pliiiiiiiiiiiiiiz

merci d'avance

[ani]

je ne connait pas openoffice (sauf de nom), je vais regarder du coté anglais, si il n'existe pas une include qui comporterai les fonctions adéquate.

Faudra attendre les pro,

[darkworm]

il y a une autre solution. L'enregistrer au format texte.
Je m'explique : au départ, il faudrait donc remplir un tableau. Puis en l'enregistrant, cela donnerai :

Code : Tout sélectionner

1 ; 7
2 ; 9
3 ; 5
4 ; 12
5 ; 14
etc...

je ne connait pas openoffice (sauf de nom), je vais regarder du coté anglais, si il n'existe pas une include qui comporterai les fonctions adéquate.

J'aurai aussi pu le faire sur exel, seulement voila, le projet est d'ordre professionnel, et les directives ont étés simples : ne pas dépenser un centime.

voila pourquoi je suis partit sur l'idée d'OpenOffice ^^

Ca complique un peu les choses, gomenasai

[Tlem]

Sur le principe du fichier texte, cela devrait ressembler à ceci :

Code : Tout sélectionner

#include <file.au3>

$File = "test.txt"

Dim $aRecords
If Not _FileReadToArray($File, $aRecords) Then
   MsgBox(4096,"Erreur", " Erreur de lecture du fichier " & $File & "    Erreur N°" & @error)
   Exit
EndIf

$Var = StringSplit($aRecords[@MDAY],';')

$Src = "C:\Documents and Settings\admin1\Mes documents\diaporama\modèles\" & $Var & ".odg"
$Dst = "C:\Documents and Settings\admin1\Mes documents\diaporama\aujourd'hui\main.odg"

If Not FileCopy($Src, $Dst, 1) Then
   MsgBox(4096,"Erreur", " Erreur de copie du fichier " & $Var & ".odg")
   Exit
EndIf

En faisant simplement un fichier texte avec uniquement les valeurs de la deuxième colonne, vous pourrez remplacer le code par :

Code : Tout sélectionner

#include <file.au3>

$File = "test.txt"

Dim $aRecords
If Not _FileReadToArray($File, $aRecords) Then
   MsgBox(4096,"Erreur", " Erreur de lecture du fichier " & $File & "    Erreur N°" & @error)
   Exit
EndIf

$Src = "C:\Documents and Settings\admin1\Mes documents\diaporama\modèles\" & $aRecords[@MDAY] & ".odg"
$Dst = "C:\Documents and Settings\admin1\Mes documents\diaporama\aujourd'hui\main.odg"

If Not FileCopy($Src, $Dst, 1) Then
   MsgBox(4096,"Erreur", " Erreur de copie du fichier " & $aRecords[@MDAY] & ".odg")
   Exit
EndIf

Et enfin dernière possibilité, la génération d'un nombre aléatoire compris entre 1 et 17 (Puisque vous avez 17 images) qui permettra de ce passer des premières ligne de code :

Code : Tout sélectionner

$Src = "C:\Documents and Settings\admin1\Mes documents\diaporama\modèles\" & Random(1, 17, 1) & ".odg"
$Dst = "C:\Documents and Settings\admin1\Mes documents\diaporama\aujourd'hui\main.odg"

If Not FileCopy($Src, $Dst, 1) Then
   MsgBox(4096,"Erreur", " Erreur de copie du fichier " & $Var & ".odg")
   Exit
EndIf

Si ce script est lancé dans la session admin1, alors ont peut le résumer à ceci :

Code : Tout sélectionner

$Src = @MyDocumentsDir & "\diaporama\modèles\" & Random(1, 17 1) & ".odg"
$Dst = @MyDocumentsDir & "\diaporama\aujourd'hui\main.odg"

If Not FileCopy($Src, $Dst, 1) Then
   MsgBox(4096,"Erreur", " Erreur de copie du fichier " & $Var & ".odg")
   Exit
EndIf

[darkworm]

Merci beaucoup, ca marche nikel