Créer un fichier txt sur le serveur en cas de modif d'une certaine page

**beegees** · 04/06/2007, 11h07

Bonjour tout le monde,

J'ai un site en asp avec de nombreuses pages.

J'aimerais que quand un visiteur encode des nouvelles informations dans sa page perso, qu'un fichier txt se crée sur le serveur et reprend ce qu'il a modifié (uniquement les infos de sa page).

C'est possible cela en asp ?

Merci d'avance pour votre aide.

beegees

**pc75** · 05/06/2007, 09h22

Bonjour,

Si tu veux essayer ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
<%
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\DATA\Fichier.txt", ForWriting, True)
f.Write "Ligne 1" & chr(13) & chr(10)
f.Write "Ligne 2" & chr(13) & chr(10)
f.close
set fso = Nothing
%>

**beegees** · 05/06/2007, 14h02

Bonjour PC75,

Comment vas-tu ?

Merci pour ta réponse !

Code :

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

f.Write "Ligne 1" & chr(13) & chr(10)

ce bout de code indique qu'on va écrire "Ligne 1", tu penses qu'on pourrais y écrire chaque enregistrement de la table (en tout cas au minimum deux colonnes de ma base de données access) ?

On doit alors remplacer "ligne 1" par les variables qui constituent l'information de ma bd ?

Tu crois que c'est possible de faire cela en appuyant sur un bouton (par exemple celui qui demande d'afficher la page de mise à jour des informations) ?

Merci encore pour ton aide.

beegees

**Phiss** · 05/06/2007, 14h07

Bonjour,

Bien sur que tu peux enregistrer des valeurs d'une base de données dans un fichier texte.
Si tu veux le faire lors de la validation de ton formulaire il faut que tu mettes la création et l'écriture dans ton fichier sur ta page on tu enregistre tes infos de ton formulaire.

Voilà.
J'espère avoir été clair.

**beegees** · 05/06/2007, 14h11

Bonjour Phiss,

Merci pour ta réponse.

Je suis déjà soulagé qu'on puisse faire cela !

Le but de cette manoeuvre est de conserver les informations entrées antérieurement et ce avant qu'elles ne soient modifiées.

Je voudrais donc que cela se fasse à l'ouverture d'un formulaire (car dans ce formulaire, on retrouve les lignes de codes de connexion).

Tu penses que je peux déjà commencer avec le code que PC75 m'a donné et l'adapter avec mes variables ?

Merci !

beegees

**Phiss** · 05/06/2007, 14h20

Le code de PC75 sert à ouvrir et a écrire dans un fichier.
Après tu y mets ce que tu veux.
Donc dans ton cas ci que tu peux faire c'est sur la page ou tu affiches le formulaire tu créé ton fichier et tu mets les même infos que tu mets dans ton formulaire.
(car ce que j'ai compris c'est que tu affiches un formulaire pré-rempli avec les infos du client.)

**beegees** · 05/06/2007, 14h35

Envoyé par Phiss

Le code de PC75 sert à ouvrir et a écrire dans un fichier.
Après tu y mets ce que tu veux.
Donc dans ton cas ci que tu peux faire c'est sur la page ou tu affiches le formulaire tu créé ton fichier et tu mets les même infos que tu mets dans ton formulaire.
(car ce que j'ai compris c'est que tu affiches un formulaire pré-rempli avec les infos du client.)

Re,

Un client rentre des info le 04/06/07, il revient le 05/06/07 pour modifier ces informations, j'aimerais que quand il appuie sur le bouton pour ouvir la page de mise à jour (pas le bouton de confirmation de mise à jour des info) qu'une copie des infos actuelles soient copiées dans un txt ou autre.

Prochaine fois qu'il viendra, ça sera ces nouvelles informations qui seront dans un fichier txt

ça va pas prendre trop de bande passante j'espère ou de temps ?

C'est vrai que je m'explique pas trop bien, désolé

Merci en tout cas pour ton aide.

beegees

**Phiss** · 05/06/2007, 15h12

Il va bien falloir que tu ais un moment ou un autre une validation des infos.

Pour moi une contrainte qui risque d'être lourde est que tu vas créé un fichier a chaque modification.
Cela va peser lourd a force.

Sinon niveau bande passante je ne pense pas que cela soit trop lourd vu que l'asp s'execute sur le serveur.

**beegees** · 05/06/2007, 15h17

Envoyé par Phiss

Il va bien falloir que tu ais un moment ou un autre une validation des infos.

Pour moi une contrainte qui risque d'être lourde est que tu vas créé un fichier a chaque modification.
Cela va peser lourd a force.

Sinon niveau bande passante je ne pense pas que cela soit trop lourd vu que l'asp s'execute sur le serveur.

Re,

J'avance tout doucement.

Je me doute que ça risque d'être lourd mais je n'ai pas trop le choix.

Je dois absolument savoir quelle information se trouvait dans la bd avant qu'elle soit mise à jour.

Pour cela, je vais nommé mes fichiers txt en leur donnant la date et l'heure, cela permettra de ne jamais avoir un fichier en double (si on utilise les secondes of course).

Voici mon avancement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<input type="submit" name="ba2PHARJ202" value="Mettre &agrave; jour et/ou Cl&ocirc;turer"onclick='document.location.href="../../../../../Welcome/welcome123456.asp";'/>
 
   <input type="submit" name="ba2PHARJ202TXT" value="Mettre &agrave; jour et/ou Cl&ocirc;turer"onclick=<% Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\DATA\Fichier.txt", ForWriting, True)
f.Write "Ligne 1" & chr(13) & chr(10)
f.Write "Ligne 2" & chr(13) & chr(10)
f.close
set fso = Nothing
%>;';'/>

Pour l'instant le problème est qu'il y'a deux boutons, j'aimerais mettre deux actions sur un même boutons, pas possible je crois ?

En tout cas, le fichier txt écrit bien ligne1 et ligne 2.

Maintenant, je dois demander d'inscrire les infos du client et non ligne 1 et ligne 2.

Qu'en penses-tu (vous) ?

Merci
beegees

**beegees** · 05/06/2007, 15h23

Rebonjour tout le monde,

Et bien je m'aperçois qu'il vaudrait mieux déclencher cet évènement dans la page de mise à jour mais juste après le téléchargement.

Je vous explique pourquoi :

Toutes les infos de connexion à la table, au filtre de la table... sont dans la page de mise à jour, moi je pensais mettre cela dans la page des différents bouton (monvaise idée je pense).

à la limite on pourrait juste demander à un script java de lancer le code asp et ce dans le head du document de mise à jour, cela le lancerait directement

Qu'en pensez-vous

beegees

**beegees** · 05/06/2007, 15h38

Re,

Bon j'ai mis le code de PC75 dans la page de mise à jour et je n'ai même pas besoin de javascript, le code asp se lance seul et écrit les deux lignes.

Maintenant, existe-t'il un moyen avec asp de transférer les données d'une colonne access (filtrée grâce à une chaîne sql) vers un fichier txt.
Là est toute la question.

Si il le faut, je peux créer un nouveau post ?

Merci à tous.
beegees

**beegees** · 05/06/2007, 16h03

J'ai trouvé du code sur le site de microsoft qui permet de transformer une table vers un document xlm, est-ce que quelqu'un pourrait l'adapter pour qu'il envoie les infos vers un fichier txt ou xls ?

Merci

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
37
38
39
40
41
42
43
44
45
46
47
48
49
<%@ Language="vbscript"%>
 
<%
 
    Const sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\program files\microsoft office\office10\samples\Northwind.mdb"
    Const sXSL = "C:\ExcelXML\Orders.xsl"
 
    Response.Buffer = True
 
    'Retrieve an ADO recordset of the Orders Detail table in Northwind.
    Dim rs, nRecords
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM [Order Details]", sConn, 3, 3
 
    'Persist the recordset to a new DOMDocument and store the record count.
    Dim oXML
    Set oXML = CreateObject("Microsoft.XMLDOM")
    rs.Save oXML, 1
    nRecords = rs.RecordCount
    rs.Close
 
    'Load the XSL (the workbook template with XSL directives) into a DOMDocument.
    Dim oXSL
    Set oXSL = CreateObject("Microsoft.XMLDOM")
    oXSL.Load sXSL
 
    'Transform the XML using the style sheet.
    Dim oResults
    Set oResults = CreateObject("Microsoft.XMLDOM")
    oXML.transformNodeToObject oXSL, oResults
 
    If oXSL.parseError.errorCode <> 0 Then
       Response.Write "Parse Error: " & oResults.parseError.reason
    Else
 
       'Modify the ss:ExpandedRowCount attribute for the <table> node in the XSL.
        Dim oTable
        Set oTable = oResults.selectSingleNode("Workbook/Worksheet/Table")
        oTable.setAttribute "ss:ExpandedRowCount", nRecords + 2
 
        'Return the resulting XML Spreadsheet for display in Excel.
        Response.ContentType = "application/vnd.ms-excel"
        Response.Charset = "ISO-8859-1"
        Response.Write oResults.XML
        Response.Flush
 
    End If
 
%>

**pc75** · 05/06/2007, 16h19

Re,

Une question : Le but est-il de conserver l'historique des infos ?

Sinon, un squelette de prog :

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
 
.....
Dim rs, nRecords
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM [Order Details]", sConn, 3, 3
if not rs.eof then
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\DATA\Fichier.txt", ForWriting, True)
do while not rs.eof
f.Write rs("CHAMP1") & rs("CHAMP1") & chr(13) & chr(10)
rs.movenext
loop
f.close
set fso = Nothing
end if

**beegees** · 05/06/2007, 16h47

Re,

Oui le but est de conserver une historique des infos.

ben ça à l'air de fonctionner nikel !

Un super grand merci à toi pour cette très belle piste

Le travail n'est pas encore tout à fait fini malheureusement, il faut maintenant créer le fichier -, ça c'est fait :

Code :

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

Set f = fso.CreateTextFile ("C:\DATA\NomDuFichier.txt", ForWriting, True)

Mais est-il possible de lui donner comme nom du fichier nom + Date + heure + minute + seconde.

Autrement il écrase à chaque fois le fichier précédent, c'est peut être à cause du true ?

Ensuite ça sera nikel de chez nikel.

Merci encore pour tout !

beegees

**beegees** · 05/06/2007, 16h56

Re,

Pour l'heure, j'ai essayé ceci :

Code :

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

Set f = fso.CreateTextFile ("C:\DATA\CotesCHIMJ201" & now & ".txt", ForWriting, True)

J'obtiens cette erreur :

Nom ou numéro de fichier incorrect

beegees

**pc75** · 05/06/2007, 17h08

Re,

A l'ouverture du fichier, au lieu d'utiliser la constante ForWriting, tu utilises ForAppending.

Sinon, pour conserver un historique, pourquoi tu ne créés pas dans ta base de données une clé unique qui serait constituée de la date, de l'heure et de l'identifiant de l'utilisateur ?

**beegees** · 06/06/2007, 09h05

Envoyé par pc75

Re,

A l'ouverture du fichier, au lieu d'utiliser la constante ForWriting, tu utilises ForAppending.

Sinon, pour conserver un historique, pourquoi tu ne créés pas dans ta base de données une clé unique qui serait constituée de la date, de l'heure et de l'identifiant de l'utilisateur ?

Salut PC75,

Comment va ?

A l'ouverture du fichier, au lieu d'utiliser la constante ForWriting, tu utilises ForAppending.

A quoi cela va me servir ?

Sinon, pour conserver un historique, pourquoi tu ne créés pas dans ta base de données une clé unique qui serait constituée de la date, de l'heure et de l'identifiant de l'utilisateur ?

Je dois t'avouer que ce que tu m'as communiqué comme code est excellent et adopté

As-tu une idée pour la date et l'heure qui viendraient compléter le nom du fichier txt ?

Merci pour tout

beegees

**pc75** · 06/06/2007, 09h46

Re,

ForAppending signifie que tu ouvres ton fichier en mode modification.

Pour ce qui concerne la date et l'heure, l'idée est de ne pas conserver l'historique dans un fichier texte, mais de conserver cet historique dans la base de données

exemple de base :

Code :

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

1
2
3
4
5
 
DATES DateTime (clé primaire)
HEURES DateTime (clé primaire)
UTILISATEURS Numeric (clé primaire)
.....

Tu auras ainsi toutes les lignes pour tous tes utilisateurs

**beegees** · 06/06/2007, 09h50

Re,

je me demane si je ne me suis pas trompé de terme, c'est pas trop un historique, c'est plutôt un contrôle.

J'y ai bien réfléchi et le fichier txt est pour moi une très bonne solution.

J'a pensé mettre la valeur de now dans une variable, tu crois que ça changera quelque chose ?

Merci pour tout !

beegees

**pc75** · 06/06/2007, 09h54

Re,

OK. Tu peux afficher le code complet ?

Créer un fichier txt sur le serveur en cas de modif d'une certaine page

ASP

Discussions similaires

Partager

Partager