Discussion :

[Lnmex]

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 :

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

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!

[Vesta]

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 :

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

[jmfmarques]

Ce n'est pas Input, mais Line Input (aide en ligne), qu'il faut utiliser !

[Vesta]

Corrigé

[Lnmex]

Merci.... ouuppss je sais pas pourquoi j´avais pas pensé à ca!!

[Vesta]

Moi non plus lol Résolu??