1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Dim famille_lecture_1 As String
Dim fso2 As Object
Dim famille_lecture_2 As Object
fso2 = CreateObject("Scripting.FileSystemObject")
famille_lecture_2 = fso2.opentextfile(famille_lecture_1, 1, True)
'Fonction qui cherche la famille
aTemp = famille_lecture_2.readline().Split(New Char() {"|"c}, StringSplitOptions.None)
nbRecord = aTemp(0)
ReDim separatedFamille(nbRecord, 2)
'Parcour de notre fichier ligne par ligne
For Me.i = 0 To nbRecord - 1
aTemp = famille_lecture_2.readline().Split(New Char() {"|"c}, StringSplitOptions.None)
For Me.j = 0 To 1
separatedFamille(i, j) = aTemp(j)
Next
Me.cbSelectFamille.Items.Add(separatedFamille(i, 1))
Next
famille_lecture_2.close()
famille_lecture_2 = Nothing
fso2 = Nothing |
Partager