(texte_clipboard)

[Patrick_35]

Bonjour

 

Voici une routine qui récupère les valeurs d'un copier (ctrl+c) depuis Excel, Word, Bloc-note, etc... sous la forme d'une liste.

Danc cette liste, il peut y avoir plusieurs sous-listes et chaque sous-liste correspond à une ligne.

 

Par exemple, un ctrl+c depuis le bloc-note sur

Une ligne

Une deuxieme

Encore une

Histoire de ;)

(texte_clipboard) --> '(("Une ligne") ("Une deuxieme") ("Encore une") ("Histoire de ;)"))

 

Depuis Excel (chaque chiffre est dans une cellule différente)

1 2 3 4

5 6 6 7

9 0 0 1

(texte_clipboard) --> '(("1" "2" "3" "4") ("5" "6" "6" "7") ("9" "0" "0" "1"))

 

ps : Si on fait un copier depuis l'explorateur, le résultat sera nil.

 

@+

texte_clipboard.lsp

[didier]

Coucou

 

Merci pour le partage

Tout de suite je n'en vois pas l'utilité mais c'est fort, bravo.

 

Amicalement

[Patrick_35]

Salut et merci Didier

 

J'ai un collègue qui fait un export d'un logiciel de calcul vers Excel. Ensuite, il fait un copier depuis Excel vers des dessins Autocad qui renseignent automatiquement les bons attributs.

J'en ai profité alors pour généraliser la fonction.

 

@+

[ElpanovEvgeniy]

other way:

 

(defun texte_clipboard (/ HTML STR)
 (setq html (vlax-create-object "htmlfile")
       str  (vlax-invoke (vlax-get (vlax-get html 'parentwindow) 'clipboarddata) 'getdata "text")
 )
 (vlax-release-object html)
 (read (strcat "((" (vl-string-translate "\r\n" ")(" str) "))")))

[Patrick_35]

Thank you very much Alphanov Evgeniy

 

This is a smart way to do that I had never thought.

But because there is always a but, it does not work with copy from excel on a range of cells with values that contain spaces.

 

With the example given in excel but processed in monetary figures, str = "1,00 €\t2,00 €\t3,00 €\t4,00 €\r\n5,00 €\t6,00 €\t6,00 €\t7,00 €\r\n9,00 €\t0,00 €\t0,00 €\t1,00 €\r\n" and read's function transforms the separate elements of a list areas.

 

The result should be (("1,00 €" "2,00 €" "3,00 €" "4,00 €") ("5,00 €" "6,00 €" "6,00 €" "7,00 €") ("9,00 €" "0,00 €" "0,00 €" "1,00 €")) instead of ((1,00 € 2,00 € 3,00 € 4,00 €) (5,00 € 6,00 € 6,00 € 7,00 €) (9,00 € 0,00 € 0,00 € 1,00 €) nil)

 

You're welcome.

 

@+

[didier]

Coucou

 

Every time ElpanovEvgeniy speaks it is necessary to listen to

Every time ElpanovEvgeniy writes is necessary to read

 

Thank you very much

 

Amicalement

[ElpanovEvgeniy]

maybe?

(vl-string-translate "\r\n " ")(_" str)

 

[Patrick_35]

maybe?

(vl-string-translate "\r\n " ")(_" str)

Why not, it's a solution :D

Remains how to exploite the list

 

@Didier

It's not false

I must say ElpanovEvgeniy is the best World's lisp's

 

@+