BiS_LeftJ

N° Fonction Catégorie Version
BIS 04 BiS_LeftJ Gestion de Chaînes 1.0 - Janvier 2007

Description

But Justifie un texte à gauche
Prototype (BiS_LeftJ Chaîne Nbr_Caractères)
Arguments Chaîne - Le texte cible à modifier - Chaîne -
Nbr_Caractères - Nombre total de caractères désirés - Entier -
Retours La chaîne modifiée
Var. globales Néant
Description Ajoute des espaces à la fin d'une chaîne pour justifier le texte à gauche.
Notes Attention : c'est le nombre total de caractères, y compris ceux de la chaîne à traiter, qu'il faut indiquer..
Voir également les fonctions BiS_FillL et BiS_FillR.
Exemples 

Command: (setq s1 "CHAINE")   "CHAINE"
(BiS_Left_J s1 10)	retourne   	"CHAINE    "
(BiS_Left_J "CHAINE" 10)	retourne   	"CHAINE    "
(BiS_Left_J s1 4)	retourne    "CHAINE"
	Le second argument est trop petit.
(BiS_Left_J toto 5)	retourne   nil
	L'argument toto est nil.	
(BiS_Left_J s1 0)	retourne	"CHAINE"
(BiS_Left_J s1 "toto")	retourne	"CHAINE"
	"toto" n'est pas un nombre entier.

La fonction 


  1-  (defun BiS_LeftJ (*Text1 *Nbr_Caract)

  2-     (if (and
  3-           (= (type *Text1) 'STR)		
  4-	          (= (type *Nbr_Caract) 'INT)		
  5-         )

  6-        (while 		
  7-		   (< (strlen *Text1) *Nbr_Caract) 	

  8-            (setq *Text1 (strcat *Text1 " "))	
  9-        )			
 10-     ) 		
 11-     (eval *Text1)		
 12-  ) 


Ligne 3 :	Si  *Text1 est bien une chaîne
Ligne 4 :	et si *Nbr_Caract est un entier,
Ligne 6 :		Boucle tant que
Ligne 7 :		la longueur de *Text1 est plus petite que *Nbr_Caract
Ligne 8 :			ajoute un espace à la fin de *Text1
Ligne 9 :	      	Fin de la boucle while - Remonte si la longueur de *Text1 est 
						plus petite que *Nbr_Caract.
Ligne 10 :	Fin de if
Ligne 11 :	Retourne la valeur de *Text1
Type : Renvoie le type de l'élément spécifié.
Strlen Renvoie le nombre de caractères présents dans la chaîne *Text1 (nombre entier).
Strcat ici, ajoute un espace à la fin de la chaîne *Text1.
Eval Renvoie la valeur de *Text1..