récupérer le contenu du presse-papiers sans passer par un object htmldocument

Version imprimable

Voir 40 message(s) de cette discussion en une page

20/11/2016, 16h52
patricktoulon

récupérer le contenu du presse-papiers sans passer par un object htmldocument
bonjour a tous
je cherche depuis ce matin la possibilité de récupérer le contenu du presse papier
de la même manière que je l'alimente comme ci dessous existe t- il la même chose inverse, je n'ai rien trouver de concluant
Code:

1 2 3 4 5 Dim memo 'ajout dans le clipboard memo= "du texte dans le clipboard" Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "cmd.exe /c echo " & memo & " | clip", 0, TRUE
pour le moment je le récupère comme ceci:
Code:

1 2 3 4 set clipo=createobject("htmlfile") le_texte=clipo.ParentWindow.ClipboardData.GetData("Text") msgbox le_texte 'faire=clipo.ParentWindow.clipboardData.ClearData("text")
merci pour les retours

Salut

Code:

1
2
3
4
5
6
7
8
9
'----------------------------------------------------------------------------------------------------------------------
		Sub GoRecup()
			'Récupérer le contenu texte du presse papier
			MsG = CreateObject("htmlfile").ParentWindow.clipboardData.Getdata("text")
			If IsNull(MsG) = True then MsG = "Le presse papier est vide de texte"
			Msgbox MsG
		End Sub
'----------------------------------------------------------------------------------------------------------------------
  GoRecup

Extrait de [VBS et HTA] Utilisation du presse papier système (Clipboard)

20/11/2016, 21h11
patricktoulon

re

re
bonsoir ProgElecT et merci
mais la on utlise le htmldocument("htmlfile") comme je le fait déjà

j'avais trouver dans le temps une version avec script.shell exécutant cmd.exe accompagné d'argument "clip" et stdout a la fin mais je ne le retrouve plus

je ne veux plus utiliser le htmlfile car sa fonction clear du parent.window.clipboard fonctionne très mal (marche une fois sur 10) en boucle rapide

merci pour le retour

re exemple

voila un exemple
quelqu'un peut me dire pourquoi a chaque fois que ce VBS est lancé une ligne ne s'ajoute pas

Code:

1
2
3
4
5
6
7
8
9
10
Dim string ,clipo,le_texte,nb
set clipo=createobject("htmlfile")
'faire=clipo.ParentWindow.clipboardData.ClearData("text")
 le_texte=clipo.ParentWindow.ClipboardData.GetData("Text")
nb=ubound(split(le_texte,vbcrlf))+1
clipo.ParentWindow.clipboardData.ClearData("text")
String = le_texte & "ligne" & nb & "du texte dans le clipboard" & vbcrlf 
clipo.ParentWindow.ClipboardData.SetData "Text", string
le_texte=clipo.ParentWindow.ClipboardData.GetData("Text")
msgbox le_texte

21/11/2016, 10h48
unparia

Bonjour
Pour en revenir à l'objet de départ de cette discussion, qui concerne plus DOS que VBS :
Le code montré ne fonctionne (sauf ajout de Clip.exe dans le fichier système) que sur les OS > XP
De la même manière, il est également possible d'ajouter dans le dossier système le fichier Paste.exe (en précisant que ce fichier-là n'est pas forcément pré-installé, y compris, lui, au-delà de XP).
A patricktoulon : tu devrais pouvoir trouver tout ce dont je parle avec l'aide de google. Si tu n'y parviens pas, je te trouverai cela.

EDIT : voilà :
http://www.c3scripts.com/tutorials/msdos/clip.html
Tu y trouveras tout ce dont j'ai parlé plus haut, plus (tout en bas, à la rubrique "Related Command", en cliquant sur le mot/lien Paste) de quoi :
- charger au besoin le fichier Paste.exe (si non pré-installé)
- comment utiliser la commande Paste
21/11/2016, 11h04
patricktoulon

re

re
bonjour unparia

j'ai Windows7 et clip dans une ligne de commande fonctionne pourtant je ne l'ai jamais ajouté

maintenant si pour le manipulation inverse c'est a dire la récupération il faut ajouter une version plus élaboré de ce clip alors non je laisse tomber je veux quelque chose d'universel

merci pour le retour
21/11/2016, 11h07
unparia

Citation:

j'ai Windows7 et clip dans une ligne de commande fonctionne pourtant je ne l'ai jamais ajouté

Bien évidemment, puisque > XP
Pour mémoire (ce que j'ai exposé) :

Citation:

Le code montré ne fonctionne (sauf ajout de Clip.exe dans le fichier système) que sur les OS > XP
21/11/2016, 11h39
patricktoulon

re
re
donc en ce qui me concerne il me faut le paste.exe si je comprends bien ton lien ??

alors non c'est pas bon je ne veut rien a jouter

pourtant je me souviens bien avant d'avoir W7 je le faisait avec clip mais j'ai perdu cette source (disque dur trop vieux QRT)

j'ai de la recherche en vue

tu peux me dire pourquoi avec parent.clipboard du htmlfile le texte ne s'ajoute pas

de même que le clear
pour moi le principe et clair pourtant
1. truc=gettext(clipboard)
2. clear(clipboard)
3. set texte truc & "machin" & vbcrlf
4. truc=gettext(clipboard)
5. msgbox truc
le tout avec le parentwindows.cliboard

a chaque déclanchement du vbs une ligne doit s'ajouter non ???

Salut

Ton code post N°4 fonctionne chez moi, pour chaque exécution, une ligne est ajoutée et indique bien le nombre de ligne.
J'ai quand même modifié le nommage de ta variable String en LigStr pour plus de clarté.

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim LigStr ,clipo,le_texte,nb
set clipo=createobject("htmlfile")
'faire=clipo.ParentWindow.clipboardData.ClearData("text")
 le_texte=clipo.ParentWindow.ClipboardData.GetData("Text")
nb=ubound(split(le_texte,vbcrlf))+1
clipo.ParentWindow.clipboardData.ClearData("text")
'String = le_texte & "ligne" & nb & "du texte dans le clipboard" & vbcrlf
LigStr = le_texte & vbcrlf & "ligne " & (nb + 1) & " du texte dans le clipboard"
clipo.ParentWindow.ClipboardData.SetData "Text", LigStr
le_texte=clipo.ParentWindow.ClipboardData.GetData("Text")
msgbox le_texte

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function CopyToClipboard(sInputString)
    Dim oShell: Set oShell = CreateObject("WScript.Shell")
    Dim sTempFolder: sTempFolder = oShell.ExpandEnvironmentStrings("%TEMP%")
    Dim sFullFilePath: sFullFilePath = sTempFolder & "\" & "temp_file.txt"
    Const iForWriting = 2, bCreateFile = True
    Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
    With oFSO.OpenTextFile(sFullFilePath, iForWriting, bCreateFile)
        .Write sInputString
        .Close
    End With
    Const iHideWindow = 0, bWaitOnReturnTrue = True
    Dim sCommand: sCommand = "CMD /C TYPE " & sFullFilePath & "|CLIP"
    oShell.Run sCommand, iHideWindow, bWaitOnReturnTrue
    Set oShell = Nothing
    Set oFSO = Nothing
End Function
Call CopyToClipboard( "Text1" & vbNewLine & "Text2" )

Citation:
Envoyé par ProgElecT
Salut

Ton code post N°4 fonctionne chez moi, pour chaque exécution, une ligne est ajoutée et indique bien le nombre de ligne.
J'ai quand même modifié le nommage de ta variable String en LigStr pour plus de clarté.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim LigStr ,clipo,le_texte,nb set clipo=createobject("htmlfile") 'faire=clipo.ParentWindow.clipboardData.ClearData("text") le_texte=clipo.ParentWindow.ClipboardData.GetData("Text") nb=ubound(split(le_texte,vbcrlf))+1 clipo.ParentWindow.clipboardData.ClearData("text") 'String = le_texte & "ligne" & nb & "du texte dans le clipboard" & vbcrlf LigStr = le_texte & vbcrlf & "ligne " & (nb + 1) & " du texte dans le clipboard" clipo.ParentWindow.ClipboardData.SetData "Text", LigStr le_texte=clipo.ParentWindow.ClipboardData.GetData("Text") msgbox le_texte
non chez moi ca affiche toujours la dernière chose qu'il y avait dans le clipboard avent lancement du vbs et a chaque fois c'est ca que je comprends pas ca n'est pas logique

Citation:

Envoyé par hackoofr

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function CopyToClipboard(sInputString)
    Dim oShell: Set oShell = CreateObject("WScript.Shell")
    Dim sTempFolder: sTempFolder = oShell.ExpandEnvironmentStrings("%TEMP%")
    Dim sFullFilePath: sFullFilePath = sTempFolder & "\" & "temp_file.txt"
    Const iForWriting = 2, bCreateFile = True
    Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
    With oFSO.OpenTextFile(sFullFilePath, iForWriting, bCreateFile)
        .Write sInputString
        .Close
    End With
    Const iHideWindow = 0, bWaitOnReturnTrue = True
    Dim sCommand: sCommand = "CMD /C TYPE " & sFullFilePath & "|CLIP"
    oShell.Run sCommand, iHideWindow, bWaitOnReturnTrue
    Set oShell = Nothing
    Set oFSO = Nothing
End Function
Call CopyToClipboard( "Text1" & vbNewLine & "Text2" )

hakoofr ca ma l'air intéressant mais il y a utilisation d'un fichier .txt temporaire pourrait on s'en passer ????

21/11/2016, 16h52
ProgElecT

2 pièce(s) jointe(s)

Le résultat chez moi, première exécution
Pièce jointe 225450
Cinquième exécution
Pièce jointe 225451

Citation:

Envoyé par patricktoulon

non chez moi ca affiche toujours la dernière chose qu'il y avait dans le clipboard avent lancement du vbs et a chaque fois c'est ca que je comprends pas ca n'est pas logique

En effet, il faudrait arriver à solutionner le problème sur ton installation, :? bonne chance.
21/11/2016, 17h37
patricktoulon

re

re
oui je ne vois pas trop ce que je peut faire ne sachant ou ca déconne
22/11/2016, 15h52
omen999

bonjour,

l'utilitaire de MS clip.exe présent depuis Vista
ne gère que l'entrée standard mais pas la sortie
c'est une moitié d'outil...
il existe une palanquée d'utilitaires en ligne de commande
et ces outils font ça plus ou moins bien
mais comme tu veux rester en config native....
22/11/2016, 16h35
patricktoulon

re

Bonjour
ok omen mais le setdata du parent.window.cliboarddata devrait fonctionner lui non??? je m'en sert très souvent avec excel vba en unique
en boucle ca n'est pas le cas y a t il un sleep a mettre quelque part ou je ne sais quoi d'autre ????
et le fait que chez progelect ca fonctionne je suppose une configuration manquante chez moi
23/11/2016, 22h19
unparia

A patricktoulon
Je n'utilise pas VBS (que j'ai d'ailleurs inhibé sur ma machine).
Mais peu importe. L'objet ClipBoard n'est pas un objet appartenant à tel ou tel autre langage, mais un objet Windows (un objet géré en mémoire).
Si le code que t'a montré progelect ne fonctionne pas de la même manière chez toi (seule est là la dernière donnée), il n'y a pas 36 explications possibles, mais une seule --->
L'objet ClipBoard a été vidé entre deux lancements.
Par qui, par quoi ? -->> cela peut-être :
- une instruction de vidage dans ta propre application
- une appli externe, voire lointaine, dont une instruction vide le ClipBoard (pour une raison x ou y qui est la sienne, mais forcément spécifiée et donc en principe assez volontaire)
Si tel est le cas et à moins d'inhiber (depuis l'appli concernée) ce vidage, tu n'as pour seul recours que celui de passer par un tremplin (fichier ou autre) pour y écrire, ajouter ou relire.
23/11/2016, 23h12
patricktoulon

re

re
Bonsoir unparia

je pourrais accepter ton idée mais non !!

car ca me garde bien ce que j'ai pu mettre avant le lancement du vbs

si c'était le cas et qu'une app ou autre me vidait le clipboard je n'aurais pas le contenu qui il y avait avant utilisation du fichier vbs

si je dis que c'est bizarre c'est que c'est bizarre

exemple
si je copie le mot bizarre ici présent et que je ferme IE et reviens au bureau et que je lance le vbs

a chaque fois j'ai le mot "bizarre" dans le message
j'essaie le clear >>> ca marche pas

le get me me donne bien le contenu du clipboard donc "bizarre"

le set >>>> marche pas puisque 'un gettext après me donne toujours "bizarre"

non c'est vraiment bizarre a me rendre fou
23/11/2016, 23h29
unparia

Je donne alors ma langue au chat.
Je proposerais bien un test avec une autre méthode (pour lire et écrire dans le clipboard), mais elle passe par l'utilisation de fonctions de l'API de Windows. Or, si ma mémoire ne me fait pas défaut, on ne peut utiliser de telles fonctions depuis VBS. A dire vrai, on pourrait le faire (utiliser de telles fonctions) en créant sous VB (pas VBS) une classe alors utilisable en VBS, mais ce serait alors pire que la dépendance que tu as rejetée plus haut (Paste.exe).
J'abandonne.

EDIT : un dernier mot toutefois (sait-on jamais !) si une application (n'importe laquelle) a ouvert le clipboard par utilisation de la fonction OpenClipboard de la librairie User32 sans le refermer par utilisation de la fonction CloseClipBoard de la même librairie, il ne peut être manipulé jusqu'à sa fermeture.
24/11/2016, 15h22
patricktoulon

re

re
Bonjour unparia

Citation:

EDIT : un dernier mot toutefois (sait-on jamais !) si une application (n'importe laquelle) a ouvert le clipboard par utilisation de la fonction OpenClipboard de la librairie User32 sans le refermer par utilisation de la fonction CloseClipBoard de la même librairie, il ne peut être manipulé jusqu'à sa fermeture. http://forum.developpez.be/images/misc/progress.gif

c'est fort possible

je vais regarder cela

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 14h33.