Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Clipboard vers .TXT
Auteur Message
Répondre en citant
Message Clipboard vers .TXT 
Bonjour et merci d'avance

J'ai ceci qui copie le presse-papier dans fichier texte.

Code:
Set objHTML = CreateObject("htmlfile")
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
path = "C:\Users\claud\Desktop\cliptext.txt"
Set objFile = objFSO.OpenTextFile(path, 2, true)
objFile.WriteLine ClipboardText
objFile.Close


J'aimerais juste qui l'ajoute à la suite avec un séparateur du genre -------.
Ce code remplace le texte existant.

Merci de votre temps

Temjeh



Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Re: Clipboard vers .TXT 
Salut, c'est pas de l'autoit.

En autoit tu à ca:
Code:
$Clipped = ""
$Clipped2 = ""
Do
   $Clipped2 = ClipGet()
   If $Clipped <> $Clipped2 Then
      FileWrite("cliptext.txt.txt", "------------------------------------------------------" & @Crlf & "Paste on windows = " & WinGetTitle("") & @Crlf & "Paste the = " & @MDAY & "/" & @MON & "/" & @YEAR & @Crlf & "Paste at = " & @HOUR & ":" & @MIN & ":" & @SEC & @Crlf & "------------------------------------------------------" & @Crlf & ClipGet() & @Crlf & "------------------------------------------------------" & @Crlf & @Crlf)
      $Clipped = $Clipped2
   EndIf
   Sleep(100)
Until 0





______________________________________________________
C:\Ma chaine Youtube_
 
D:\Mon forum_
 
Répondre en citant
Message Clipboard vers .TXT 
Salut Wink
Tout d'abord ce code est du vbscript :
Testez cette version corrigé Okay
Code:
Set objHTML = CreateObject("htmlfile")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("wscript.shell")
Path = ws.ExpandEnvironmentStrings("%userprofile%\Desktop\cliptext.txt")
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
Set objFile = objFSO.OpenTextFile(path,8,True)
objFile.WriteLine ClipboardText
objFile.WriteLine String(100,"-")
objFile.Close
ws.run chr(34) & Path & chr(34)





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Clipboard vers .TXT 
Merci a vous deux

Je ne sais pas si le problème est de moi mais dans mon .bat, les deux ne fonctionnent.

Merci



Répondre en citant
Message Clipboard vers .TXT 
Temjeh a écrit:
Merci a vous deux
Je ne sais pas si le problème est de moi mais dans mon .bat, les deux ne fonctionnent.
Merci

Ce n'est pas du .bat mais du .vbs
donc enregistre le sous le nom ClipBoard2File.vbs et non pas ClipBoard2File.bat
Puis cliquer 2 fois sur ce vbs et tu auras ton clipboard copié dans un fichier texte !




______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Impeccable 
Merci beaucoup

Impeccable.

Merci du coup de main, je programme juste en vba.

Bonne soirée

Temjeh



Répondre en citant
Message Re: Impeccable 
Donc tu voulais qu'on t'aide à corrigé ton batch qui est en réalité du vbs tous ça posté dans la section autoit ?? Ok Laughing .. Sinon l'autoit c'est en .au3.




______________________________________________________
C:\Ma chaine Youtube_
 
D:\Mon forum_
 
Message Clipboard vers .TXT 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch