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

**patricktoulon** · 20/11/2016, 16h52

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ProgElecT** · 20/11/2016, 18h40

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

**patricktoulon** · 20/11/2016, 21h11

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

**patricktoulon** · 21/11/2016, 09h57

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**unparia** · 21/11/2016, 10h48

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

**patricktoulon** · 21/11/2016, 11h04

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

**unparia** · 21/11/2016, 11h07

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é) :

Le code montré ne fonctionne (sauf ajout de Clip.exe dans le fichier système) que sur les OS > XP

**patricktoulon** · 21/11/2016, 11h39

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

truc=gettext(clipboard)
clear(clipboard)
set texte truc & "machin" & vbcrlf
truc=gettext(clipboard)
msgbox truc

le tout avec le parentwindows.cliboard

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

**ProgElecT** · 21/11/2016, 12h27

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**hackoofr** · 21/11/2016, 13h57

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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" )

**patricktoulon** · 21/11/2016, 14h29

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**patricktoulon** · 21/11/2016, 14h32

Envoyé par hackoofr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ????

**ProgElecT** · 21/11/2016, 16h52

Le résultat chez moi, première exécution
Nom : Execution1.JPG
Affichages : 1223
Taille : 26,0 Ko

Cinquième exécution
Nom : Execution5.JPG
Affichages : 1187
Taille : 30,6 Ko

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.

**patricktoulon** · 21/11/2016, 17h37

re
oui je ne vois pas trop ce que je peut faire ne sachant ou ca déconne

**omen999** · 22/11/2016, 15h52

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

**patricktoulon** · 22/11/2016, 16h35

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

**unparia** · 23/11/2016, 22h19

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.

**patricktoulon** · 23/11/2016, 23h12

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

**unparia** · 23/11/2016, 23h29

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.

**patricktoulon** · 24/11/2016, 15h22

re
Bonjour unparia

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.

c'est fort possible

je vais regarder cela

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

VBScript

Discussions similaires

Partager

Partager