Discussion :

[benoitL39]

Bonjour,

Je tente de lite via FSO un fichier ligne à ligne afin de le modifier par la suite.

Cependant ma lecture echoue des le départ et le message suivant s'affiche :

Erreur d'exécution Microsoft VBScript erreur '800a003e'

L'entrée dépasse la fin du fichier

/images/Ressources_Portail/Mail Intranet/Mail_tendance_MAJ2.asp, ligne 18

Et mon fichier Mail_tendance_MAJ2.asp comporte le code suivant :

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
<%
Dim FSO
Dim Lecture
Dim Ecriture
 
'Modification du fichier Mail_tendance.htm lignes 18, 19, 20
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
 
Fnm = Server.MapPath("Mail_tendance.htm")
Debut = ""
Fin =""
 
'Ouverture du fichier en lecture
set Lecture = FSO.OpenTextFile(Fnm,1,false) 
 
'On garde les lignes 1 à 27
for i =1 to 27
		Debut = Debut + Lecture.readLine + Vbcr
	next
 
'on passe les lignes 28, 29  et 30
Lecture.skipLine 
Lecture.skipLine
Lecture.skipLine
 
'On charge enfin en mémoire le reste du fichier.
While not Lecture.atEndOfStream
   Fin = Fin + Lecture.readLine + Vbcr
Wend
 
Lecture.close
Set Lecture = Nothing

Donc la ligne posant probleme est :

Code :

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

Debut = Debut + Lecture.readLine + Vbcr

Le fichier que je cherche à modifier fait environ 60 lignes donc la fin du fichier n'est normalement pas atteinte par mon Readline...

Bref je patauge un peu, c'est pourquoi je demande mon aide pour resoudre mon probleme.

Merci beaucoup!

[Pelote2012]

Donc la ligne posant probleme est :

Code :

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

Debut = Debut + Lecture.readLine + Vbcr

T'as quoi si tu mets l'instructions
Debut = Debut + Lecture.readLine + Vbcr
hors de la boucle For

Tu fais afficher le résultat

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
<%
Dim FSO
Dim Lecture
Dim Ecriture
 
'Modification du fichier Mail_tendance.htm lignes 18, 19, 20
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
 
Fnm = Server.MapPath("Mail_tendance.htm")
Debut = ""
Fin =""
 
'Ouverture du fichier en lecture
set Lecture = FSO.OpenTextFile(Fnm,1,false) 
 
Debut = Debut + Lecture.readLine + Vbcr
 
response.write Debut

Personnelement, je monte mes codes morceau par morceau en faisant afficher le résultat à chaque étape pour etre sur que ça part pas en vrille

[benoitL39]

tout d'abord merci pour ton aide.

J'ai isolé le problème : en fait ma variable Début s'initialise bien lors de la premiere exécution du script. Mais lorsque l'on rapelle le script une seconde fois, elle n'est pas réinitialisé.

Le debut = "" n'est pas pris en compte.

Ma question est donc, comment réiitialisé ma variable à chaque appelle de script ?

J'ai essayé de mettre "dim Debut" mais cela ne fonctionne pas. J'ai meme essayé de mettre Debut="" a la fin de mon script mais rien ne fonctionne.

Please help me car la je sature...

Merci pour votre aide

[benoitL39]

bonjour,

je rencontre un problème avec l'initialisation d'une variable en début de script.
en fait dès que je relance mon script, elle garde son ancienne valeur et la remise à blanc ne se fait pas.

Voilà un extrait de mon code et la variable fautive est la variable Debut :

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
<%
Dim FSO
Dim Lecture
 
'Modification du fichier Mail_tendance.htm lignes 18, 19, 20
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
 
Fnm = Server.MapPath("Mail_tendance.htm")
Debut = ""
 
'Ouverture du fichier en lecture
set Lecture = FSO.OpenTextFile(Fnm,1,false) 
 
'On garde les lignes 1 à 27
Debut =  Lecture.readLine + Vbcr
for i =2 to 27
		Debut = Debut + Lecture.readLine + Vbcr
	next
 
Lecture.close
Set Lecture = Nothing

A la relance du script, debut garde sa valeur égale aux 27 lignes du fichier que j'ai lu.

Avez vous un indice pour m'expliquer pourquoi ma remise à blanc n'est pas prise en compte ??

[TekP@f]

Salut,

Essaie d'ajouter un Dim Debut au début de ton script.

[kaiser59]

Salut,

Essaie d'ajouter un Dim Debut au début de ton script.

Salut,

Si tu déclare tes variables avec dim alors faut le faire à toutes sinon marche pas applique donc ce que te dis tekpaf

PS : Si tu met option explicit alors oui dim est nécessaire, sinon pas besoin du dim

[benoitL39]

Salut,

Si tu déclare tes variables avec dim alors faut le faire à toutes sinon marche pas applique donc ce que te dis tekpaf

PS : Si tu met option explicit alors oui dim est nécessaire, sinon pas besoin du dim

J'ai viens de faire un essai en rajoutant un "dim debut" au debut de mon script et rien n'y change.

Salut,
Et les lignes s'ajoutent les unes aux autres à chaque fois que tu relance ton script?

Et merci de ne pas ouvrir plusieurs discussions sur le même sujet.

A+

Oui les lignes s'ajoutent et je finis par dépassé la taille de mon fichier. LE réel soucis est donc dans l'init de Debut qui ne se fait pas.

PS : dsl pour la double discussion mais je pensai que le dépassement de fichier et la mauvaise init de varaible étaient deux problèmes différents.

[benoitL39]

J'ai ajouté les Dim au début du script et en plus de cela je réinitialise ma variable via debut="" à la fin du script en rien n'y fait.

En plus, je ne peut plus avancer sur mon projet tellement ce problème est bloquant.

Je lance donc un grand cri de désespoir et au passage je vous souhaite un bon appétit!

[Immobilis]

Salut,

A la relance du script, debut garde sa valeur égale aux 27 lignes du fichier que j'ai lu.

Et les lignes s'ajoutent les unes aux autres à chaque fois que tu relance ton script?

Et merci de ne pas ouvrir plusieurs discussions sur le même sujet.

A+