Formulaire+VBscript=fichier texte ?

**ValPhi** · 23/09/2009, 14h51

Bonjour,
Je crois comprendre que ce que je souhaite faire n'est pas réalisable en Javascript, aussi je me tourne vers le VBscript.

Je dispose d'une feuille HTML dans laquelle il y a un formulaire contenant 2 zones de texte. Une fois que l'utilisateur a appuyé sur le bouton VALIDER, je souhaiterais que ces deux informations aille s'écrire dans un fichier txt.

Auriez-vous une diée de la façon dont je pourrais procéder ?

Merci de votre aide.

**ProgElecT** · 23/09/2009, 17h53

Impératif "A LIRE AVANT DE POSTER" paragraphe => EFFECTUEZ VOTRE PROPRE RECHERCHE
t'aurai sans doute amené à:
Rechercher dans ce forum "fichier texte" => 949 discussions
ou/et
FAQ VBScript
2.2. Fichiers : le FileSystemObject (24) => 2.2.4. Accès aux Fichiers (9)

**ValPhi** · 24/09/2009, 09h52

Ok, je sors !

J'ai pris soin de faire une recherche dans google mais pas sur developpez.net.
Mea culpa !
Désolé pour ce post et merci de votre réponse.

**ProgElecT** · 24/09/2009, 12h27

C’était un petit rappel qui ne s’adressait pas uniquement à toi, mais aussi à certain qui liront cette discussion.

Part contre, si tu as des problèmes d’adaptation des codes de la FAQ ou des sources, reviens nous les soumettre, il y aura sûrement quelqu’un pour t’aider.

**ValPhi** · 14/10/2009, 11h04

Après lecture de la FAQ et des topics relatifs aux fichiers textes, j'ai réussi à faire ça : (c'est une page html appelée test.htm)

Code :

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
<HTML>
<HEAD><TITLE>Suivi Client</TITLE>
<SCRIPT LANGUAGE="VBScript"> 
<!--
Sub Submit_OnClick
  Const ForWriting = 2 
  Dim TheForm
  Dim Fso, f
 
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Set f = Fso.OpenTextFile("C:\cli.txt", ForWriting,true)
  Set TheForm = Document.ValidForm
 
  f.write(Day(Now)& "."& Month(Now)& "."& Year(Now)& " - "& TheForm.Text1.value)
 
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>Formulaire client</H3><HR><br>
<FORM NAME="ValidForm">
Saisir le descriptif de l'action :<br>
<INPUT NAME="Text1" TYPE="TEXT" SIZE="202"><br><br>
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="Enregistrer">
</FORM>
</BODY>
</HTML>

Ce petit formulaire permet d'écrire la saisie de l'utilisateur dans le fichier cli.txt.

Cela dit, j'aimerai aller plus loin :

faire en sorte de ne pas effacer à chaque fois le contenu de cli.txt ;

pouvoir lire le fichier cli.txt avant l'affichage de la page html et afficher les infos d'une ligne x sur ma page web test.htm
=> CE POINT EST RESOLU : je viens de placer une balise iframe de la façon suivante :

Code :

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

1
2
3
4
5
.../...
<H3>Formulaire client</H3><HR><br>
<iframe src="C:\cli.txt"></iframe>
<FORM NAME="ValidForm">
.../...

Mes tentatives restent infructueuses pour l'instant. Si vous avez des pistes de recherches, je suis preneur.

Encore merci de votre aide.

ValPhi

**omen999** · 14/10/2009, 12h09

bonjour,

faire en sorte de ne pas effacer à chaque fois le contenu de cli.txt ;

Code :

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

1
2
Const ForAppending = 8
Set f = Fso.OpenTextFile("C:\cli.txt", ForAppending,true)

la doc complète sur vbscript est téléchargeable

**ValPhi** · 14/10/2009, 14h12

Super !
Merci de ton aide.

Il ne me reste plus qu'à :

positionner le curseur au bon endroit dans le fichier ;
Ajouter un retour chariot en fin de ligne.

Je vous communique le fruit de mes recherches dans ce topic.

Encore merci
a+

**ValPhi** · 14/10/2009, 15h32

Voici le script final :

Code :

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
Sub Submit_OnClick
 
  fichier = "cli.txt"
  Const ForAppending = 8 
  Dim TheForm
  Dim Fso, f
 
 
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Set f = Fso.OpenTextFile(".\cli.txt", ForAppending,true)
  Set TheForm = Document.ValidForm
 
 
  if TheForm.Text1.value <> "" then
    f.write(Day(Now)& "/"& Month(Now)& "/"& Year(Now)& "; "& TheForm.Text1.value & chr(13))
    window.location.reload()
  else
    Msgbox "Attention ! Aucune information à enregistrer"
  end if
End Sub

Je ne suis pas parvenu à écrire le contenu de mon INPUT (du fichier HTML) sur la première ligne du fichier texte : en effet, j'ai lu que ForAppending n'écrivait qu'à la fin du fichier. En revanche :

Le retour chariot est ajouté en fin de chaque ligne ;
Une fois le contenu de l'input enregistré, la page html est actualisée si bien que la balise Iframe du fichier html remonte le contenu de mon fichier texte cli.txt à jour.

Encore merci pour votre aide,
A bientôt,
Valphi

**ProgElecT** · 14/10/2009, 17h26

Resolu, alors utilises le bouton

**ValPhi** · 15/10/2009, 10h32

J'aimerais mieux pas : si quelqu'un venait à trouver la solution pour positionner le curseur à un enplacement donné dans le fichier, le topic serait complet et on pourrait le toper en Résolu.

**ProgElecT** · 15/10/2009, 12h52

Envoyé par ValPhi

J'aimerais mieux pas : si quelqu'un venait à trouver la solution pour positionner le curseur à un enplacement donné dans le fichier, le topic serait complet et on pourrait le toper en Résolu.

Em mode d'ouverture ForAppending, impossible.
Pourquoi ne pas le ré ouvrir en mode lecture ForReading, sauvegarder dans une variable, le refermer, faire ton inclusion dans la variable à l'endroit désiré, puis enregistrer cette variable dans le fichier ?

**cerkyr** · 28/09/2016, 18h26

Bonjour,

J'ai essayé le code HTML et VBS proposé, sans succès.
Je ne trouve pas le fichier TXT cité.

Code :

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
<HTML>
<HEAD><TITLE>Suivi Client</TITLE>
<SCRIPT LANGUAGE="VBScript"> 
<!--
Sub Submit_OnClick
 
  fichier = "cli.txt"
  Const ForAppending = 8 
  Dim TheForm
  Dim Fso, f
 
 
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Set f = Fso.OpenTextFile(".D:\DATA\cli.txt", ForAppending,true)
  Set TheForm = Document.ValidForm
 
 
  if TheForm.Text1.value <> "" then
    f.write(Day(Now)& "/"& Month(Now)& "/"& Year(Now)& "; "& TheForm.Text1.value & chr(13))
    window.location.reload()
  else
    Msgbox "Attention ! Aucune information à enregistrer"
  end if
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>Formulaire client</H3><HR><br>
<FORM NAME="ValidForm">
Saisir le descriptif de l'action :<br>
<INPUT NAME="Text1" TYPE="TEXT" SIZE="202"><br><br>
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="Enregistrer">
</FORM>
</BODY>
</HTML>

**ProgElecT** · 28/09/2016, 19h39

Salut
? Ton code Set f = Fso.OpenTextFile(".D:\DATA\cli.txt", ForAppending,true) n'y aurait il pas un point . de trop dans le chemin du fichier?
----------- Set f = Fso.OpenTextFile("D:\DATA\cli.txt", ForAppending,true)

**cerkyr** · 29/09/2016, 09h25

Salut,
oui, il y avait bien une erreur, mais toujours pas de fichier; idem après recherche complète sur le pc.
Cdlt,

**l_autodidacte** · 29/09/2016, 11h36

....mais toujours pas de fichier; idem après recherche complète sur le pc

Cela peut dépendre du navigateur utilisé. Sous IE, le fichier sera créé si le chemin est correct(si le dossier D:\Data existe).
Sous FF rien ne se produit.

Certains navigateurs peuvent signaler (dans la barre d'état) qu'il y a une erreur sur la page sans pointer sur la ligne où l'erreur s'est produite.

Donc un petit conseil : Fais une copie de ton fichier html , renomme-la en hta puis exécute le fichier résultant.
S'il y a une erreur quelconque, elle sera précisée(caractère de début et ligne)

**cerkyr** · 29/09/2016, 11h55

Je confirme que le script fonctionne en HTA avec Internet Explorer 8 sur Windows XP et Internet Explorer 11 sur Windows 7 .
Merci !

Formulaire+VBscript=fichier texte ?

VBScript

Discussions similaires

Partager

Partager