Skip to Content
Last modified by Julien EYMERY on 2019/12/23 15:52
Show last authors
1 Cet exemple écrit les mois de l'année séparés par des retour chariot dans un fichier texte 'c:\FicTxtStruct.txt' lors de l'exécution d'un événement. Le résultat doit donner ce fichier : [[FicTxtStruct.txt>>attach:FicTxtStruct.txt]]
2
3
4
5 {{code language="adelia" title="DECL_PGM" language="adelia"}}
6 BOOL RETOUR_B
7 NUM_BIN_4 RETOUR_NB4
8
9 ALPHA(1) RETOUR_CHARIOT
10
11 ALPHA(10) MOIS(12)
12 NUM_E(2,0) M
13
14 NUM_BIN_4 WTAILLE
15 ALPHA(15) WTITRE
16 ALPHA(15) WTYPE_FILTRE
17 ALPHA(15) WFILTRE
18 ALPHA(50) WCHEMIN_FIC
19 ALPHA(10) WALIAS
20 ALPHA(1) WMODE_OUV
21
22
23 {{/code}}
24
25
26
27
28
29 {{code language="adelia" title="INIT_PGM" language="adelia"}}
30 RETOUR_CHARIOT = &CONVERSION_CAR('0A')
31 MOIS(1) = 'Janvier'
32 MOIS(2) = 'Février'
33 MOIS(3) = 'Mars'
34 MOIS(4) = 'Avril'
35 MOIS(5) = 'Mai'
36 MOIS(6) = 'Juin'
37 MOIS(7) = 'Juillet'
38 MOIS(8) = 'Août'
39 MOIS(9) = 'Septembre'
40 MOIS(10) = 'Octobre'
41 MOIS(11) = 'Novembre'
42 MOIS(12) = 'Décembre'
43 EXECUTER ID_FEN0
44 {{/code}}
45
46
47
48
49
50 {{code language="adelia" title="EVENEMENT" language="adelia"}}
51 CHARGER_DLL 'vatoolbx.dll'
52 * Choix du fichier texte
53 WCHEMIN_FIC = 'c:\FicTxtStruct.txt'
54 * Ouverture du fichier texte
55 WALIAS = 'FIC_TXT'
56 WMODE_OUV = 'w'
57 APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxOpenFile' WALIAS WCHEMIN_FIC WMODE_OUV RETOUR_NB4
58 * Ecriture dans le fichier
59 M = 1
60 TANT_QUE M <= 12
61 SI M > 1
62 APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxWriteFile' WALIAS RETOUR_CHARIOT 1 RETOUR_NB4
63 FIN
64 APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxWriteFile' WALIAS MOIS(M) 10 RETOUR_NB4
65 M = M + 1
66 REFAIRE
67 * Fermeture du fichier texte
68 APPELER_DLL 'VATOOLBX.DLL' 'VaToolBxCloseFile' WALIAS RETOUR_NB4
69 DECHARGER_DLL 'vatoolbx.dll'
70 {{/code}}
71
72