Subversion Repositories wimsdev

Rev

Rev 4351 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
2
 !goto proc
3
!endif
4351 bpr 4
slib_author=Bernadette, Perrin-Riou
7409 bpr 5
slib_example=??France?? Brésil ??Italie?? ??Allemagne??
6
 
20 reyssat 7
!exit
8
 
9
:proc
10
 
11
slib_texte=!lines2words $wims_read_parm
12
slib_texte= !embraced randitem $slib_texte
13
slib_texte=!rows2lines $slib_texte
14
slib_texte=!replace internal $\
15
$ by &#59; in $slib_texte
16
slib_texte=!replace internal ?? by ; in $slib_texte
17
slib_cntrow=!rowcnt $slib_texte
18
slib_TEXTE=
19
slib_rep=
20
slib_cnt=0
21
slib_texte=!replace internal , by , in $slib_texte
22
!for slib_i= 1 to $slib_cntrow
23
  slib_H = !row $slib_i of $slib_texte
24
  slib_cnt_w=!wordcnt $slib_H
25
  slib_k=$[$slib_i%2]
26
  !if $slib_k = 0
27
    slib_rep1 = !values $slib_cnt + x for x=1 to $slib_cnt_w
28
    slib_rep  = !append item $slib_rep1 to $slib_rep
29
  !endif
30
  slib_cnt= $[$slib_cnt+$slib_cnt_w]
31
  slib_HH = !words2items $slib_H
32
  slib_TEXTE = !append item $slib_HH to $slib_TEXTE
33
!next slib_i
34
slib_rep=!nonempty items $slib_rep
35
 
36
slib_TEXTE = !nonempty items $slib_TEXTE
37
 
38
slib_out= $slib_rep;$slib_TEXTE;$slib_cnt
39
 
40