By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
440,946 Members | 1,600 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 440,946 IT Pros & Developers. It's quick & easy.

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

P: n/a
Bonjour,

j'ai commencé à faire un petit script qui permet d'éditer un fichier, or
lorsque le fichier en question est vide, j'obtient un message du type
"L'entrée dépasse la fin du fichier".

Comment faire ?
Jul 19 '05 #1
Share this Question
Share on Google+
5 Replies


P: n/a
Montrez un certain code, spécifiquement où le problème se produit.
Google traduit, si désolé pour toutes erreurs.

"Slasher" <no****@nomail.org> wrote in message
news:bk**********@news-reader4.wanadoo.fr...
Bonjour,

j'ai commencé à faire un petit script qui permet d'éditer un fichier, or
lorsque le fichier en question est vide, j'obtient un message du type
"L'entrée dépasse la fin du fichier".

Comment faire ?

Jul 19 '05 #2

P: n/a
> Montrez un certain code, spécifiquement où le problème se produit.
Google traduit, si désolé pour toutes erreurs.


Sorry, I don't cared this NG was in English...

This is a part of the script where there is a problem :

-------------------
if FSO.fileexists(chemin_fichier) then
%><center><%
response.Write("Le fichier '"& nom_fich &"' existe")
set FSO = server.CreateObject("scripting.filesystemobject")
chemin_fichier = server.MapPath(nom_fich)
set inF = FSO.OpenTextFile(chemin_fichier,1,false)
contenu = inF.readall
inF.close
-------------------

When the file that I try to open is empty, I see a message like "The entry
exceeds the end of the file"
Jul 19 '05 #3

P: n/a
http://www.microsoft.com/technet/tre...s_scr_eqco.asp

if FSO.fileexists(chemin_fichier) then %><center><% response.Write("Le
fichier '"& nom_fich &"' existe") set FSO =
server.CreateObject("scripting.filesystemobject") chemin_fichier =
server.MapPath(nom_fich) set oFile=FSO.GetFile(chemin_fichier) if oFile.Size
0 then set inF = FSO.OpenTextFile(chemin_fichier,1,false)

contenu = inF.readall inF.close else %>The File is empty<% end if
"Slasher" <no****@nomail.org> wrote in message
news:bk**********@news-reader4.wanadoo.fr...
Montrez un certain code, spécifiquement où le problème se produit.
Google traduit, si désolé pour toutes erreurs.


Sorry, I don't cared this NG was in English...

This is a part of the script where there is a problem :

-------------------
if FSO.fileexists(chemin_fichier) then
%><center><%
response.Write("Le fichier '"& nom_fich &"' existe")
set FSO = server.CreateObject("scripting.filesystemobject")
chemin_fichier = server.MapPath(nom_fich)
set inF = FSO.OpenTextFile(chemin_fichier,1,false)
contenu = inF.readall
inF.close
-------------------

When the file that I try to open is empty, I see a message like "The entry
exceeds the end of the file"

Jul 19 '05 #4

P: n/a
Salut!
je sais pas si je comprends bien t'essaie de lire un fichier c'est
ça?? alors voilà qqch qui pourrait peut être t'aider, afin des sites
sur les quels tu devrais trouver les info dont t'as besoin:

http://www.brettb.com/FileAndFolderCheckers.asp
http://support.microsoft.com/default...;EN-US;q299871
http://www.kamath.com/codelibrary/cl005_filename.asp
Ton erreur je pense c'est que tu "check" pour voir si "chemin_fichier"
exist et tout de suite sans après tu fais :chemin_fichier =
server.MapPath(nom_fich)
Moi je pense que ça devrait être qqch comme:
if chemin fichier exist then
---ecrire ton code ici pour lire ton fichier
else
faire le code pour le path et lecture du fichier....
end if

ciao!
"Slasher" <no****@nomail.org> wrote in message news:<bk**********@news-reader4.wanadoo.fr>...
Montrez un certain code, spécifiquement où le problème se produit.
Google traduit, si désolé pour toutes erreurs.


Sorry, I don't cared this NG was in English...

This is a part of the script where there is a problem :

-------------------
if FSO.fileexists(chemin_fichier) then
%><center><%
response.Write("Le fichier '"& nom_fich &"' existe")
set FSO = server.CreateObject("scripting.filesystemobject")
chemin_fichier = server.MapPath(nom_fich)
set inF = FSO.OpenTextFile(chemin_fichier,1,false)
contenu = inF.readall
inF.close
-------------------

When the file that I try to open is empty, I see a message like "The entry
exceeds the end of the file"

Jul 19 '05 #5

P: n/a
> Ton erreur je pense c'est que tu "check" pour voir si "chemin_fichier"
exist et tout de suite sans après tu fais :chemin_fichier =
server.MapPath(nom_fich)
Moi je pense que ça devrait être qqch comme:
if chemin fichier exist then
---ecrire ton code ici pour lire ton fichier
else
faire le code pour le path et lecture du fichier....
end if

ciao!


thank you ! it's work now !
Jul 19 '05 #6

This discussion thread is closed

Replies have been disabled for this discussion.