[VBA-E] Lire un fichier texte

Version imprimable

Bonjour,

(Je suis cette discussion car je souhaite réaliser quelque chose similaire.)
Message sorti d'une autre discussion par AlainTech

Epxlication rapide :
- j ai un fichier toto.txt
- je travaille sous une macro excel
- je veux recupérer des données (x : ce sont des reels) comprises entre 2 chaines de caracteres et les mettre dans un tableau

Forme des données :
PLUIE
x1 x2 x3 ... xn
x21 x22 x23... x2n
...
xm1 ... xmn
PRECIPITATION

Comment :
Je pense chercher PLUIE dans le fichier, recuperer la ligne, puis chercher PRECIPITATION et recuperer la ligne, puis lire les donnees comprises

J´ai repris le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Open "D:\HELENE\essai_macro\simulation.txt" For Input As 1# arret = False While Not (EOF(1) Or arret) Input #1, Texte If InStr(Texte, "PLUIE") <> 0 Then arret = True End If Wend MsgBox Texte Close 1#
Mais je n´arrive pas à avoir le numero de ligne...
Texte me donne PLUIE...

J ai essayé avec Line Input mais c est la meme chose.

Merci de votre aide!

La fonction lit le fichier ligne par ligne, il te suffit d'incrémenter le nb de lignes lues et tu saura ou tu te trouve dans le fichier non?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Open "D:\HELENE\essai_macro\simulation.txt" For Input As #1
 
i=0
arret = False
While Not (EOF(1) Or arret)
    i=i+1
    Line Input #1, Texte
    If InStr(Texte, "PLUIE") <> 0 Then
        arret = True
    End If
Wend
 
Close #1
 
MsgBox "Ligne : " & i

23/05/2006, 07h38
jmfmarques

Ce n'est pas Input, mais Line Input (aide en ligne), qu'il faut utiliser !
23/05/2006, 09h23
Vesta

Corrigé
23/05/2006, 18h54
Lnmex

Merci.... ouuppss :oops: je sais pas pourquoi j´avais pas pensé à ca!!
:ccool:
23/05/2006, 19h33
Vesta

Moi non plus lol Résolu??