Mon problème est de faire entrer les données en dynamique. Le fichier test.txt possède les noms de tous les travailleurs (worker1|worker2|?|worker-n|).
Chaque worker possède un répertoire avec de 12 fichiers de tous les mois. Le but est de prendre les informations depuis ces fichiers de 12 mois, sans écraser les données du premier worker, car le code fais que le dernier worker écrase les données de tous les worker.
Private Sub entreprises(ByVal word As String)
Dim worker As String
Dim Temp As New FileStream(Application.StartupPath & "\Save\test.txt", FileMode.Open) 'Prendre les informations depuis le fichier test.txt
Dim Temp_Stream As New StreamReader(Temp)
'
Do Until Temp_Stream.Peek = -1
Val = Temp_Stream.ReadLine.Split("|") 'Le séparateur entre les mot
For i = 1 To Val.Length - 1
worker = Val(i - 1) 'Faire un pas en arrière avent que ça dépasse la fin
Next '
Loop '
Temp_Stream.Close() 'Fermeture du fichier
Temp.Close() 'Fermeture du fichier
Dim objAccount As AccountsClassLibrary.Account
Dim objcont As AccountsClassLibrary.Account
If m_Accounts.Count = 0 Then
objAccount = New AccountsClassLibrary.Account
objAccount.AccountName = "Janvier"
Dim Fs_Janvier As New IO.FileStream(Application.StartupPath & "\Save\" & worker & "\Janvier.hor1", FileMode.Open)
Dim Str_Janvier As New IO.StreamReader(Fs_Janvier)
Do Until Str_Janvier.Peek = -1
Val = Str_Janvier.ReadLine.Split("|")
If Val(2) = word Then
objAccount.CodeListings.Add(Val(0), Val(1), Val(2), Val(3), Val(4))
'C?est ici que toutes les données sont écrasées par le dernier worker !!!
End If
Loop
m_Accounts.Add(objAccount) 'Ajouter dans la librairie dynamique
Str_Janvier.Close()
Fs_Janvier.Close()
.
..
...
objAccount = New AccountsClassLibrary.Account
objAccount.AccountName = "Décembre"
Dim Fs_Février As New IO.FileStream(Application.StartupPath & "\Save\" & worker & "\Décembre.hor1", FileMode.Open)
Dim Str_Décembre As New IO.StreamReader(Fs_Décembre)
Do Until Str_Décembre.Peek = -1
Val = Str_Décembre.ReadLine.Split("|")
If Val(2) = word Then
objAccount.CodeListings.Add(Val(0), Val(1), Val(2), Val(3), Val(4))
End If
Loop
m_Accounts.Add(objAccount)
Str_Février.Close()
Fs_Février.Close()
Me.TabControl.TabPages.Clear()
For Each objAccount In m_Accounts
Dim objTabPage As New TabPage(objAccount.AccountName)
Dim objControl As New AccountsWindowsControlLibrary.UserControlAccounts
objTabPage.Controls.Add(objControl)
Me.TabControl.TabPages.Add(objTabPage)
With objControl
.Dock = DockStyle.Fill
.Account = objAccount
End With
Next
End If
End Sub
naim1970