Discussion :

[glsn]

Bonjour,
Je souhaite parcourir un fichier texte.
Ce fichier contient des données de ce type

numéro;description;valeur1;valeur2
numéro;description;valeur1;valeur2

et cela sur de nombreuses lignes

J'aimerais pouvoir extraire les données comprises avant et après les ;

Comment faire cela ?

[SpaceFrog]

texte entier dans une variable puis split(MonTexte,";")

sinon readline et split ....

[glsn]

J'ai 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
<form action="form_fichier.asp" method="post">
Fichier: <input name="fichiertxt" type="file">
<br>Sous-catégorie: <input name="sscat" type="text">
<input type="submit" value="Envoyer">
</form>
<% '=request("fichiertxt") %>
<br><% '=request("sscat") %>
 
<% if request("fichiertxt") <> "" then
	dim fso,MyFile,fichier
	fichier=""
	'fich=request("fichiertxt")
	fich="test.txt"
	Set fso=CreateObject("Scripting.FileSystemObject")
	'response.Write(fso)
	if (fso.FileExists(fich)) then
		Set MyFile=fso.OpenTextFile(fich,1)
		fichier=MyFile.ReadLine
		Response.Write(fichier)
		MyFile.close
	else %>
		<p>Fichier introuvable
<%	End if
	Set fso=nothing
	File_Read=fichier
	end if
%>

et il renvoie l'erreur suivante:

Fichier introuvable

D'où ça vient ?
car le fichier est bien présent

[lexav]

D'où ça vient ?

ben du fait que tu fais tout dans le même fichier...

pour mémoire, mais tu dois le savoir, le code ASP est exécuté sur le serveur, avant d'être envoyé au navigateur... donc il te faut envoyer les infos à une autre page pour faire le traitement ASP

page1.asp : formulaire, avec action = page2.asp
page2.asp : traitement avec le FSO

et voilou

[glsn]

Même en faisant ce qu'il y ci-dessou le fichier reste introuvable. Pourtant il est bien dans le répertoire dans lequel se trouve le fichier d'execution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<%
dim fso,MyFile,fichier
fichier=""
fich="test.txt"
Set fso=CreateObject("Scripting.FileSystemObject")
Set MyFile=fso.OpenTextFile(fich,1)
fichier=MyFile.ReadLine
Response.Write(fichier)
MyFile.close
Set fso=nothing
%>

[lexav]

ben faut que tu concatènes le nom du fichier avec server.mappath, non ?

[glsn]

Je viens de le faire.
Mais ça concatène dans une seule variable tout le contenu du fichier.
Or, je ne connais pas exactement le nombre de lignes qu'il y aura dans ce fichier.
Les valeurs contenu dans la variable qui récupère les données vont être importante.
J'aimerais que si mon fichier contient var1;var2;var3 sur chaque ligne, je puisse récupérer
tableau=split(texte,";")
Et que j'obtienne ainsi
tableau(0) est égal à var1
tableau(1) est égal à var2
tableau(2) est égal à var3

Il faudrait donc que je puisse lire ligne par ligne le fichier.

Comment faire ces 2 choses ?