« VBScript » : différence entre les versions
Aller à la navigation
Aller à la recherche
Aucun résumé des modifications |
Aucun résumé des modifications |
||
(3 versions 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 |
|||
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