Tip 7 #4D Write Pro - Chercher/Remplacer

Voici un petit bout de code qui vous permet de chercher et remplacer une chaine de texte par une autre dans un document Write Pro.

Dans le code, veuillez penser à remplacer Form.WPObj, Form.search et Form.replace:

C_OBJECT($find)

$length:=0

// Find

$allText:=WP Get text(Form.WPObj)

$pos:=0

$find_col:=New collection

Repeat

$pos:=Position(Form.search;$allText;$pos+1;$length)

If ($pos>0)

$find_col.push(New object("pos";$pos;"length";$length))

End if

Until ($pos=0)

// Replace

For ($i;$find_col.length-1;0;-1)

$find:=$find_col[$i]

$range:=WP Text range(Form.WPObj;$find.pos;$find.pos+$find.length)

WP SET TEXT($range;Form.replace;wk replace)

End for