IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

ASP Discussion :

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


Sujet :

ASP

  1. #21
    Membre éprouvé
    Avatar de beegees
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mars 2004
    Messages
    3 610
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2004
    Messages : 3 610
    Points : 1 277
    Points
    1 277
    Par défaut
    Citation Envoyé par pc75
    Re,

    OK. Tu peux afficher le code complet ?
    Re,

    Voici une bonne partie du code (le reste ne sera pas utile je pense) :

    Merci pour ton aide.

    beegees

    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
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    dim rst
    dim cnn
    set cnn = server.CreateObject("ADODB.CONNECTION")
    set rst= Server.CreateObject("ADODB.Recordset")
    Session("Choix")= request.form("radiobutton")
    cnn.open "delibes"
    'rst.cursorlocation = aduseclient
    rst.cachesize = 5
    mysql = "select * FROM  [BA2_S1] WHERE [CHIMJ201BA2THs1numero] <> '""' ORDER BY [NomBA2s1]"
    rst.open mysql, "delibes"
     
    %>
    </p>
    <!--Calque qui contient l'image quitter, la page se ferme en cliquant dessus-->
    <div id="Layer6"><img src="../../../../../../../Images/quitter02.jpg" alt="Quitter (sans fermer la session utilisateur)" width="75" height="50" style="cursor:pointer" onclick ="window.close();"/></div>
    <p align="center">&nbsp;</p>
    <form action="recupba2CHIMJ201THS1.asp?Str_NbLignes=<%=Str_Compteur %>" method="post" name="frmSaisie" id="frmSaisie">
      <p>
        <input type="hidden" name="txtCompteur" />
        <%
    if not rst.EOF then
    rst.movefirst
    %></p>
      <table align="center" border="1" width="88%">
           <tr>
          <th width="7%" scope="col"><a href="#bas"></a></th>
          <th width="12%" scope="col">Matricule</th>
          <th width="41%" scope="col">Nom</th>
          <th width="22%" scope="col">Pr&eacute;nom</th>
          <th width="18%" scope="col">Th/Ex.</th>
        </tr>
     
    	<!--Gestion de la couleur-->
    	<%Str_Compteur = 0
    DO while not rst.EOF
       Str_Compteur = Str_Compteur + 1
       ' Gestion de la couleur de la ligne
       If Bln_Row_Color Then
          Str_Row_Color = "#BAE2E3"
       Else
          Str_Row_Color = ""
    	 End If
       ' Affectation du complément pour changer la couleur de la prochaine ligne
         Bln_Row_Color = Not Bln_Row_Color %>
        <tr bgcolor="<%=Str_Row_Color %>">
          <td><div align="center"><font face="Arial" color="#0099CC" size="3"><strong><a href="#bouton"></a></strong></font>&nbsp;<font face="Arial" color="#0099CC" size="3"><strong><%=rst("CHIMJ201BA2THs1numero")%>
                  <input name="txtnumero<%=Str_Compteur%>" type="hidden" id="txtnumero<%=Str_Compteur%>"  value="<%=rst("CHIMJ201BA2THs1numero")%>" />
          </strong></font></div></td>
          <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong><a href="#bouton"></a> <%=rst("MatriculeBA2s1")%>
                  <input name="txtMatriculeBA2<%=Str_Compteur%>" type="hidden" id="txtMatriculeBA2<%=Str_Compteur%>"  value="<%=rst("MatriculeBA2s1")%>" />
          </strong> </font> </div></td>
          <%'collone Statique des noms%>
          <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong> <%=rst("NomBA2s1")%>
                  <input type="hidden" name="txtNomBA1<%=Str_Compteur%>"  value="<%=rst("NomBA2s1")%>" />
          </strong> </font> </div></td>
    <!--      collone Statique des prenoms-->
          <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong> <%=rst("PrenomBA2s1")%>
                  <input type="hidden" name="txtPrenomBA1<%=Str_Compteur%>"  value="<%=rst("PrenomBA2s1")%>" />
          </strong> </font> </div></td>
        <!--collone dynamique des cotes IL EST IMPORTANT DE METTRE tabindex="1" CAR CA PERMET DE DESCENDRE DE 1 A CHAQUE CLIQUE DE LA TOUCHE TAB DU CLAVIER-->
          <td><div align="center">
              <input name="txtCHIMJ201<%=Str_Compteur%>" type="text" id="txtCHIMJ201<%=Str_Compteur%>" style="text-align:center" tabindex="1" title="Modifier" value="<%=rst("CHIMJ201BA2THs1")%>" maxlength="5" align="middle"/>
          </div>
          <div align="center"></div></td>
          <%
       rst.MoveNext
    loop
    'le code ci-dessous permet de faire un backup des données actuellement dans la bd avant la mise à jour
    'cela permet d'aller revoir des cotes en cas de contestation.
    rst.MoveFirst
    Dim rs, nRecords
    Set rs = CreateObject("ADODB.Recordset")
    if not rst.eof then
    Const ForReading = 1, ForWriting = 2
    Dim fso, f
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.CreateTextFile ("C:\DATA\CotesCHIMJ201.txt", ForWriting, false)
    do while not rst.eof
    f.Write rst("MatriculeBA2s1") & " " & rst("NomBA2s1") & " " & rst("PrenomBA2s1") &  " " & rst("CHIMJ201BA2THs1") & chr(13) & chr(10)
    rst.movenext
    loop
    f.close
    set fso = Nothing
    end if
    %>
      </tr>
      </table>
     
      <p>&nbsp;</p>
      <div align="center">
        <p align="left">
          <%
    end if
    rst.Close
    set rst = Nothing
    %>

  2. #22
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    Re,

    Ces deux lignes servent à quoi ?
    Dim rs, nRecords
    Set rs = CreateObject("ADODB.Recordset")
    Et tu as une erreur sur cette ligne ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Set f = fso.CreateTextFile ("C:\DATA\CotesCHIMJ201.txt", ForWriting, false)

  3. #23
    Membre éprouvé
    Avatar de beegees
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mars 2004
    Messages
    3 610
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2004
    Messages : 3 610
    Points : 1 277
    Points
    1 277
    Par défaut
    Re,

    Ces deux lignes servent à quoi ?

    Citation:
    Dim rs, nRecords
    Set rs = CreateObject("ADODB.Recordset")
    En effet, elles ne servent à rien, je les ai effacées.


    Et tu as une erreur sur cette ligne ?



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set f = fso.CreateTextFile ("C:\DATA\CotesCHIMJ201.txt", ForWriting, false)
    Aucune erreur, tout fonctionne à merveille.

    J'aimerais juste qu'il crée un nouveau txt à chaque fois en donnant comme nom la valeur de now + un nom que je concaténerai (le nom du visiteur par exemple).

    Merci pour ton aide !

    beegees

  4. #24
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    Re,

    Peut-être comme ça ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Set f = fso.CreateTextFile ("C:\DATA\CotesCHIMJ201" & cstr(now) & ".txt", ForWriting, false)

  5. #25
    Membre éprouvé
    Avatar de beegees
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mars 2004
    Messages
    3 610
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2004
    Messages : 3 610
    Points : 1 277
    Points
    1 277
    Par défaut
    Re,

    Il me donne ce message d'erreur :

    Nom ou numéro de fichier incorrect
    à cette ligne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set f = fso.CreateTextFile ("C:\DATA\CotesCHIMJ201" & cstr(now) & ".txt", ForWriting, false)
    What do you think about this ?

    Merci pour tout !

    beegees

  6. #26
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    Re,

    C'est normal que ça plante.
    Tu essaie de concaténer un chemin avec quelquechose qui ressemble à 06/06/2007, mais vb interprète les slash comme des séparateurs de répertoire.
    Tu peux faire comme ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    NewFic = "C:\DATABASES\CotesCHIMJ" & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & ".txt"
    Set f = fso.CreateTextFile (NewFic, ForWriting, true)

  7. #27
    Membre éprouvé
    Avatar de beegees
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mars 2004
    Messages
    3 610
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2004
    Messages : 3 610
    Points : 1 277
    Points
    1 277
    Par défaut
    Re,

    Tu as raison pour la concaténation.

    J'essaie de faire ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    NewFic = "C:\DATABASES\CotesCHIMJ" & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & ".txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.CreateTextFile (NewFic, ForWriting, true)
    Il me dit
    chemin d'accès introuvable
    Qu'en penses-tu ?

    Merci

    beegees

  8. #28
    Membre éprouvé
    Avatar de beegees
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mars 2004
    Messages
    3 610
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2004
    Messages : 3 610
    Points : 1 277
    Points
    1 277
    Par défaut
    Re-salut PC75,

    C'est juste parce que le dossier n'existait pass !

    ça fonctionne nikel.

    J'aurais pas cru qu'on aurait été aussi vite pour faire cela.

    Merci encore pour tout !

    You still the best here !

    beegees

+ Répondre à la discussion
Cette discussion est résolue.
Page 2 sur 2 PremièrePremière 12

Discussions similaires

  1. Créer un fichier/repertoire sur le serveur
    Par 304bl dans le forum Applets
    Réponses: 4
    Dernier message: 27/07/2012, 16h37
  2. Créer un fichier XML sur un serveur FTP distant
    Par Stouille89 dans le forum Langage
    Réponses: 11
    Dernier message: 03/01/2011, 19h32
  3. écrire dans un fichier .txt sur un serveur ftp
    Par projetge2i dans le forum Bibliothèques
    Réponses: 3
    Dernier message: 16/04/2009, 23h25
  4. [FTP] Lire un fichier txt sur un serveur FTP distant
    Par mathieu77186 dans le forum Langage
    Réponses: 3
    Dernier message: 29/01/2008, 18h10
  5. [CSV] Créer un fichier CSV sur le serveur
    Par sam01 dans le forum Langage
    Réponses: 3
    Dernier message: 10/08/2007, 16h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo