Presentació
Llistat de la macro "DAUADAPT".
Descripció: crea tots els models privats
1 {DES VISUALIZ.}
2
3 {;}A:Demana i crear el directori propi~
4 {ROTULO}FerDirectori~
5 {DES VISUALIZ.}
6 {TEXTO}dirPropi~Entreu el nom del directori (màx. 8 lletres) [*]: ~
7 {SI}"{VARIABLE}dirPropi~"="*"~
8 {ACT VISUALIZ.}
9 {llistar}{VARIABLE}viaPropi~{retorn}n
10 {AVISO}Premeu RETORN per continuar.~
11 {CAR}espera~~
12 {cancel lar}{cancel lar}
13 {IR}FerDirectori~
14 {FIN SI}
15
16 {;}A:~
17 {ASIGNAR}viaP~{VARIABLE}viaPropi~{VARIABLE}dirPropi~~
18 {llistar}{retorn}7{VARIABLE}viaP~{retorn}s{sortir}
19
20 {;}A:Definir directori destí~
21 {ASIGNAR}viaP~{VARIABLE}viaP~\~
22
23 {;}A:Salva els documents invariats al directori propi~
24 {ANIDAR}{VARIABLE}viaMacros~Dau_umsp~
25 {recuperar} {VARIABLE}viaDocs~dauMdel2.fmt{retorn}
26 {salvar} {VARIABLE}viaP~dauMdel2.w51{retorn}{sortir}nn
27
28 {recuperar} {VARIABLE}viaDocs~dauMdel6.fmt{retorn}
29 {salvar} {VARIABLE}viaP~dauMdel6.w51{retorn}{sortir}nn
30
31 {recuperar} {VARIABLE}viaDocs~dauMdela.fmt{retorn}
32 {salvar} {VARIABLE}viaP~dauMdela.w51{retorn}{sortir}nn
33
34 {;}A:Demana totes les dades del document personalitzat~
35 {ACT VISUALIZ.}{DES VISUALIZ.}
36 {ANIDAR}{VARIABLE}viaMacros~DauPropi~
37
38 {;}A:Crear els nous documents i els salva al directori propi~
39 {ANIDAR}{VARIABLE}viaMacros~Dau_umsp~
40 {ASIGNAR}numVarMax~12~
41 {DES VISUALIZ.}
42 {recuperar} {VARIABLE}viaDocs~dauModel.fmt{retorn}{LLAMAR}Canviar~
43 {salvar} {VARIABLE}viaP~dauModel.w51{retorn}{sortir}nn
44
45 {recuperar} {VARIABLE}viaDocs~dauMdel5.fmt{retorn}
46 {format}2315{LLAMAR}Canviar~{sortir}{sortir}
47 {salvar} {VARIABLE}viaP~dauMdel5.w51{retorn}{sortir}nn
48
49 {recuperar} {VARIABLE}viaDocs~daumsalu.fmt{retorn}
50 {ASIGNAR}numVarMax~8~{LLAMAR}Canviar~
51 {salvar} {VARIABLE}viaP~dauMSalu.w51{retorn}{sortir}nn
52 {ACT VISUALIZ.}{DES VISUALIZ.}
53
54 {;}A:Avisar i finalitzar la macro********************************~
55 {AVISO}Els models personalitzats són al directori:
56 {VARIABLE}dirPropi~ (RETORN per continuar)~
57 {CAR}espera~~
58 {AVISO DE ESTADO}~
59 {REGRESAR}
60 {;}Fi de la macro...........~
61
62
63 {;}A:Substitueix les marques x0.. x9 per els seus valors~
64 {ROTULO}Canviar~
65 {PARA}index~0~{VARIABLE}numVarMax~~1~
66 {LLAMAR}AnarIniciDoc~
67 {LLAMAR}Cercar xIndex~
68 {LLAMAR}EsborrarMarca~
69 {SI}{VARIABLE}index~>9~{Retroceso}{FIN SI}
70 {LLAMAR}PosarContingut~
71 {FIN PARA}
72 {REGRESAR}
73
74 {;}SR:subrutines~
75 {ROTULO}AnarIniciDoc~ {inici}{inici}{inici}{amunt} {REGRESAR}
76 {ROTULO}Cercar xIndex~ {buscar}x{VARIABLE}index~{buscar}{REGRESAR}
77 {ROTULO}EsborrarMarca~ {Retroceso}{Retroceso} {REGRESAR}
78 {ROTULO}PosarContingut~
79 {ASIGNAR}xNum~x{VARIABLE}index~~
80 {VARIABLE}{VARIABLE}xNum~~
81 {REGRESAR}
Josep Tordera, Lluís de Yzaguirre i Víctor Pàmies
Institut de Lingüística Aplicada (
Universitat "Pompeu Fabra")
Servei de Llengua Catalana (
Universitat de Barcelona)
corr-el: lluis punt deyzaguirre arrova upf punt edu