Code seul

Après un METHODE LIRE CODE, une fonction qui enlève “tout ce qui n’est pas code” du résultat :
<code 4D>
//Doa_codeClean (code_t) -> txt
//$0 code_t dont on a enlevé
// les commentaires
// les lignes vides
// les “à la ligne”
C_TEXTE($0;$1)
C_TEXTE($code_t)

C_ENTIER LONG($i_l)
C_ENTIER LONG($start_l;$pos_l;$length_l)
//_
$code_t:=$1
TABLEAU TEXTE($code_at;0x0000)
Str_explode (->$code_at;$code_t;"\r")
Boucle ($i_l;Taille tableau($code_at);1;-1)
$delete_b:=Faux
Au cas ou
: (Trouver regex("\\$";$code_at{$i_l-1};1)) //à la ligne
$code_at{$i_l-1}:=Sous chaîne($code_at{$i_l-1};1;Longueur($code_at{$i_l-1})-1)+$code_at{$i_l}
$delete_b:=Vrai
: ($code_at{$i_l}="") //ligne vide
$delete_b:=Vrai
Sinon
$pos_l:=Position("//";$code_at{$i_l};*) //commentaire
Au cas ou
: ($pos_l=1) //ligne de commentaire
$delete_b:=Vrai
: ($pos_l>1) //ligne de code suivie de commentaire
$code_at{$i_l}:=Supprimer chaîne($code_at{$i_l};$pos_l;MAXENT)
Fin de cas
Fin de cas
Si ($delete_b)
SUPPRIMER DANS TABLEAU($code_at;$i_l)
Fin de si
Fin de boucle
$code_t:=Str_implode (->$code_at;"\r")
$0:=$code_t
//_
</code 4D>

Y’a des jours tu me fais peur… :roll:

Si tu as besoin d’analyser du code, c’est plus facile sans décoration. Genre : combien de fois la méthode X qui accepte 22 paramètres dont 18 optionnels en reçoit effectivement 22.

Et puis d’abord je code comme je conduis :mrgreen:

Et dire que j’ai passé 15 jours l’été dernier sur 700 lignes de code pour tenter de faire l’inverse et je n’arrive même pas encore à rajouter des commentaires …

et je conduis comme je code, c’est-à-dire en m’enfilant un petit blanc entre chaque ligne de coke.

attention Hervé en Thailand les lignes sont très dangerous !!!