07-26-2015, 03:48 PM
Finally, I succeeded with the following code, including in the case of unicode characters. Any better solution is still welcome :
Macro Macro4
Macro Macro4
subject="Perigrafi;A;100;;;Y;Help;;;400;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
str pattern=";"
str s
int i; ARRAY(CHARRANGE) a
findrx(subject pattern 0 4 a)
s.get(subject 29 43-29)
out s
for i 0 a.len-1
,int i0=a[0 i].cpMax
,int i1=a[0 i+1].cpMin
,s.get(subject i0 i1-i0)
,out F"{i} {i0} {i1} {s}"