Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

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

Envoyé: 24 août 2006, 7h26 par Oznog


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

 sp spRe: formulaire ajout de soft -> écrit dans un fichier .txt abuz8/9/2006
Aucun médias sociaux
X

Trucsweb.com Connexion

X

Trucsweb.com Mot de passe perdu

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte