Discussion :

[melmouj]

Bonjour,

j'arrive pas à supprimer le debut de commentaires "/*" qui se trouvent à l'interieur du simples ou doubles quotes

Code :

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

1
2
3
4
5
6
7
8
9
 
 
exemple:
 
put "put " var1 '+(-1) ";"  %var11 /* ' %var1 ' */ ';
put "put " var1 " +(-1) ';' /* %var10 " %pepe ' */ ';
 
j'ai fait ça: 
sed "s/'*[^']*[^%a-z]*'//g'

Merci

[Pouic]

Code :

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

sed -e 's,/\*.*\*/,,g' fichier

Mais je n'ai peut-être pas compris ce que tu souhaitais faire...

[melmouj]

Code :

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

sed -e 's,/\*.*\*/,,g' fichier

Mais je n'ai peut-être pas compris ce que tu souhaitais faire...

ce que je veux c'rest de supprimer le debut du commentaires /* qui se trouve entre simple ou double quote.
exemple:
put "put " var1 ' +(-1) ";" %var11 /* ' %var1 ' */ ';
put "put " var1 " +(-1) ';' /* %var10 " %pepe ' */ ';

[Pouic]

Mouais....
Tu peux donner un exemple avant / après transformation ?

[melmouj]

Mouais....
Tu peux donner un exemple avant / après transformation ?

avant transformation:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
%macro var1;
var1
/* %mend var1; */
 
put '/*-- ' %pepe ' -- */';
put "put " %pepe ' +(-1) ";" /* ' var2 ' */ ' %var3 ";" ;
put "put " var1 ' +(-1) ";"  %var11 /* ' %var1 ' */ ';
put "put " var1 ' +(-1) ";" /* %car ' %pepe ' */ ';

aprés transformation

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
%macro var1;
var1
/* %mend var1; */
 
put '-- ' %pepe ' -- */';
put "put " %pepe ' +(-1) ";"  ' var2 ' */ ' %var3 ";" ;
put "put " var1 ' +(-1) ";"  %var11  ' %var1 ' */ ';
put "put " var1 ' +(-1) ";"  %car ' %pepe ' */ ';

[laurentschneider]

Code :

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

1
2
 
sed "s,\([^']*'[^']*\)/\*\([^']*\),\1\2,g"

sans doute qu'un bout de code en perl serait plus lisible / plus fiable

[melmouj]

Merci laurentschneider,

je vois pas comment le faire avec perl

Code :

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

1
2
 
sed "s,\([^']*'[^']*\)/\*\([^']*\),\1\2,g"

sans doute qu'un bout de code en perl serait plus lisible / plus fiable

[melmouj]

Bonjour,

Code :

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

1
2
 
sed "s,\([^']*'[^']*\)/\*\([^']*\),\1\2,g"

sans doute qu'un bout de code en perl serait plus lisible / plus fiable

dans le cas ou j'ai une ligne de ce genre càd dans le cas ou des simples quotes se suivent je ne deverai pas supprimer le /* car elle n'est pas entre quotes mais à l'exterieur.

Code :

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

1
2
 
if last then put '%v;' ;  %v2 /* %eeeee; put '; run;'; */