lpstr problems

[ldarrambide]

Macro Macro13

Code:

Copy      Help

lpstr s="ceci est mon test olympia venus"
str ss=s
RemplaceMots(&ss)
out ss

Function RemplaceMots

Code:

Copy      Help

function ~&texte

str s.getmacro("GarderCasse")

ARRAY(lpstr) tmpArray
lpstr g
IStringMap m._create
m.Flags=1|2
m.AddList(s "csv")

str tmp1=texte
;str tmp2=texte

tok tmp1 tmpArray -1 "" 1

for _i 0 tmpArray.len
,g=m.Get(tmpArray[_i])
,if(g)
,,texte.findreplace(tmpArray[_i] g)