Page 1 sur 1

[R] Copier / coller

Posté : ven. 05 févr. 2010 08:54
par Mikaas
Bonjour me revoilà :P

pour cette fois j'aurai souhaiter pour faire un copier coller un peu spécial.

le déroulement :

- Je sélectionne un texte à copier ( avec ctrl + a si on veux )
- Je copie avec les touches ctrl + c

se que j'attends du script c'est :

- Je sélectionne un texte à copier ( avec ctrl + a si on veux )
- lorsque que j'appuis sur ctrl + c

automatiquement il effectue grossomodo :

apres avoir appuyé ctrl + c (HotKeySet)
il copie (obligatoirement la sélection)
ouvre un fichier texte ou peu importe, mais qui lui permet de stocker ce que je viens de copier.

j'ai testé un petit bout de code un peu similaire mais pas entierement satisfait.
principalement car je souhaite que tous ce fasse en hide.

Mon script :
► Afficher le texte
à la place de HotKeySet touche UP avoir les touche CTRL + C
et copier dans un txt en minimizé avec le meme nom toujour ( limite log ) serai cool :)
ça éviterai d'ouvrir un new document txt à chaque copie.

si quelqu'un aurai une solution, merci d'avance !

cordialement mikaas.

Re: [..] Copier / coller

Posté : ven. 05 févr. 2010 10:06
par Habibsbib
Fastoche ;)

Code : Tout sélectionner

HotKeySet("{ESC}", "_ExitSub")
HotKeySet("{^c}", "_Copy")

$file = "log.txt"

Func _ExitSub()
    Exit 0
EndFunc   ;==>TERMINER

Func _Copy()
   $copy = ClipGet()
   FileWrite ($file, $copy&@CRLF)
EndFunc   ;==>AUTO

While 1
    Sleep(10)
WEnd
Le tour est joué ;) Il va t'écrire ça dans un fichier nommé "log.txt" qui va se placer dans le dossier de ton script. Il va stocker les données à copier ligne par ligne.

Et voila ;)

Re: [..] Copier / coller

Posté : ven. 05 févr. 2010 10:56
par Mikaas
Merci mais avec le HotKeySet ("{^c}") cela n'a pas l'air de fonctionner chez moi :(
J'ai essayé avec F1 il écris dedans donc je ne vois que la HotKeySet :(

Re: [..] Copier / coller

Posté : ven. 05 févr. 2010 11:30
par Iste
Normal, la hotkey intercepte le copier
de plus, la bonne syntaxe est "^c" et non "{^c}"

Code : Tout sélectionner

HotKeySet("{ESC}", "_ExitSub")
HotKeySet("^c", "_Copy")

$file = "log.txt"

Func _ExitSub()
    Exit 0
EndFunc   ;==>TERMINER

Func _Copy()
    HotKeySet("^c")
    Send("^c")
   $copy = ClipGet()
   FileWrite ($file, $copy&@CRLF)
    HotKeySet("{^c}", "_Copy")
EndFunc   ;==>AUTO

While 1
    Sleep(10)
WEnd

Re: [R] Copier / coller

Posté : ven. 05 févr. 2010 12:12
par Mikaas
oh bah petit souci, il ne copie que le premier copier coller :(

Re: [..] Copier / coller

Posté : ven. 05 févr. 2010 18:37
par Habibsbib
Avec mon script ça marche bien. C'était juste une erreur de HotKeySet. A voir :

Code : Tout sélectionner

HotKeySet("{ESC}", "_ExitSub")
HotKeySet("^c", "_Copy")

$file = "log.txt"

Func _ExitSub()
    Exit 0
EndFunc   ;==>TERMINER

Func _Copy()
   sleep(200)
   $copy = ClipGet()
   FileWrite ($file, $copy&@CRLF)
EndFunc   ;==>AUTO

While 1
    Sleep(10)
WEnd

Re: [..] Copier / coller

Posté : ven. 05 févr. 2010 22:22
par Mikaas
non plus il ne fait que copier le CTRL + C en cours
j'ai beau selectionner une url il ne la copie pas :(

Re: [..] Copier / coller

Posté : ven. 05 févr. 2010 23:09
par Mikaas
bon en attendant j'ai bidouillé un peu j'ai fais ceci :
► Afficher le texte
et la meme chose sur le 2 mais en run le 1.exe bon c'est pas top mais ca tiendra le temps de trouver une solution ^^

merci pour l'aide future apportée.

Re: [..] Copier / coller

Posté : dim. 07 févr. 2010 03:40
par Mikaas
Petit up :)

Re: [..] Copier / coller

Posté : lun. 08 févr. 2010 05:50
par Mikaas
Personne aurai une solution s'il vous plait :oops: ?

Re: [..] Copier / coller

Posté : lun. 08 févr. 2010 07:58
par Tlem
Le code de Iste est celui qu'il vous faut. Il y à juste un petit problème de syntaxe sur la remise en place du HotKeySet() (le deuxième) mais sinon tout est OK.
Corrigez la syntaxe et tout devrait fonctionner comme vous le souhaitez.

Re: [..] Copier / coller

Posté : lun. 08 févr. 2010 08:19
par Mikaas
tout bêtement...merci