Bonjour
J'ai des fichiers texte dans lesquels il y a différents locuteurs que je voudrais extraire
Par exemple:
loc1: bonjour
loc2: salut
loc3: coucou
loc1: hello.
Le but est d'avoir un tableau qui reprenne les différents locuteurs sans bien sur les doublons, ou les locuteurs qui reprennent la parole: loc1, loc2,loc3
'ceci est ok: chaque locuteur est extrait mais à chaque prise de parole, donc j'ai une variable avec loc1, loc2, 'loc3, loc1 si on prend l'exemple.
source() = Split(txtsource.Text, "£")
For EnonLoc = 1 To UBound(source)
sourceMS() = Split(source(EnonLoc), " ")
'si on n'a pas trouvé de locuteur nouveau
if fNomLoc= false
nomLoc(EnonLoc) = sourceMS(0)
end if
'pour éliminer les doublons, on compare le locuteur et le locuteur suivant
For k = EnonLoc To UBound(source) - 1
sourceMS2() = Split(source(k + 1), " ")
'si les deux locuteurs sont différents on passe à l'énoncé suivant
If sourceMS(0) <> sourceMS2(0) Then
nomLoc(EnonLoc) = sourceMS2(0)
fNomLoc=true
Exit For
End If
'si les deux locuteurs sont identiques
If sourceMS(0) = sourceMS2(0) Then
'on compare les deux locuteurs suivants
k = (k - (k - EnonLoc))
Exit For
End If
Next k
Next EnonLoc
J'obtiens quand même des doublons
Merci à vous