WDForge.org - Forums

Re: Export HD -->Word

Sujet: Re: Export HD -->Word
par drcharly93 sur 10/2/2009 7:43:25

Bonjour,

Une simple Bidouille

Tu créer une boucle si ta chaine à envoyer est supérieur à 200 caractères en mettant en bout de chaine un mot permettant de continuer le remplacement jusqu'a épuisement

PROCEDURE Find_Replace(psBalise est une chaine, psReplace est une chaine)
nLong est un entier
nPos est un entier = 1
sBloc est une chaine
sBuff est une chaine = "@@@"

nLong = Taille( psReplace )
sBloc = psReplace[[ nPos A nPos + 195 ]] 
TANTQUE nPos <  nLong 
Si ( nPos + 195 )< nLong Alors sBloc += sBuff  
  word>>Selection>>Find>>Execute(psBalise,Faux,Vrai,Faux,Faux,Faux,Vrai,1,Faux,psReplace,2)
  psBalise = sBuff
  nPos += 195
FIN