bonjour tout le monde
voila mon problème, j'ai un fichier de la sorte:
et un autre fichier qui contient tout les tag (étiquéte) qui puissent aparaitre dans le premier fichier+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
..........
..........
Je voudrai remplacer chaque occurrence du premier fichier par la position de cette même occurrence dans le deuxième 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
par exemple un 0 à la place de ABBREV
Voici mon code mais il ne me remplace que les ABBREV donc la première possibilité
merci pour votre aide
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
Partager