Import de fichier txt et test

Bonjour,

Je souhaite importer un fichier texte dont les lignes sont différentes mais j'aimerais vérifier si sur la ligne il y a un certain texte => exemple tester si sur la ligne 1 le texte ABC est présent

la ligne 1 sera de la forme ABC (tabulation) 1256

Voici le code que j'ai écris :

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
For Each FsoFichier In FsoRepertoire.Files
        j = 0
        Open FsoFichier.Path For Input As #1 'ouvre le fichier
 
            Do While Not EOF(1) 'Boucle sur chaque ligne du fichier
 
                Line Input #1, strLigne
                j = j + 1
 
                If strLigne = "Pic numero" Then
                    str = Split(strLigne, Chr(9))
                    Worksheets("Feuil1").Cells(lig, 2).Value = str(1)
 
                ElseIf strLigne = "x0 maximum" Then
                    str = Split(strLigne, Chr(9))
                    Worksheets("Feuil1").Cells(lig, 3).Value = str(1)
 
                ElseIf strLigne = "H" Then
                    str = Split(strLigne, Chr(9))
                    Worksheets("Feuil1").Cells(lig, 4).Value = str(1)
 
                ElseIf strLigne = "H" Then
                    str = Split(strLigne, Chr(9))
                    Worksheets("Feuil1").Cells(lig, 5).Value = str(1)
 
                ElseIf strLigne = "1/2 largeur a mi-hauteur" Then
                    str = Split(strLigne, Chr(9))
                    Worksheets("Feuil1").Cells(lig, 6).Value = str(1)
 
                ElseIf strLigne = "lambda (proportion gaussienne)" Then
                    str = Split(strLigne, Chr(9))
                    Worksheets("Feuil1").Cells(lig, 7).Value = str(1)
 
                End If
 
                lig = lig + 1
 
            Loop
 
        Close #1

Le problème est qu'il teste si la ligne est égale à une valeur mais pas si la ligne contient la valeur et je ne vois pas comment faire

Merci pour vos suggestions

Hello,
Pour trouver une chaine de caractere dans une autre il me semble que c'est la fonction Instr qui permet de chercher une chaine de caractere dans une autre.

Merci beaucoup pour cette réponse.

J'ai finalement opté pour cette syntaxe :

Code:

1
2
3
 If strLigne Like "*Pic numero*" Then
                    str = Split(strLigne, Chr(9))
                    Worksheets("Feuil1").Cells(lig, 1).Value = str(1)

Bonjour,

Pour info, comme cela aussi

Code:

Worksheets("Feuil1").Cells(lig, 1).Value = Split(strLigne, Chr(9))(1)