Vbscript: poser une question et l'enregistrer
Résolu/Fermé
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
- [VBScript] Exécution automatique ✓ - Forum VB / VBA
- [VBScript] numéro de semaine ✓ - Forum VB / VBA
- Fermeture de session en VBscript - Forum VB / VBA
- Inputbox vbscript bouton annuler ✓ - Forum VB / VBA
- Vbscript temporisation avant shutdown ✓ - 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é
