Discussion :

[guigui69]

Bonjour à tous,

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

Voici mon code:

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
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 :

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

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

[pitchalov]

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 :

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

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

[guigui69]

Merci pour votre réponse c'est bien ca