Poser une question

Re: formulaire ajout de soft -> écrit dans un fichier .txt

Salut,

Je croyais que tu avais trouvé.

Alors tu veux créer un fichier à chaque fois?

Tu sauve le premier fichier "T1" comme ceci :

if Request.QueryString("T1") <> "" then
Call EcrireDansFichiertxt("C:\Inetpub\wwwroot\formulaire\licence.txt", True)
end if

Il suffit d'ajouter une ligne pas fichier alors!

'' Par exemple ajouter

if Request.QueryString("T2") <> "" then
Call EcrireDansFichiertxt("C:\Inetpub\wwwroot\formulaire\licenceT2.txt", True)
end if

Et ainsi de suite. Tu peux aussi optimiser le tout avec une fonction plus portable comme :

Function twEcrit_Fichier(sChemin,sFichier,sTexte)
Dim oFSO, oFichier
if sChemin = "" then sChemin = "." end if
sChemin = Server.MapPath(sChemin) & "\" & sFichier
set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oFichier = oFSO.OpenTextFile(sChemin,2,true)
oFichier.WriteLine(sTexte)
oFichier.Close
Set oFichier = Nothing
Set oFSO = Nothing
End Function

Tu pourrais aussi faire une boucle sur tout les éléments du formulaire pour ne pas avoir à retapper le code pour chaque fichier.

Dim sTexteTemp
For Each oElement in Request.Form
if Len(Request.Form(oElement)) <> 0 then
sTexteTemp = "Editeur: " & Request.QueryString("T1") & vbcrlf
sTexteTemp = sTexteTemp & "Nom: " & Request.QueryString("T2") & vbcrlf
sTexteTemp = sTexteTemp & "Version: " & Request.QueryString("T3") & vbcrlf
sTexteTemp = sTexteTemp & "URL éditeur: " & Request.QueryString("T4") & vbcrlf
sTexteTemp = sTexteTemp & "Licence: " & Request.QueryString("T5") & vbcrlf
sTexteTemp = sTexteTemp & "Notes: " & Request.QueryString("T6") & vbcrlf
sTexteTemp = sTexteTemp & "Déscription: " & Request.QueryString("T7") & vbcrlf
sTexteTemp = sTexteTemp & "Créateur du formulaire: " & Request.QueryString("T8") & vbcrlf
sTexteTemp = sTexteTemp & " le " &(date())
Call twEcrit_Fichier("C:\Inetpub\wwwroot\formulaire\","licenceT2.txt", "")
end if
Next


Ciao
Oznog

Réponses

Re: formulaire ajout de soft -> écrit dans un fichier .txt  abuz 8/9/2006