Discussion :

[michel.souris]

Bonjour à tous,

J'ai récupérer une appli codé avec les pieds donc je préviens directement que je ne suis pas responsable des horreurs que j'y trouve...
Parmi tout ça y a un truc qui me chiffonne (qui n'est pas du au précédent dév) et qui embête nos clients :

pour les états le gars avait la facheuse habitude mettre le code d'alimentation des différents dans la section "Avant impresson" de chaque élement... c'est pas très pratique je trouve mais passons...

il avait aussi l'habitude de préparer des chaines RTF et de les compléter avec ChaineConstruit(MoiMeme, "Toto") (oui MoiMême dans chaque champ, c'est top de chez top, on s'y retrouve très très bien...), pourquoi pas ! Sauf qu'à l'export de l'état vers Word (merci amis dév d'avoir suivit jusque là) se pose le problème suivant : les "é", "ù" et autres "à" sont transformés en "?" ce qui n'est ni lisible ni esthétique !

Après débugage je me rends compte que Windev ne gère pas bien l'ajout de "données" dans les champs RTF avec ChaîneConstruit (logique me diras-tu, elle s'appelle ChaineConstruit et pas RTFConstruit)....

Voilà voilà ! c'est la merde ! donc je voudrais savoir si il existe une solution à votre connaissance... j'ai tenté des HTMLVersRTF(TexteVersHTML(maVar)) vu qu'il n'y a pas de vol direct mais même sanction...

Au pire je vais me code une fonction ChaineVersRTF qui gère les accents mais si ça existe déjà je suis preneur !

Edit : tin je viens de voir que une nouveauté de la v18... de là à ce que je migre le projet pour ça....

[laurent30s]

Je ne sais pas si ça répond vraiment à ton besoin mais il existe la fonction RTFInsère()... peut-être que...

[laurent30s]

Tu peux peut-être jouer avec RTFSélection() et RTFRemplace()

Par exemple tu sélectionnes %1 que tu remplaces par ta chaîne RTF

Pas testé, à creuser...

[michel.souris]

Merci laurent !
J'y ai pensé mais ça me faisait revoir beaucoup de chose parce que des fois j'ai %7, %8 voire plus ! donc ça aurait pu se gérer comme ça mais j'ai préféré faire une fonction de formatage RTF... (inspirée d'un script http://forums.4d.fr/Post//4971201/1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
PROCEDURE TexteVersRTF(TxtBrut)
 
 
TxtRTF est une chaîne
car est une entier
 
FOR i = 1 _TO_ Taille(TxtBrut)
	car=Asc(TxtBrut[[i]])
	SWITCH car
 
		CASE 13
			TxtRTF+="\par"
		CASE >127
			TxtRTF+="\'"+Minuscule(Droite(EntierVersHexa(car),2))
		AUTRE CAS
			TxtRTF+=Caract(car)
	END
END
 
RENVOYER TxtRTF

Voilà si quelqu'un en a besoin (....ou quelqu'un voit une énormité)