écrire une valeur dans un fichier .ini avec une input dans une hta

**jefepablo** · 18/05/2022, 16h15

bonjour a tous et a toutes j'ai un petit problème...
je m'explique :
j'ai essayé de coder une hta contenant une input et un bouton valider pour enregistrer la valeur tapée dans l'input dans le fichier .ini
or le script qui fonctionne tout a fait dans un fichier vbs seul ne se lance pas correctement et cela m'affiche une erreur a l'appui du bouton :
Nom : error.PNG
Affichages : 377
Taille : 12,7 Ko

Nom : error.PNG
Affichages : 377
Taille : 12,7 Ko

or comme montré dans l'image suivante l'objet requis WScript est bien présent à la ligne 21 :
Nom : error 2.PNG
Affichages : 406
Taille : 34,5 Ko

je suis donc bloqué et ne comprends pas d’où vient cette erreur sachant que l'(objet requis) est bien présent
est ce que l'objet n'est pas présent ou est ce que cela vient de mon script ?
je vous mets le code ci dessous

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
<Html>
<Head>
<Title>lecteur</Title>
<HTA:Application
Caption = Yes
Icon = "Explorer.exe"
Border = "Thick"
ShowInTaskBar = "Yes"
SingleInstance = "Yes"
MaximizeButton = "Yes"
MinimizeButton = "Yes"
WINDOWSTATE="maximize"
>
<body>
<table width= "90%" border="0" align="center">
<input name="version"></input>
<SCRIPT language="Vbscript">
Sub Save
'*** Préparation de l'environnement
Const ForAppending = 8
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
FichierTXT = "toto.ini"
 
'*** Création du fichier texte "toto.ini"
Set NewFichier = fso.OpenTextFile(FichierTXT, ForAppending, True)
 
'*** Ajout de données dans la variable "version".
version = version.value
 
'*** Ecriture des données de la variable "version" dans le fichier texte.
NewFichier.WriteLine(version)
 
'*** Destruction des objets
Set fso = Nothing
 
WScript.Quit
End Sub
</SCRIPT>
<button id="valider" OnClick="Save" >enregistrer</button>
</td>
</tr>
</table>
</body>
</html>

pourriez vous m'aider s'il vous plait ?

**ProgElecT** · 18/05/2022, 17h07

Salut

Dans un HTA, il ne faut pas préciser WScript pour créer l'objet, Set oFSO = CreateObject("Scripting.FileSystemObject") se suffit à lui même.

**jefepablo** · 18/05/2022, 20h05

mais alors pourquoi ce message d'erreur avec WScript manquant je vais essayer ta méthode et je te dis si ça marche
non ça ne marche pas
Nom : erreur3.PNG
Affichages : 331
Taille : 12,4 Ko

Nom : erreur3.PNG
Affichages : 331
Taille : 12,4 Ko

**jefepablo** · 18/05/2022, 20h11

saurais tu comment remédier à cela ?

**ProgElecT** · 18/05/2022, 22h56

Re

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
<Html>
<Head>
<Title>lecteur</Title>
<HTA:Application
Caption = Yes
Icon = "Explorer.exe"
Border = "Thick"
ShowInTaskBar = "Yes"
SingleInstance = "Yes"
MaximizeButton = "Yes"
MinimizeButton = "Yes"
WINDOWSTATE="maximize"
>
<body>
<table width= "90%" border="0" align="center">
<input name="version"></input>
<SCRIPT language="Vbscript">
Sub Save
'*** Préparation de l'environnement
Const ForAppending = 8
'Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set fso = CreateObject("Scripting.FileSystemObject")
FichierTXT = "toto.ini"
 
'*** Création du fichier texte "toto.ini"
Set NewFichier = fso.OpenTextFile(FichierTXT, ForAppending, True)
 
'*** Ajout de données dans la variable "version".
Laversion = version.value
 
'*** Ecriture des données de la variable "version" dans le fichier texte.
NewFichier.WriteLine(Laversion)
 
'*** Destruction des objets
Set fso = Nothing
 
'WScript.Quit
window.close() 'fermeture automatique du HTA suite à l'enregistrement
End Sub
</SCRIPT>
<button id="valider" OnClick="Save" >enregistrer</button>
</td>
</tr>
</table>
</body>
</html>

Le code a été vérifié, il fonctionne.
Il y avait conflit entre l'objet html input et la variable qui portait le même nom.

**jefepablo** · 19/05/2022, 15h28

merci pour tout si j'ai d'autres questions je sais ou aller
merci pour cette réponse aussi rapide et je confirme que cela fonctionne bien...

écrire une valeur dans un fichier .ini avec une input dans une hta

VBScript

Vue hybride

Discussions similaires

Partager

Partager