« VBScript » : différence entre les versions

De UnixWiki
Aller à la navigation Aller à la recherche
Aucun résumé des modifications
Aucun résumé des modifications
 
(2 versions intermédiaires par le même utilisateur non affichées)
Ligne 5 : Ligne 5 :
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile=CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\stage1.txt"
outFile=CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\stage1.txt"
Set objFile = objFSO.CreateTextFile(outFile,True
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.WriteLine variable

Append in a text file
Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile=CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\stage2.txt"
Set objFile = objFSO.OpenTextFile(outFile, 8, True)
objFile.WriteLine variable
objFile.WriteLine variable


Ligne 12 : Ligne 18 :
debug.print VARIABLE_NAME
debug.print VARIABLE_NAME
</code>
</code>

Copy variable into the clipboard
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", host
objIE.Quit

Dernière version du 15 février 2019 à 11:10

Print text

  Wscript.echo("text")

Write in a text file

  Set objFSO=CreateObject("Scripting.FileSystemObject")
  outFile=CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\stage1.txt"
  Set objFile = objFSO.CreateTextFile(outFile,True)
  objFile.WriteLine variable

Append in a text file

  Set objFSO=CreateObject("Scripting.FileSystemObject")
  outFile=CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\stage2.txt"
  Set objFile = objFSO.OpenTextFile(outFile, 8, True)
  objFile.WriteLine variable

If you can't see all the variable value with the watch point, you can open immediate window View--> Intermediate Window or CTRL-G and type debug.print VARIABLE_NAME

Copy variable into the clipboard

  Set objIE = CreateObject("InternetExplorer.Application")
  objIE.Visible = False
  objIE.Navigate("about:blank")
  objIE.document.parentwindow.clipboardData.SetData "text", host
  objIE.Quit