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
|
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_author=Bernadette, Perrin-Riou
!exit
:proc
slib_texte=!lines2words $wims_read_parm
slib_texte= !embraced randitem $slib_texte
slib_texte=!rows2lines $slib_texte
slib_texte=!replace internal $\
$ by ; in $slib_texte
slib_texte=!replace internal ?? by ; in $slib_texte
slib_cntrow=!rowcnt $slib_texte
slib_TEXTE=
slib_rep=
slib_cnt=0
slib_texte=!replace internal , by , in $slib_texte
!for slib_i= 1 to $slib_cntrow
slib_H = !row $slib_i of $slib_texte
slib_cnt_w=!wordcnt $slib_H
slib_cnt_c=!charcnt $slib_H
slib_k=$[$slib_i%2]
!if $slib_k = 0
slib_rep1 = !values $slib_cnt + x for x=1 to $slib_cnt_c
slib_rep = !append item $slib_rep1 to $slib_rep
!endif
slib_cnt = $[$slib_cnt+$slib_cnt_c]
slib_HH =
!for slib_j = 1 to $slib_cnt_c
slib_char = !char $slib_j of $slib_H
slib_HH = !append item $slib_char to $slib_HH
!next slib_j
slib_TEXTE = !append item $slib_HH to $slib_TEXTE
!next slib_i
slib_TEXTE = !nonempty items $slib_TEXTE
slib_out= $slib_rep;$slib_TEXTE;$slib_cnt
|
