1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
| property Sep : ";"-- defini le separateur de colonnes du fichier csv
global libelle, largeur, hauteur, Aindex, Nindex
--initialisation
set libelle to {} -- liste des libelles de formats
set largeur to {} -- liste des largeurs de formats
set hauteur to {} -- liste des hauteurs de formats
set Aindex to 0-- ancien index
set Nindex to 0-- nouvel index
-- pour les tests
set fichierCSV to (path todesktopastext) & "Formats_Pubs_2.csv"
set Aindex to LitCSVindex(fichierCSV, libelle, largeur, hauteur) --lecture du fichier csv
if Aindex = 0 then set Aindex to 1
tell application"Adobe InDesign CC 2018"
activate
set varDropDownList to libelle
set varSelectedIndex to 1
set varMinimumWidth to 150
set myEventNames to {"afterNew", "afterUpdate", "afterInvoke", "afterActivate", "afterContextChanged", "afterSelectionAttributeChanged", "afterSelectionChanged", "beforeUpdate"}
set myDialog to make dialog with properties {name:"CHOIX DU FORMAT :"}
tell myDialog
tell (make dialog column)
tell (make border panel)
tell (make dialog column)
tell (make dialog row)
---- DRODPDOWN
make static text with properties {static label:"LISTE DES FORMATS : "}
set varDropDown to make dropdown with properties {string list:libelle, selected index:(Aindex - 1), min width:varMinimumWidth}
tell varDropDown
repeat with myEventName in myEventNames
make event listener with properties {event type:myEventName, handler:my dropdownchange}
end repeat
end tell
end tell
end tell
end tell
end tell
end tell
--get the results
set myResult to show myDialog
if myResult = true then
-- varDropDown Handler (Dropdown)
set Nindex to ((selected index of varDropDown) + 1)
set varDropDownListChoice to item Nindex of libelle as item
end if
destroy myDialog
end tell
if Nindex is not Aindex then -- index changé, on l'enregistre, sinon, on ne fait rien !
EcritCSV(fichierCSV, libelle, largeur, hauteur, Nindex)
end if
set the_position to indexof(fichierCSV, libelle)
if the_position is 5 then
tell application "Finder"
activate
display dialog "Format non valable"
end tell
end if
-- ********* fin programme principal
on dropdownchange()
tell application"Adobe InDesign CC 2018"
set myEvent to evt
display dialog ("This event is the " & event type of myEvent & " event.")
end tell
end dropdownchange
on LitCSVindex(fcsv, l1, l2, l3)
--lit le fichier localcsv et retourne les listes l1,L2,l3. Renvoie l'index de la derniere ligne avec la colonne 4 non vide
set i to 0
set lignes to every paragraph of (read file fcsv)
set AppleScript's text item delimiters to {Sep}
repeat with n from 1 to (countof lignes)
set end of l1 to text item 1 of (item n of lignes)
set end of l2 to text item 2 of (item n of lignes)
set end of l3 to text item 3 of (item n of lignes)
try
if (text item 4 of (item n of lignes)) is not "" then set i to n
end try
end repeat
return i
end LitCSVindex
on EcritCSV(fcsv, l1, l2, l3, i) -- ecrit le fichier fcsv avec les lignes formées de l1,l2,l3 et un 'X' en ligne i)
set mtexte to ""
repeat with n from 1 to count of l1
if n = i then-- met un X en colonne 4 sur la ligne choisie
set finligne to "X"
else
set finligne to ""
end if
if n = (count of l1) then-- pas de return en dernière ligne
set retour to ""
else
set retour to return
endif
set mtexte to mtexte & (item n of l1) & Sep & (item n of l2) & Sep & (item n of l2) & Sep & finligne & retour
endrepeat
try
set fcible to open for access file fcsv with write permission
set eof of fcible to 0
write mtexte to fcible
close access fcible
on error
close access fcs
end try
end EcritCSV
on indexof(theItem, fichierCSV)
set text item delimiters to return
set fichierCSV to return & fichierCSV & return
set text item delimiters to {""}
try
-1 + (count (paragraphs of (text 1 thru (offset of (return & theItem & return) in fichierCSV) of fichierCSV)))
on error
0
end try
end indexof |
dernier Item sélectionné par défaut dans menu déroulant
Répondre avec citation
Envoyé par L'escouade de Pierre
Nindex-1). Donc la ligne 40 est inutile car tu n'utilises pas la variable varSelectedindex !
Partager