Formulaire+VBscript=fichier texte ?

Version imprimable

23/09/2009, 14h51
ValPhi

Formulaire+VBscript=fichier texte ?

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.
23/09/2009, 17h53
ProgElecT

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)
24/09/2009, 09h52
ValPhi

Ok, je sors !:roll:
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.
24/09/2009, 12h27
ProgElecT

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.

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:

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">  </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:

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

14/10/2009, 12h09
omen999
bonjour,

Citation:

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

1 2 Const ForAppending = 8 Set f = Fso.OpenTextFile("C:\cli.txt", ForAppending,true)
la doc complète sur vbscript est téléchargeable :faq:
14/10/2009, 14h12
ValPhi
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+

Voici le script final :
Code:

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

14/10/2009, 17h26
ProgElecT

Resolu, alors utilises le bouton :resolu:
15/10/2009, 10h32
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.
15/10/2009, 12h52
ProgElecT

Citation:

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 ?

Bonjour,

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

Code:

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>

28/09/2016, 19h39
ProgElecT

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)
29/09/2016, 09h25
cerkyr

Salut,
oui, il y avait bien une erreur, mais toujours pas de fichier; idem après recherche complète sur le pc.
Cdlt,
29/09/2016, 11h36
l_autodidacte

Citation:

....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)
29/09/2016, 11h55
cerkyr

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