Vbscript: poser une question et l'enregistrer
Résolu
neo_selen
-
anonyme -
anonyme -
Bonjour,
je souhaiterais utiliser un vbscript (.vbs) où on peut poser une question,puis enregistrer la réponse.
j'ai déja quelques éléments de la réponse tels que la fonction document.write ,mais je n'ai vu que cela ne permettait,d'après les explications du site http://www.lehtml.com/vb/texte.htm ,seulement un texte mis dans la programmation.ou alors une variable.
pour l'instant j'ai :
InputBox "votre texte" , "le titre de la boite" , "la valeur par défaut"
et d'un autre coté j'ai :
Print #1, "texte"
comment récupérer la réponse a la question???
je souhaiterais utiliser un vbscript (.vbs) où on peut poser une question,puis enregistrer la réponse.
j'ai déja quelques éléments de la réponse tels que la fonction document.write ,mais je n'ai vu que cela ne permettait,d'après les explications du site http://www.lehtml.com/vb/texte.htm ,seulement un texte mis dans la programmation.ou alors une variable.
pour l'instant j'ai :
InputBox "votre texte" , "le titre de la boite" , "la valeur par défaut"
et d'un autre coté j'ai :
Print #1, "texte"
comment récupérer la réponse a la question???
A voir également:
- Vbscript: poser une question et l'enregistrer
- Shutdown en vbscript - Forum VB / VBA
- Problème d'InputBox en VBScript ✓ - Forum VB / VBA
- [VBScript] Exécution automatique ✓ - Forum VB / VBA
- [PHP] Exécution d'un VBScript ✓ - Forum PHP
- [VBScript] numéro de semaine ✓ - Forum VB / VBA
2 réponses
tu dois écrire cela:
Dim variable
variable = Inputbox ("texte cellule" , "titrefenetre" , "textepardéfaut")
Const ForReading = 1, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Documents and Settings\anonyme\Bureau\Rapport.txt", ForAppend,true)
f.write(variable)
au passage, le chemin,tu peut le changer a volonté,et le nom de fichier texte aussi idem pour l'extension,ouvert avec bloc notes tu as toujours le même résultat !!!
d'autres trucs tels que texte cellule peuvent être modifiés à volonté
Dim variable
variable = Inputbox ("texte cellule" , "titrefenetre" , "textepardéfaut")
Const ForReading = 1, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Documents and Settings\anonyme\Bureau\Rapport.txt", ForAppend,true)
f.write(variable)
au passage, le chemin,tu peut le changer a volonté,et le nom de fichier texte aussi idem pour l'extension,ouvert avec bloc notes tu as toujours le même résultat !!!
d'autres trucs tels que texte cellule peuvent être modifiés à volonté
