VBScript : Différence entre versions
(4 révisions intermédiaires par le même utilisateur non affichées) | |||
Ligne 4 : | Ligne 4 : | ||
Write in a text file |
Write in a text file |
||
Set objFSO=CreateObject("Scripting.FileSystemObject") |
Set objFSO=CreateObject("Scripting.FileSystemObject") |
||
− | outFile=" |
+ | outFile=CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\stage1.txt" |
Set objFile = objFSO.CreateTextFile(outFile,True) |
Set objFile = objFSO.CreateTextFile(outFile,True) |
||
objFile.WriteLine variable |
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 |
||
+ | <code> |
||
+ | debug.print VARIABLE_NAME |
||
+ | </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 |
Version actuelle datée du 15 février 2019 à 13: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