Discussion :

[krfa1]

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 :

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
	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

[krfa1]

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

[escafr]

Code :

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

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..

[tesla]

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

Code :

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

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 :

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

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"

[krfa1]

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

Merci bcp

[dl_jarod]

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

Code :

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

replace(tachaine,àremplacer,remplacerpar)

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

[krfa1]

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 :

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

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

Donc comment puis-je faire???

Merci bcp d'avance

[pc75]

Bonjour,

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

Code :

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

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

[krfa1]

Ok

Alors je récupère ça:

Code :

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

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 :

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

1
2
 
sadf sdf sdf asdfasdasd 'sdf sd as

et si je le laisse

Code :

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

1
2
 
sadf sdf sdf asdfasdasd 'sdf sd as\

[pc75]

Re,

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

[krfa1]

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 :

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
 
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

[pc75]

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

Code :

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

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

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

[krfa1]

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?

[krfa1]

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 :

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

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

Tout con. Merci infiniment pour votre aide