recherche texte

[nobless]

he, bonjour,

 

a des fin de verification je recherche un certain mot dans tout mon plan

lorsqu' il en trouve il me dit qu'il se trouve sur une autre presentation, c'est bien

mais laquelle ??

 

quand on a beaucoup d'onglets sa fatigue :P

[bonuscad]

Salut,

 

Hé va falloir t'y mettre à te creuser la tête si tu as souvent des besoins spécifiques. ;)

 

(defun c:nobless ( / chaine js n)
(setq chaine (getstring T "\nEntrer le texte à localiser: "))
(setq js (ssget "_X" (list '(0 . "TEXT") (cons 1 chaine))) n 0)
(cond
(js
	(textscr)
	(repeat (sslength js)
		(princ "\nTexte trouvé dans l'onglet : ")
		(princ (cdr (assoc 410 (entget (ssname js n)))))
		(setq n (1+ n))
	)
	(princ (strcat "\nSoit " (itoa n) " textes trouvés au total."))
)
(T
	(princ "\n Aucun texte correspondant trouvé")
)

)
(princ)
)

[nobless]

encore merci

 

je m'y mais quand j'ai le temps

j'en suis a essaye de comprendre deja la syntaxe

et c'est pas evident avec l'aide

 

sinon ton lisp fonctionne mais seulement avec les mots entiers

j'ai beau essayé d'y arrivé tout seul depuis une demi heure :casstet: ?????

 

 

[Serge]

Tu peux toujours remplacer

(cons 1 chaine)

par

(cons 1 (strcat "*" chaine "*"))

 

Cependant, cette solution est sensible au majuscules/minuscules.

 

Il faut passer par une boucle plus détaillée.

 

Serge