Discussion :

[patricktoulon]

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]

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]

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]

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]

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]

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