La recherche ne fonctionne pas

[Angelo2449]

Bonjour tout le monde,

J'ai un problème avec ce simple code:

 (défun c:ps (/ str txt1 ed1 pos1 pos2 ang1)

(setq str zéro)

(alors que (= str zéro)
(setq str (nentsel "\neleziona la strana")
);

(principal "\nstr xxxxxx ")
(principaux str)
(principal "\n")

(setq ed1 (entget (car str)))
(setq txt1 (cdr (assoc 1 ed1)) ; ; 10h00 8h25 129,88°

(principal "\ntxt1 xxxxxx ")
(principal txt1)
(principal "\n")

(setq pos1 (vl-string-search "°" txt1 1))

(principal "\npos1 xxxxxx ")
(principaux pos1)
(principal "\n")

);

le caractère "°" n'est pas trouvé dans la chaîne txt1 (10:00 am 8.25° 129.88°), si j'insère la chaîne au lieu de la variable, pos1 suppose la bonne valeur 13, sinon zéro"

Je vous remercie.

 

[GP.]

pour moi il fonctionne, faire une tentative avec (chr 176) au lieu de "°"

 

[Angelo2449]

déjà fait, même résultat !

 

[GP.]

essayer de contourner le problème
(vl-position 176 (vl-string->list txt1))

 

[Angelo2449]

Merci, ça marche !
Comment écririez-vous, la même commande qui cherche le prochain "°" ?

(setq pos1 (position 176 (vl-string->list txt1))
(setq pos2 (vl-position 176 (vl-string->list txt1 (pos1 + 1))))

La première ligne fonctionne, la seconde me donne une erreur.

Je vous remercie.

 

[rpor66]

(setq pos2 (vl-position 176 (vl-string->list txt1 (+ pos1 1))))