Discussion :

[loic.keysoft]

Hello !

Me revoici avec deux autres question :

Comment vérifier si un fichier txt est vide ?

Comment mettre le contenu d'un txt en une seule variable String ?

Donc je pense que vous allez m'orienter sur la FSO voir même sur TextStream Object mais je n'ai pas trouvé de fonction qui me retourné le contenu en une String. Et le problème avec un ReadAll par exemple c'est que quand le fichier texte est vide il me dit que la longueur de sortie à dépassée la longueur d'entrée.

Merci beaucoup !

[Immobilis]

Salut,

Peut-être devrais-tu nous montrer un peu de code.
Et as-tu essayé ceci? http://www.w3schools.com/asp/met_readall.asp

A+

[loic.keysoft]

Salut Immobilis !

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'lecture du txt
dim fs,f,t, bValue
set fs=Server.CreateObject("Scripting.FileSystemObject") 
 
set t=fs.OpenTextFile("c:\\wamp\\www\\Game_Research\\txt\\people.txt", 1,false)
bValue=t.ReadAll
 
t.close 
'fin de lecture

Voila le code pour la lecture de fichier, seulement quand le fichier est vide il me retourne une erreur.

[loic.keysoft]

Pour contrer le problème de l'erreur lorsque le fichier texte est vide j'ai décidé d'exploiter la taille de celui-ci et vérifier, avant lecture, si elle est nulle ou non.

Seulement on me retourne toujours 0 avec ce code :

Code :

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

1
2
3
4
5
 
dim objetFSO, Fichier
Set objetFSO = CreateObject("Scripting.FileSystemObject")
Set Fichier = objetFSO.GetFile("c:\\wamp\\www\\Game_Research\\txt\\people.txt")
Response.write("TAILLE : " & Fichier.Size & "<br/>")

Vous auriez une idée ? Merci

[Immobilis]

Pas trop de pb avec ton dernier script de mon coté.
Par contre, j'ai la mm erreur que toi quand le fichier est vide. Pour tester, il faut faire

Code :

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

1
2
3
4
5
6
7
8
9
<%
dim objetFSO, t
Set objetFSO = Server.CreateObject("Scripting.FileSystemObject")
Set t = objetFSO.OpenTextFile(Server.MapPath("TextFile.txt"), 1,false)
if not t.AtEndOfStream then
    Response.Write t.readall
else
    Response.Write "AtEndOfStream"
end if

http://www.w3schools.com/asp/prop_atendofstream.asp

A+

[loic.keysoft]

Merci Immobilis !

Finalement j'ai fait autrement mais ca m'aide pour un autre cas