Extraction du mot et du tableau correspondant

Le
Apitos
Bonjour à tous,

J'aimerais obtenir selon un mot entré, le mot et le tableau correspond=
ants dans des tableaux imbriqués :

'--
Dim tZone

Function QuelleZone(mot As String) As String
Dim i%, j%
For i = 0 To UBound(tZone)
For j = 1 To UBound(tZone(i))
If tZone(i)(j) = mot Then
QuelleZone = tZone(i)(0)
Exit Function
End If
Next j
Next i
QuelleZone = "non trouvé"
End Function

Sub Demo()
Dim TxtFrn(), TxtSgr(), TxtKhl(), txtTb()

tZone = Array( _
Array("Frn", "Frn", "Mdrs", "Krms", "Tkh", "Mdn", "Rsf"), _
Array("Sgr", "Sgr", "Nai", "Dhb"), _
Array("Khl", "Khl", "Srg", "Zml"))
MsgBox QuelleZone("Tkh")
End Sub
'--

avec ce code, je devrais obtenir le mot "Frn".

Mais comment faire pour obtenir en même temps le tableau correspondant=
qui est txtFrn() ?

Merci d'avance.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Apitos
Le #26413860
Peut être plus claire que possible, Voici un exemple en PJ avec trois fichiers texte :
1) Texte.txt contient le fichier texte principal à manipuler
2) Frn (231016).txt - Le résultat de l’extraction correspondan te à la zone "Frn"
3) Khl (231016).txt - Le résultat de l’extraction correspondan te à la zone "Khl"
Le fichier Excel est utilisé pour lire le fichier texte principal, le traiter selon des conditions données et puis le décortiquer pour en avoir plusieurs petits fichiers texte en fin de compte.
http://www.cjoint.com/c/FJxvI1YjDIv
MichD
Le #26413865
Il ne faut surtout pas dire ce que tu cherches comme résultat, le meilleur
moyen
de ne pas obtenir satisfaction.
Regarde ce fichier : http://www.cjoint.com/c/FJxwIm2RZwI
Cela semble fonctionner avec le fichier Texte.txt
MichD
Apitos
Le #26413867
Bonjour MichD,
Ce qui me coince pour le moment c'est comment choisir le tableau correspond ant au mot retourner par la fonction QuelleZone.
Donc, au lieu de retourner seulement le nom de la zone, représentà © par un mot, j'aimerais savoir comment pourrais-je utilisé le table au correspondant (Les tableaux à utiliser me serviront pour stocker du texte) :
Ex: Si le mot retourné est "Frn" ça correspond au tableau TxtFrn( )
Ex: Si le mot retourné est "Srg" ça correspond au tableau TxtSrg( )
Ex: Si le mot retourné est "Zml" ça correspond au tableau TxtKhl( )
Apitos
Le #26414024
Bonjour ,
Voici une autre idée qui se base sur deux parties :
- La première consiste à lire, traiter et à extraire les don nées importantes et les stocker dans le tableau txtTb()
- La deuxième partie décortique le tableau principal en trois sou s-tableaux selon les trois zones.
Le code fonctionne à 70% reste à faire dans la deuxième part ie surtout.
http://www.cjoint.com/c/FJzm5m6VziS
Publicité
Poster une réponse
Anonyme