Discussion :

[jessy2010]

Bonjour,

Je développe une application pour gerer des pronos de football.
Pour VB Express je rechercherai de l'aide pour un codage.

J'ai une listbox et une textbox.
Dans ma listbox j'ai plusieurs choix: journée1, journée2 etc...

Je souhaiterai afficher dans la textbox ce que je sélectionne dans la listbox

Sachant que:

Journée1 =
équipeA-équipeB
équipeC-équipeD
équipeE-équipeF
etc...

Si on sélectionne donc "journée1" on devra voir dans la textbox les 10 matchs prévus pour cette journée : équipeA-équipeB etc.....

Est-ce réalisable ? Par avance merci pour votre aide.

[_Ez3kiel]

Bonjour,

Je développe une application pour gerer des pronos de football.
Pour VB Express je rechercherai de l'aide pour un codage.

J'ai une listbox et une textbox.
Dans ma listbox j'ai plusieurs choix: journée1, journée2 etc...

Je souhaiterai afficher dans la textbox ce que je sélectionne dans la listbox

Sachant que:

Journée1 =
équipeA-équipeB
équipeC-équipeD
équipeE-équipeF
etc...

Si on sélectionne donc "journée1" on devra voir dans la textbox les 10 matchs prévus pour cette journée : équipeA-équipeB etc.....

Est-ce réalisable ? Par avance merci pour votre aide.

C'est réalisable, mais la textbox n'est peut-être pas la plus adaptée pour ça ... (Multiline + gestion des retour chariots + développement de méthodes de travail sur chaîne de caractère etc)
Pourquoi pas un contrôle plus adapté au format Liste ? (2ème listbox, listview mode détail, DataGridView épuré, etc) Le choix du contrôle dépendra du fonctionnement que tu as en tête pour ton programme.

[jessy2010]

Salut _Ez3kiel,

Merci pour ta réponse.
Comme c'est tout nouveau pour moi, j'avoue que j'ai un peu de soucis à ce stade de mon apprentissage du VB, néanmoins je suis parvenu au résultat escompté.

Ce qui me dérange c'est que cela ne m'a pas l'air "saint" et "dans les règles de l'art" la méthode employée.

Voici le résultat:


Et voici le codage utilisé, existe-il un codage en bonne et due forme pour faire la même chose ?

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
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
 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        Dim selectedIndex As String
        selectedIndex = ComboBox1.SelectedIndex
        Dim selectedItem As Object
        selectedItem = ComboBox1.SelectedItem
        TextBox1.Text = ComboBox1.SelectedItem
 
    End Sub
 
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        If Me.TextBox1.Text = "" Then
 
            MsgBox("Veuillez selectionner une journée !", MsgBoxStyle.Critical + vbOKOnly, "Erreur")
        Else
 
            TextBox2.Text = "."
 
        End If
    End Sub
 
 
 
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
 
        Dim SR1 As New StreamReader("C:\Users\PC\Desktop\1.txt")
 
        If TextBox1.Text = "journee1" Then
 
            TextBox2.Text = SR1.ReadToEnd
 
            SR1.Close()
 
        End If
 
        Dim SR2 As New StreamReader("C:\Users\PC\Desktop\2.txt")
 
        If TextBox1.Text = "journee2" Then
 
            TextBox2.Text = SR2.ReadToEnd
 
            SR2.Close()
 
        End If
 
 
    End Sub

Par contre avec la dernière partie du codage je galère car il y a au total 39 journées, que faut-il faire pour alléger le code afin de "charger" le fichier demandé ?
Merci pour l'éventuelle aide.

[rv26t]

Bonjour,

Par contre avec la dernière partie du codage je galère car il y a au total 39 journées, que faut-il faire pour alléger le code afin de "charger" le fichier demandé ?

En utilisant un dictionnaire, qui, pour une clé te donne une valeur corespondante (la clé = la journée ; la valeur = le nom du fichier)
Déclare le dictionnaire en variable de la form

Code :

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

    Private dicoJoursFichiers As Dictionary(Of String, String) = New Dictionary(Of String, String)

Dans le load tu crées les associations jours - fichiers

Code :

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

1
2
3
4
5
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 39
            dicoJoursFichiers.Add("journee" & i.ToString, "C:\Users\PC\Desktop\" & i.ToString & ".txt")
        Next
        '...

Utilisation du dico au changement de jour (en supposant que TextBox1 reçoit la journée en info sur clic dans la combo des journées - sinon direct sur clic dans combo)

Code :

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

1
2
3
4
5
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
         Dim SR As New IO.StreamReader(dicoJoursFichiers(TextBox1.Text))
        TextBox2.Text = SR.ReadToEnd
        SR.Close()
End Sub

[jessy2010]

Bonjour

Un tout grand merci, et le tout en quelques lignes seulement.

J'ai deux fichiers text dans deux dossiers distinct de l'application comme ceci:


Dans le fichier text1:

1
2
N
1


Dans le fichier text2:

N
2
1
1

Je dois comparer ces deux fichiers afin de detreminer s'il y a des caractères (en commun).
Si la ligne1 du fichier2 = ligne 1 du fichier1 alors le résultat est égal à 1 (ce 1 sera écrit dans un fichier text "resultat")

Dans l'exemple ci-dessus dans le fichier nommé resultat sera écrit 2

Comment puis-je procéder ?
Après recherches j'ai tenté pas mal de chose, mais pour ce cas de figure je désespère.

Merci pour votre aide.

[rv26t]

Pour faire basique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Function resultat(ByVal FichierPronostic As String, ByVal FichierMatch As String) As Integer
        Dim pronostic As String() = File.ReadAllLines(FichierPronostic)
        Dim match As String() = File.ReadAllLines(FichierMatch)
        Dim NbEgalite As Integer = 0
        For i As Integer = 0 To pronostic.Count - 1
            If pronostic(i) = match(i) Then NbEgalite += 1
        Next
        Return NbEgalite
    End Function
 
    Private Sub btnCompareFic_Click(sender As System.Object, e As System.EventArgs) Handles btnCompareFic.Click
        MessageBox.Show(resultat("D:\data\fichiers\pronostic.txt", "D:\data\fichiers\match.txt").ToString)
    End Sub