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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
|
Dim cptnc : cptn_c = 0
Dim n_chiffre(5)
Dim cptcouple : cptcouple = 0
Dim cpt_de_couple : cpt_de_couple = 1
Dim couple(50, 50, 50, 50, 50) As Byte
Dim chiffre(8000, 5)
Dim c
'Chargement du Fichier COUPLES -------------------------------------------------------------------------
c = 0 : strLigne = ""
FileOpen(1, My.Application.Info.DirectoryPath + "\root" + "\suite.csv", OpenMode.Input)
While Not EOF(1)
c = c + 1
strLigne = LineInput(1)
Dim selement() As String
selement = Split(strLigne, ";")
chiffre(c, 1) = selement(0)
chiffre(c, 2) = selement(1)
chiffre(c, 3) = selement(2)
chiffre(c, 4) = selement(3)
chiffre(c, 5) = selement(4)
End While
FileClose(1)
'-------------------------------------------------------------------------------------------------------------
'cumul du nombre de numéros dans le fichier suite.csv
For ee = 2 To c ' c étant le nombre de lignes dans le fichier suite.csv
For j = 1 To 5
If chiffre(ee, j) <> "." Then
cptn_c = cptn_c + 1
n_chiffre(cptn_c) =chiffre(ee, j)
End If
Next j
'Recherche des couples équivalents -----
For a = ee + 1 To c
For j = 1 To 5
For h = 1 To cptn_c
If chiffre(a, j) = n_chiffre(h) Then cptcouple = cptcouple + 1
Next h
Next j
'Pour couple de 2 chiffres (a,b) -----------
If cptcouple = cptn_c And cptn_c = 2 Then
cpt_de_couple = cpt_de_couple + 1
couple(Val(n_chiffre(1)), Val(n_chiffre(2)), 0, 0, 0) = cpt_de_couple
cptcouple = 0
End If
'Pour triple de 3 chiffres (a,b,c) ------------
If cptcouple = cptn_c And cptn_c = 3 Then
cpt_de_couple = cpt_de_couple + 1
couple(Val(n_chiffre(1)), Val(n_chiffre(2)), Val(n_chiffre(3)), 0, 0) = cpt_de_couple
cptcouple = 0
End If
'Pour quadruple de 4 chiffres (a,b,c,d) -----------
If cptcouple = cptn_c And cptn_c = 4 Then
cpt_de_couple = cpt_de_couple + 1
couple(Val(n_chiffre(1)), Val(n_chiffre(2)), Val(n_chiffre(3)), Val(n_chiffre(4)), 0) = cpt_de_couple
cptcouple = 0
End If
'Pour quintuble de 5 chiffres (a,b,c,d,e) --
If cptcouple = cptn_c And cptn_c = 5 Then
cpt_de_couple = cpt_de_couple + 1
couple(Val(n_chiffre(1)), Val(n_chiffre(2)), Val(n_chiffre(3)), Val(n_chiffre(4)), Val(n_chiffre(5))) = cpt_de_couple
cptcouple = 0
End If
Next a
'RAZ des compteurs ----------
cptn_c= 0 : cpt_de_couple = 1 : cptcouple = 0
Next ee |