Discussion :

[battit64]

Code :

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

1
2
3
4
5
6
7
8
// 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]

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]

Code :

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

1
2
3
4
5
6
7
8
// 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 :

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

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