Discussion :

[Vincent32]

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 :

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

[Ashireon]

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.

[Vincent32]

Merci beaucoup pour cette réponse.

J'ai finalement opté pour cette syntaxe :

Code :

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

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

[jfontaine]

Bonjour,

Pour info, comme cela aussi

Code :

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

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