[R] Copier / coller

[Mikaas]

Bonjour me revoilà

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

Code : Tout sélectionner

HotKeySet("{ESC}", "TERMINER")
HotKeySet("{UP}", "AUTO")

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

Func AUTO()
    Send("^c")
    Sleep(200)
    Run("notepad.exe")
    WinWaitActive("Sans titre - Bloc-notes")
    Sleep(1000)
    AutoItSetOption("WinTitleMatchMode", 2)
    AutoItSetOption("SendKeyDelay", 5)
    $handle = WinGetHandle("Sans titre - Bloc-notes", "")
    ControlSend($handle, "", "", "^v")
EndFunc   ;==>AUTO

While 1
    Sleep(10)
WEnd
 

à 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.

[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

[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

[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

[Mikaas]

oh bah petit souci, il ne copie que le premier copier coller

[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

[Mikaas]

non plus il ne fait que copier le CTRL + C en cours
j'ai beau selectionner une url il ne la copie pas

[Mikaas]

bon en attendant j'ai bidouillé un peu j'ai fais ceci :

► Afficher le texte

Code : Tout sélectionner

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

$file = "log.txt"

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

Func _Copy()
    HotKeySet("^c")
    Send("^c")
    $copy = ClipGet()
    FileWrite($file, $copy & @CRLF & "________" & @CRLF)
    Run("2.exe", @ScriptDir)
    Exit 0
EndFunc   ;==>_Copy

While 1
    Sleep(10)
WEnd

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.

[Mikaas]

Petit up

[Mikaas]

Personne aurai une solution s'il vous plait ?

[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.

[Mikaas]

tout bêtement...merci