Lecture fichier text

Bonjour,

J'aimerais savoir comment lire les trois dernières lignes d'un fichier texte. Car j'ai essayé ce code, mais il tourne en boucle on dirait.

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

adresse_ip = Request.ServerVariables("REMOTE_ADDR") 'création du fichier avec comme nom l'adresse IP du poste de la personne Set FSO = Server.CreateObject("Scripting.FileSystemObject") chemin_fichier = Server.MapPath("sauvegarde_facture/" &adresse_ip & ".fac") set fichier = FSO.OpenTextFile(chemin_fichier)   Do while not fichier.atEndOfStream nombre_ligne = nombre_ligne + 1 loop     For compteur = 1 to nombre_ligne - 1 fichier.Skipline Next   sous_total = fichier.Readline fichier.Skipline tva = fichier.Readline fichier.Skipline total = fichier.Readline   fichier.Close 'remise de la variable a "" text_ligne = "" tableau_ligne = "" Set fichier = Nothing Set FSO = Nothing

---

Merci d'avance

J'ai aussi un autre soucis. Je dois afficher des guillemets et des apostrophes dans une zone de texte. Une fois que l'utilisateur a rentré son texte, il clique sur un bouton qui rafraichi la page. Je fait passé mes variables en POST. Mais le soucis c'est qu'il m'affiche pas ce qui est derrière mes ", comment puis-je faire pour contrer ce problème?

Merci d'avance

Code:

---

1 2 3

Do while not fichier.atEndOfStream nombre_ligne = nombre_ligne + 1 loop

---

pour moi le pb vient de la.. il me semble que tu n'avances jamais dans ton fichier.. alors bon forcement.. il arrive jamais a EOF.. :roll:

Hmmm...
Quand tu fais ta 1ere boucle le "pointeur fichier" est arrivé en fin de fichier !!

Code:

---

1 2 3 4 5

Do while not fichier.atEndOfStream nombre_ligne = nombre_ligne + 1 loop // La tu es en fin de fichier

---

Quand tu commences

Code:

---

1 2 3 4

For compteur = 1 to nombre_ligne - 1 fichier.Skipline Next

---

Le skipline s'applique alors que tu es dejà à la fin de ton fichier. Donc ça coince.
Une fois le nombre de lignes du fichier connu il faut que tu le ferme et que tu le re-ouvre pour ré-initialiser ton "pointeur fichier"

Ah, ok je vais essayer tout ça. Et pour mon deuxième problème, est-ce que quelqu'un aurait une solution?

Merci bcp

pour ton deuxième problème il faut que tu utilise la fonction

Code:

---

replace(tachaine,àremplacer,remplacerpar)

---

pour pouvoir remplacer ces caractères par les caractères d'échappement te permettant de les afficher.

Désolé du retard mais je n'ai pas pu essayé avant. J'ai essayé ça, mais le problème c'est que je voudrais pouvoir faire passer un texte avec des guillemets en en-tête. Donc si je fais mon code comme ci-dessous, il arrivera pas a m'afficher les guillemets puisqu'il croit que c'est les guillement de fermeture de la propriété value.

Code:

---

1 2	Response.Write("<td><input type=""text"" value=""" & Replace(Request.Form("description" & compteur),"""","\""") & """

---

Donc comment puis-je faire???

Merci bcp d'avance

Bonjour,

Peux-tu essayer ça et nous dire ce que tu récupères ?

Code:

---

1 2	response.write Request.Form("description" & compteur)

---

Ok

Alors je récupère ça:

Code:

---

1 2	sadf sdf sdf asdfasdasd 'sdf sd as"sadf sd

---

Mais dans ma zone de texte je récupère ça si j'enlève le replace

Code:

---

1 2	sadf sdf sdf asdfasdasd 'sdf sd as

---

et si je le laisse

Code:

---

1 2	sadf sdf sdf asdfasdasd 'sdf sd as\

---

Re,

Bon OK. Maintenant, peux-tu nous montrer le code qui te permet de poster ton formulaire ?

C'est un peu compliqué car c'est dans une boucle. Mais bon, c'est tout le temps le même principe.

En espérant que ce sera assez claire...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

For compteur = 1 to nombre_enregistrement Response.Write("<tr>")   Response.Write("<td>" & Request.Form("description" & compteur) & "<input type='text' value=""" & Replace(Request.Form("description" & compteur),"""","\""") & """ name='description" & compteur & "' class='textebox_description' onBlur='javascript : ajout_enregistrement(""description" & compteur & """);'></td>") 'permet de rajouter une ligne pour un "prochain" objet   Response.Write("<td><input type='text' value='" & Request.Form("prix_unitaire" & compteur) & "' name='prix_unitaire" & compteur & "' class='textebox_prix_unitaire' OnChange=""javascript:calcul_total('" & compteur & "');""></td></td>")   Response.Write("<td><input type='text' value='" & Request.Form("quantite" & compteur) & "' name='quantite" & compteur & "' class='textebox_quantite' OnChange=""javascript:calcul_total('" & compteur & "');""></td></td>")   Response.Write("<td><input type='text' value='" & Request.Form("somme" & compteur) & "' name='somme" & compteur & "' class='textebox_somme' readonly='yes' OnFocus=""javascript:positionne('imputation','" & compteur & "');""></td>")   Response.Write("<td><input type='text' value='" & Request.Form("imputation" & compteur) & "' name='imputation" & compteur & "' class='textebox_imputation'></td>")   Response.Write("</tr>")   next

---

D'après moi, ton problème doit se situer là :

Code:

---

1 2	onBlur='javascript : ajout_enregistrement(""description" & compteur & """);'

---

Essaie de modifier l'utilisation des guillemets (simples, doubles ou chr(34))

Non le problème n'est pas là je pense car le champs OT / CC me fait la même chose et il y a pas ce code.

Dites moi comment vous faite quand vous reprenez des valeures avec des guillemets et des apostrophe passée en POST pour les mettre dans des zones de texte?

J'AI ENFIN TROUVER. Pour moi c'est un jour super.

Premièrement il neige, ce qui veut dire que demain c'est snowboard a gogo

Et deuxièmement j'ai enfin trouver pour cette c.n..ie de guillemets. C'est beau. Alors j'ai juste fait un replace comme ça:

Code:

---

1 2	Replace(Request.Form("description" & compteur),"""","&quot ;")

---

Tout con. Merci infiniment pour votre aide