Discussion :

[cagelion]

Bonjour,

Je cherche une méthode au travers d'une macro pour rechercher une chaine de caractère dans un fichier texte et extraire la valeur qui lui est associée.
Par exemple TEMPERATURE = 8000°C
Je dois chercher la chaine de caractère TEMPERATURE et extraire le chiffre 8000 qui est toujours après un "= " et avant un "°C".
Dans le fichier txt le paramètre TEMPERATURE est repris de nombreuses fois, je dois donc extraire chacune des valeurs de TEMPERATURE et les mettre en forme sous forme de colonne dans Excel.

Voici un début :

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
Sub Macro5()
'
' Macro5 Macro
'
Dim intFic As Integer
Dim strLigne As String
intFic = FreeFile
L = 1
Open "D:\Essai\pong.txt" For Input As intFic
While Not EOF(intFic)
    Line Input #intFic, strLigne
    If strLigne= "TEMPERATURE" Then
            Range("A" & L) = Left(strLigne, 6)
            Range("B" & L) = Mid(strLigne, 22, 26)
            Range("C" & L) = Right(strLigne, 140)
    End If
    L = L + 1
Wend
Close intFic
 
'
End Sub

Merci a vous pour vos idées

[BenjGe]

que souhaitez vous mettre en colonne A, B et C? Je ne comprends les paramètres des fonctions Mid, left et right.

En tout cas il faut modifier le test je pense. De plus l'incrémentation de L doit se faire dans le bloc if:

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
Sub Macro5()
'
' Macro5 Macro
'
Dim intFic As Integer
Dim strLigne As String
intFic = FreeFile
L = 1
Open "D:\Essai\pong.txt" For Input As intFic
While Not EOF(intFic)
Line Input #intFic, strLigne
If InStr(1, strLigne, "température", vbTextCompare) Then 
         'remplissage
         L = L + 1
End If
 
Wend
Close intFic
 
'
End Sub

[cagelion]

A B et C sont des tests de recherche, je cherche à importer le chiffre qui est à droite de "TEMPERATURE" dans le fichier txt après "= " et avant "°C".
"TEMPERATURE" évolue dans le fichier txt et je peux le retrouver une centaine de fois, je cherche donc à extraire la centaine de valeurs qui lui est associée.

[PPz78]

Bonjour,

J'ai déjà fait quelque chose de similaire.
Le cas général est assez compliqué.

Suivant les réponses aux questions suivantes la solution peut se simplifier :
- sur la même ligne, peut-il y avoir plusieurs températures ?
- quelle est la plage de température à la quelle tu t'intéresse ? (nombre de chiffre)
- une température peut-elle écrite à cheval sur deux lignes ? (comme dans la littérature)
- en cas de césure y a-t-il un tiret entre les deux parties du mot.
- la valeur de la température peut -elle être coupée ?
- Quelle est la chaîne de caractère qui caractérise le changement de ligne ?
J'oublie peut être quelque questions, elles viendront au fur et à mesure de nos échanges.

PPz

[cagelion]

Merci pour votre reponse.
Il y a enormement de texte dans ce fichier et parfois une ligne
TEMPERATURE = 500 °C
Je souhaite extraire le 500.
Voici la reponse a vos question.
Donnez moi juste le principe avec un exemple pour me mettre sur le chemin.

- sur la même ligne, peut-il y avoir plusieurs températures ?
Non une seule temperature
- quelle est la plage de température à la quelle tu t'intéresse ? (nombre de chiffre)
0 a 10 000
- une température peut-elle écrite à cheval sur deux lignes ? (comme dans la littérature)
non sur une seule ligne
- en cas de césure y a-t-il un tiret entre les deux parties du mot.
pas de cesure la ligne est tres courte TEMPERATURE = 500 °C par exemple
- la valeur de la température peut -elle être coupée ?
Non
- Quelle est la chaîne de caractère qui caractérise le changement de ligne ?
le symbole >

Merci

[PPz78]

Bonsoir,

Comme il n'y a pas de température à cheval sur deux lignes,
comme il n'y a pas plusieurs température sur la même ligne,
ton cas est simple.

Merci de ne pas changer les hypothèses dans quelques jours.

le principe:
- tu lis une ligne qui se retrouve dans une chaîne de caractère
- dans la chaîne tu recherche TEMPERATURE = apparemment en majuscule
- tu extraies la chaîne de caractères après TEMPERATURE = (à droite avec l'instruction Right )
- dans cette nouvelle chaîne de caractères tu recherche °C à la n eme place
- la température se trouve dans les n-1 premiers carctères

Puis tu boucles jusqu'à la fin

A+

PPz