Lire des mots d'un TXT spécial

Réponse acceptée !
je comprends pas pourquoi ça te fait une erreur sur Mots(0) ???
j'ai modifier ma méthode, mais comme elle est basée sur le même principe que crenaud76, il faudrait trouver pourquoi cette erreur sur Mot(0)
pour l'utiliser:
lblNom = Table (1,1) '1ére Ligne, 1er Mot
lblCond = Table(2,3) '2éme Ligne, 3éme Mot
lblNum = Table(4,5) '4éme Ligne, 5éme Mot

Option Explicit Option Base 0 Dim Table() As String Private Sub Form_Load() Dim Texte As String Dim Lignes() As String Dim Mots() As String Dim i As Integer Dim j As Integer Dim x As Integer Dim y As Integer Open "c:\b.txt" For Binary As #1 Texte = Space$(LOF(1)) Get #1, , Texte Close #1 Lignes = Split(Texte, vbCrLf) x = UBound(Lignes): y = 1 ReDim Table(x, y) For i = 0 To x - 1 Mots = Split(Lignes(i), "#") If UBound(Mots) > y Then y = UBound(Mots) ReDim Preserve Table(x, y) End If For j = 0 To UBound(Mots) - 1 Table(i + 1, j + 1) = Mots(j) Next Next End Sub

Daniel

Réponse acceptée !
Salut a tous ...voila une solution

les "" a la fin du ficheir ne serve a rien ici


Attention , il faut rajouter une reference au projet :"Microsoft Scripting Runtime"

Function GiveMots(aPathFile As String, aLine As Integer, aPos As Integer) As String
Dim fso As New FileSystemObject
Dim myTxt As TextStream ' le fichier text contenant les lignes de mots
Dim myLine As String ' la ligne
Dim myTabLine() As String ' le tableau resulat de la decoupe de la ligne


' ouverture du fichier texte passé en parametre
Set myTxt = fso.OpenTextFile(aPathFile, ForReading)

' on boucle jusque l'on arrive a la hauteur de la ligne
' on s 'arrete a la ligne precedente , cela explique aline - 1
For i = 1 To aLine - 1
' si on est arrivé a a la fin du fichier
If myTxt.AtEndOfStream = True Then
' il n' a pas autant de lignes ....
GiveMots = "!#ERROR#!"
Exit For

Else
myTxt.SkipLine
End If
Next i

If GiveMots = "" Then
' a ce niveau on est positionné sur la ligne recherher "aLine"
' On la recupere dans la variable myLine
myLine = myTxt.ReadLine

' on la decoupe en fonction #
myTabLine = Split(myLine, "#")

'A ce niveau on a recuperé un tableau contenant tous les mots de la ligne recherchées

' si la position existe ... aPos - 1 car le tableau commence a
' l 'indice zero ... Ubound = plus grand indice du tableau
If UBound(myTabLine) > aPos - 1 Then
' return du mots a la position demande ..
GiveMots = myTabLine(aPos - 1)
Else
' sinon il n' y as pas de mots a cette position
GiveMots = "!#ERROR#!"
End If
End If
End Function



Exemple utilsation :
Dim monMots As String
monMots = GiveMots(App.Path & "\b.txt",2, 4)
MsgBox monMots


=> Affichage de " mot10 "

Si ca peut aider des personnes ... salut bonnes fetes ...

espadon