Discussion :

[Tony-ESAIP]

Bonjour à tous,

Débutant VB.net, j'aurais besoin de vous pour un problème "simple".

J'ai besoin de lire dans un fichier texte 3 valeurs bien spécifiques séparées par des "|".
Pour le moment j'arrive à récupérer les 2 premiers champs, mais mon entreprise me demande de récupérer le champ suivant et j'avoue être perdu:

Fichier texte:

1|MXX-XXXX|"^[M][0-9]{2}-[0-9]{4}$"
2|PREM999XXX 99|"^PREM[0-9]{3}[A-Z0-9 ]{3} [0-9]{2}$"
3|AAAXXXXXXXXXX|"^[A-Z]{3}[0-9]{10}$"

Code récuperant les 2 premiers champs:

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
            Dim famille_lecture_1 As String
            Dim fso2 As Object
            Dim famille_lecture_2 As Object
 
fso2 = CreateObject("Scripting.FileSystemObject")
            famille_lecture_2 = fso2.opentextfile(famille_lecture_1, 1, True)
            'Fonction qui cherche la famille
 
            aTemp = famille_lecture_2.readline().Split(New Char() {"|"c}, StringSplitOptions.None)
            nbRecord = aTemp(0)
            ReDim separatedFamille(nbRecord, 2)
 
            'Parcour de notre fichier ligne par ligne 
 
            For Me.i = 0 To nbRecord - 1
                aTemp = famille_lecture_2.readline().Split(New Char() {"|"c}, StringSplitOptions.None)
                For Me.j = 0 To 1
                    separatedFamille(i, j) = aTemp(j)
                Next
                Me.cbSelectFamille.Items.Add(separatedFamille(i, 1))
            Next
 
            famille_lecture_2.close()
            famille_lecture_2 = Nothing
            fso2 = Nothing

Voilà, pourriez-vous m'aider à récupérer ce 3ème champ afin que je puisse l'avoir dans "separatedFamille(A, B, et C)

Merci d'avance, le débutant
Tony

[Uranne-jimmy]

Bonjour,
J'ai regardé un peu vite ton code, mais sans l'avoir vu j'aurais pas agit comme ça.
A partir d'un split, tu obtiens un tableau, chaque indice en partant de 0 te donne les différentes chaines recherché.
Donc dans ta boucle qui traite ligne par ligne :

Code :

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

1
2
uneVariableString() = maligne.split("|")
MaTroisiemeString = uneVariableString(2)

Non ?

Je trouve ton code vachement compliqué pour la demande en fait, il est donc possible que je sois à côté de la plaque.

[Pol63]

ca sent le code venu de vb6/vbs
résultat 20 lignes de code au lieu de 5 ...

[rv26t]

Bonjour,

L'énoncé de votre problème n'est-il pas incomplet ?
A mon avis la première ligne de votre fichier réellement utilisée contient le nombre de lignes à traiter, non ?
Sinon là, vous ne lisez qu'une ligne dans la boucle (atemp contient 1 avec les lignes fichier présentées)

A mon avis il faut réécrire le code proprement en vb.net.
Pour palier l'urgence, avec j vous lisez les 2 premier, il suffit de lire aussi le 3ème.