transformer windev en vba

battit64 · 26/03/2008, 16h17

Code :

// Pour chaque librairie
POUR TOUTE CHAINE Champ DE Champ SEPAREE PAR RC
	// Ajoute la librairie dans la table Table_Librairie
SI Champ <> "" ALORS
champ1 =champ1+TAB+Champ
SINON
FIN
FIN

voila mon code en windev en fait j'ai un string avec + ou moins des retou chariot je voudrais les supprimer et rajouter un seul espace entre les mots
a faire en vba

ucfoutu · 26/03/2008, 19h48

Bonjour,

ici, on ne transpose pas, mais on développe

Ouvre ton aide en ligne (sur ta machine) sur la fonction Split, s'il te plait...

Reviens au besoin avec du code VB d'application de ce que tu auras lu en nous exposant ton éventuelle incompréhension...

Edit : ou encore : remplace les retours à la ligne (vbNewLine) par des tabulations (VbTab) en utilisant la fonction Replace (ton aide en ligne également).

DarkVader · 27/03/2008, 10h34

Citation:

Envoyé par battit64

Code :

// Pour chaque librairie
POUR TOUTE CHAINE Champ DE Champ SEPAREE PAR RC
	// Ajoute la librairie dans la table Table_Librairie
SI Champ <> "" ALORS
champ1 =champ1+TAB+Champ
SINON
FIN
FIN

voila mon code en windev en fait j'ai un string avec + ou moins des retou chariot je voudrais les supprimer et rajouter un seul espace entre les mots
a faire en vba

En supposant que RC correspond à chr(10) sinon adapter à la valeur réelle de RC

Code :

const RC as string=chr(10)
myString=replace(mystring,RC+RC,RC)
myString=replace(myString,RC,chr(9))

26/03/2008, 16h17	#1 (permalink)
battit64 Membre régulier Date d'inscription: février 2006 Messages: 128	transformer windev en vba Code : // Pour chaque librairie POUR TOUTE CHAINE Champ DE Champ SEPAREE PAR RC // Ajoute la librairie dans la table Table_Librairie SI Champ <> "" ALORS champ1 =champ1+TAB+Champ SINON FIN FIN voila mon code en windev en fait j'ai un string avec + ou moins des retou chariot je voudrais les supprimer et rajouter un seul espace entre les mots a faire en vba

26/03/2008, 19h48	#2 (permalink)
ucfoutu Inscrit(e) Date d'inscription: juillet 2007 Localisation: au pays de la liberté d'esprit Messages: 3 111	Bonjour, ici, on ne transpose pas, mais on développe Ouvre ton aide en ligne (sur ta machine) sur la fonction Split, s'il te plait... Reviens au besoin avec du code VB d'application de ce que tu auras lu en nous exposant ton éventuelle incompréhension... Edit : ou encore : remplace les retours à la ligne (vbNewLine) par des tabulations (VbTab) en utilisant la fonction Replace (ton aide en ligne également). Dernière modification par ucfoutu ; 26/03/2008 à 20h40

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Général VBA
transformer windev en vba

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email