Lecture d'un fichier +Split

Version imprimable

Bonjour à tous,

J'essai de lire un fichier ligne par ligne et de spliter

Voici mon code:

Code:

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
Set oFso = CreateObject("Scripting.FileSystemObject")
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=xxxxxx;UID=autonet;PWD=xxxx;DATABASE=xxxxx"
chemin= Replace(WScript.ScriptFullName, WScript.ScriptName, "")
Const ForReading = 1, ForWriting = 2 
Dim oFso, f, ligne
 
 
 
 Set f = oFso.OpenTextFile(chemin & "liste.cfg", ForReading)
  while Not f.AtEndOfStream 
    msgbox ("==>" &f.ReadLine)
	ligne = Empty
  ligne = f.ReadLine
 ' monTab = Split(ligne,"|")
   'msgbox (monTab(2))
'requeteaexecuter = replace(requete, "societe",monTab(0))
 
 
 
 
  Wend
  f.Close
 
  
  REM rs.Close
REM Set rs=nothing

Ci-dessous le fichier liste.cfg

Code:

1
2
212121|ok AUTO|004|bob@bob.fr
212121|ok AUTO|004|bob@bob.fr

Il réalise un premier passage, puis après il m'écrit "l'entré dépasse la fin du fichier erreur 800a003E" Quelle est mon erreur?

Merci

guigui69

Bonjour,

Pour moi le problème vient du fait que tu fais 2 "ReadLine" dans ta boucle (un dans le msgbox et l'autre dans l'affectation de la variable "ligne"). Ainsi, si tu as atteint la dernière ligne du fichier avec le 1er ReadLine de la boucle, alors le suivant renvoie cette erreur.

Essaie de faire plutôt comme ça :
Code:

1 2 3 4 5 6 7 8 9 Set f = oFso.OpenTextFile(chemin & "liste.cfg", ForReading) while Not f.AtEndOfStream ligne = f.ReadLine msgbox ("==>" &ligne ) monTab = Split(ligne,"|") msgbox (monTab(2)) requeteaexecuter = replace(requete, "societe", monTab(0)) wend
Bonne continuation

07/10/2011, 10h55
guigui69

Merci pour votre réponse c'est bien ca :)