LISP : Suppression d'un ou plusieurs caractère dans une chaîne de caractère

[ftmanu777]

Bonjour la communauté 🙂

Soit X une chaîne de caractère qui correspond à "PointX\tpointY \tpointZ"

Ma question est la suivante: comment faire pour enlever le "\t" ou remplacer le "\t" par une "espace" par exemple pour avoir quelque chose comme "PointX pointY pointZ" (cas d'une espace)?

J'ai éssayé la "substr" mais le problème c'est que la valeur des points peut varier de 0.0000 à 10000000.0000

Merci à tout ce qui vont me répondre 🙂

[Y.AUBRY]

Bonjour @ftmanu777 ,

Ci-joint un extrait d'une réponse de @_gile  dans ce topic.

La fonction substr retourne la sous-chaîne depuis l'index spécifié (base 1) et, optionnellement, de la longueur spécifiée.

La fonction vl-string-position retourne la position d'un caractère dans une chaîne.

Ce que veux obtenir, c'est la sous-chaine depuis le premier caractère (indice 1) d'une longueur égale à la position du caractère "_".

(substr str 1 (vl-string-position (ascii "_") str))

il faut donc dans ton cas rechercher la position de "\" dans ta chaine de caractère

A+ Yoan

[CADaSchtroumpf · Accepted solution]

Bonjour,

Une fonction qui pourrait faire le job.

(defun string-subst (old_string new_string value_string / value_string nbs tmp_nbs)
  (setq nbs 0)
  (while nbs
    (if (setq nbs (vl-string-search old_string value_string (setq tmp_nbs nbs)))
      (setq
        value_string (vl-string-subst new_string old_string value_string tmp_nbs)
        nbs (1+ nbs)
      )
    )
  )
  value_string
)

Exemple d'utilisation:

(setq str "PointX\tpointY \tpointZ")
(string-subst "\t" " " str); --> "PointX pointY  pointZ"