Discussion :

[Nir3x]

Bonsoir à tous,

Je fais appel à vous suite à un problème que je rencontre et qui me perturbe.

Voilà, je lis un fichier score.txt qui contient (Nom du joueur, nombre de partie, minute, seconde) :

AAA,999,10,00;
AAB,998,00,04;
AAC,997,00,06;
AAD,996,00,10;
AAE,995,10,12;

Pour lire les valeurs, je le fais avec StreamReader, donc je récupère le tout normalement avec la suite d'instructions habituelle spliter par rapport au ";" récupéré dans le tableau nommé "ligne".
Ensuite je fais un split par rapport au "," de ligne, récupéré dans le tableau "result".

Avec le code suivant,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Sub hight_score(ByVal minute, ByVal seconde)
    Dim Score As String = "./Ressources/Score.txt"
    Dim sr As New System.IO.StreamReader(Score)
    Dim Source As String
    Dim result() As String
    Dim i As Integer
    Source = sr.ReadToEnd()
    Dim ligne() As String = Split(Source, ";")
    For i = 0 To 4
       result = Split(ligne(i), ",")
       Dim mm As Integer = CType(result(2), Integer)
       Dim ss As Integer = CType(result(3), Integer)
 
       MsgBox(mm & "'" & ss & "'' et " & minute & "'" & seconde & "''")
       If minute <= mm Then
           If seconde <= ss Then
               MsgBox("ok")
           End If
       End If
    Next
End Sub

Pour un passage en fonction de (0,3), je devrais trouver "ok" pour toutes les lignes, soit 5 fois.

Or avec le 10'00 et le 10'12, le programme ne m'affiche pas le "ok".

Je ne comprends pas pourquoi, je teste bien deux integer, et non des string avec des integer ou encore deux string.

Je voudrais vérifier si le temps que je passe en paramètre est inférieur à un des temps du fichier.
Quelqu'un aurait une réponse/solution à mon problème ?

Nir3x

[chrismonoye]

Bonjour,

voir pour comparer des intervalles de temps, TimeSpan peut être une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
            Dim tempsMini As New TimeSpan(0, minute, seconde)
            Dim temps As New TimeSpan(0, mm, ss)
 
            If tempsMini <= temps Then
                MsgBox(mm & "'" & ss & "'' et " & minute & "'" & seconde & "''" & Environment.NewLine & "ok")
            Else
                MsgBox(mm & "'" & ss & "'' et " & minute & "'" & seconde & "''" & Environment.NewLine & "PAS ok")
            End If

[rv26t]

Bonjour,

La solution de chrismonoye apporte surement la réponse à ta question

Mais pour expliquer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Sub hight_score(ByVal minute, ByVal seconde)

...
Je ne comprends pas pourquoi, je teste bien deux integer, et non des string avec des integer ou encore deux string.

Les paramètres de ta Sub ne sont pas typés, comment peux-tu être sur que tu testes des integer ?

Pour un passage en fonction de (0,3), je devrais trouver "ok" pour toutes les lignes, soit 5 fois.

Faux, la première (10'00 ) ne rentre pas dans les critères (seconde <= ss est équivalent à 3 <= 0 ; c'est faux), seule 4 lignes correspondent.
Les 2 if à la suite fait que c'est équivalent à un And des 2 conditions.

min : 0 <= 10 et sec 3 <= 0 ; resultat : False
min : 0 <= 0 et sec 3 <= 4 ; resultat : True
min : 0 <= 0 et sec 3 <= 6 ; resultat : True
min : 0 <= 0 et sec 3 <= 10 ; resultat : True
min : 0 <= 10 et sec 3 <= 12 ; resultat : True

Ton algo est faux.

[Nir3x]

Re à vous deux,
Ah oui, bien vu pour l'oubli de typage des paramètres. Or je viens de le refaire avec le typage et cela ne change pas.

Je viens de faire le test avec la solution de chrismonoye, et cela fonctionne parfaitement pour différentes valeurs.

Fichier score.txt :

AAA,999,10,00;
AAB,998,02,04;
AAC,997,10,06;
AAD,996,20,10;
AAE,995,10,12;

En paramètre : 10'00 donc (10, 0).

Merci pour l'aide. Et désolé pour mon oubli anormal, pour ma défense, il était tard , lol.

Pour la solution, j'ai fais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub hight_score(ByVal minute As Integer, ByVal seconde As Integer)
        Dim Score As String = "./Ressources/Score.txt"
        Dim sr As New System.IO.StreamReader(Score)
        Dim Source As String
        Dim result() As String
        Dim i As Integer
        Source = sr.ReadToEnd()
        Dim temps As New TimeSpan(0, minute, seconde)
        Dim ligne() As String = Split(Source, ";")
        For i = 0 To 4
            result = Split(ligne(i), ",")
            Dim mm As Integer = CType(result(2), Integer)
            Dim ss As Integer = CType(result(3), Integer)
            Dim tempsMini As New TimeSpan(0, mm, ss)
            If temps < tempsMini Then
                MsgBox(mm & "'" & ss & "'' > " & minute & "'" & seconde & "''" & Environment.NewLine & "ok")
            Else
                MsgBox(mm & "'" & ss & "'' <= " & minute & "'" & seconde & "''" & Environment.NewLine & "PAS ok")
            End If
        Next
 
    End Sub

J'ai un test strictement inférieur parce que je ne veux pas que ce soit vrai pour les mêmes temps.

Nir3x