Discussion :

[ouar]

Bonjour à tous!

Je me suis lancé il y a peu de temps dans Visual Basic. Aussi je teste un peu toutes les fonctionalités du langage pour developper un peu plus tard une application.
SAUF que j'ai un petit problème à la lecture d'un fichier à accès séquentiel.
Voici le script:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
Dim i As Integer
i = 0
Open "C:\visual basic\VB98\event memory\fichier.dat" For Input As #1
Do While Not EOF(1)
Input #1, evNom, evDate
monTab(i).Nom = evNom
monTab(i).date = evDate
i = i + 1
Loop
Close #1
End Sub

L'objectif est de placer consécutivement les données dans un tableau de type udt.
A la compilation on m'affiche "input past end of file" alors que normalement à l'ouverture d'un tel fichier le pointeur est placé au début.

Merci à celui qui pourra élucider ce mistère.

Ouar

[zazaraignée]

Salut

Je n'en suis pas sure à 100% mais il me semble que l'eccès séquenteil fonctionne bien avec les fichiers de texte. Si tu as différents types de données dans un même enregistrement, vas-y en accès aléatoire.

Tu es bien certain que ton fichier est en format de texte? i.e. une linge, un enregistrement ?

[AlainTech]

Ce qui est étonnant, c'est que ouar dit: "à la compilation".

Comme si le compilateur pouvait détecter le contenu du fichier...

Pour être certain du moment où se passe l'erreur, il faudrait mettre un MsgBox (i) juste après l'Input, par exemple.

[ouar]

Désolé, je me suis mal exprimé, ce n'est pas à la compilation mais à l'execution; j'ai bien fait la distinction, merci.
Jai alors mis une msgbox(i) pour bien cerner le problème. Il s'en affiche 3, de i=0 à i=2, c'est normal puisque j'ai 3 enregistrements dans mon fichier "fichier.dat" L'erreur "input past end of file" se produit juste après avoir fermé la dernière msgbox.
Finalement je crois avoir trouvé une solution, je tape "On Error Resume Next"

N'hésitez pas à me contacter si vous trouvez une méthode moins brutale.
Merci pour votre aide.

Ouar

[SfJ5Rpw8]

oui j'ai la même chose si mon fichier se terminde par une ligne vide !!

tu pourrai essayer quelque chose dans le genre :

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
Sub test()
Dim i As Integer
i = 0
Dim st  As String
Dim stMemo As String
Dim tb
Open "C:\visual basic\VB98\event memory\fichier.dat" For Input As #1
Do While Not EOF(1)
Input #1, st ' Lecture ligne
'.. Traite la ligne dans mon cas séparation par expace ...
 Do While stMemo <> st
  stMemo = st
  st = Replace(st, "  ", " ") ' Remplace les espace en double par un espace
 Loop
tb = Split(st, " ")
'On Error GoTo ErreurLect
If UBound(tb) = 1 Then 4dernier indice 1 d'ou 2 enregistrement
  monTab(i).Nom = tb(0)
  monTab(i).date = tb(1)
End If
i = i + 1
Loop
Close #1
End Sub

[ouar]

Merci beaucoup !
J'essayerais

Ouar