bonjour tout le monde

voila mon problème, j'ai un fichier de la sorte:

+1 NOUN_PROP NOUN_PROP
-1 PUNC DET+NOUN+NSUFF_FEM_PL+CASE_DEF_NOM DET+ADJ+NSUFF_FEM_SG+CASE_DEF_NOM PUNC NUM PUNC ABBREV ABBREV PUNC
+1 PUNC NOUN+CASE_DEF_NOM NOUN+CASE_INDEF_GEN PV+PVSUFF_SUBJ:3MS PREP NOUN+NSUFF_FEM_SG+CASE_DEF_GEN
-1 DET+ADJ+CASE_DEF_GEN
..........
..........
et un autre fichier qui contient tout les tag (étiquéte) qui puissent aparaitre dans le premier fichier

ABBREV
ADJ+CASE_DEF_GEN
ADJ+CASE_INDEF_ACC
ADJ+CASE_INDEF_GEN
ADJ+CASE_INDEF_NOM
ADJ+NSUFF_FEM_SG+CASE_INDEF_ACC
ADV
ADV+CASE_DEF_ACC
CONJ
DET+ADJ+NSUFF_FEM_SG+CASE_DEF_A
DET+ADJ+NSUFF_FEM_SG+CASE_DEF_GEN
DET+ADJ+NSUFF_FEM_SG+CASE_DEF_NOM
DET+ADJ+NSUFF_MASC_PL_GEN
DET+NOUN+CASE_DEF_ACC
Je voudrai remplacer chaque occurrence du premier fichier par la position de cette même occurrence dans le deuxième fichier,
par exemple un 0 à la place de ABBREV

Voici mon code mais il ne me remplace que les ABBREV donc la première possibilité

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
 
 Dim tags As String = sr3.ReadToEnd
        Dim tabTag() As String = tags.Split(vbCrLf)
 
 Dim vecteur As String = sr4.ReadToEnd
        vecteur = vecteur.Replace(vbCrLf, Chr(32))
        Dim TabVect() As String = vecteur.Split(" ")
 
        For j As Integer = 0 To UBound(tabTag)
            For k As Integer = 0 To UBound(TabVect)
                If TabVect(k) <> "+1" And TabVect (k) <> "-1" Then
                If TabVect (k) = tabTag (j)  Then
                    TabVect(k)  = CStr (j)
                End If
                End If
            Next k
        Next j
merci pour votre aide