Rechercher

Tip 7 #4D Write Pro - Chercher/Remplacer

Mis à jour : 24 juin 2019

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


247 vues

Posts récents

Voir tout

Me contacter

  • Twitter
  • YouTube

Biel/Bienne - Bern - Switzerland