Creation de bouton precedant pour lecture de fichier

Version imprimable

29/05/2012, 01h36
swizerman

Creation de bouton precedant pour lecture de fichier

on doit fere afficher dans un textbox les chiffres 1 a 10.
les chiffres 1 a 10 sont situés dans un document.txt.

Il y a le bouton suivant que a chaque click i passe..1, 2, 3,4 etc..10 et une fois rendu a la fin il revient o premier.

Il y a le bouton precedent. Comment faire pour que lorsque je click celui-ci, il affiche 10, 9, 8, 7...

bref...comment est que vous vous y prenderiez pour le faire reculer ?
Je suis bloqué mais jusqu a present jm me suis crée un compteur.

et je me dis si le compteur est plus petit que 0 ou = a 0 et bien recule...mais comment dire au bouton de reculer ?....

Merci

Salut,

Citation:

Envoyé par swizerman

les chiffres 1 a 10 sont situés dans un document.txt

Je ne comprend pas très bien l'histoire du fichier txt..

Sinon pour incrémenter/désincrémenter i tu peux faire comme ça:

Code:

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
 
    Dim minValue As Integer = 1
    Dim maxValue As Integer = 10
    Dim i As Integer = minValue
 
    'Chargement du formulaire
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = i.ToString 'i = 1
    End Sub
 
    'Click sur le bouton précédent
    Private Sub ButtonPrecedent_Click(sender As System.Object, e As System.EventArgs) Handles ButtonPrecedent.Click
        If i > minValue Then          'si i est supérieur à 1
            i -= 1                       'on désincrémente (équivalent à i = i - 1)
        Else                          'sinon
            i = maxValue                 'i = 10
        End If
        TextBox1.Text = i.ToString
    End Sub
 
    'Click sur le bouton suivant
    Private Sub ButtonSuivant_Click(sender As System.Object, e As System.EventArgs) Handles ButtonSuivant.Click
        If i < maxValue Then             'si i est inférieur à 10
            i += 1                          'on incrémente i (équivalent à i = i + 1)
        Else                             'sinon
            i = minValue                    'i = 1
        End If
        TextBox1.Text = i.ToString
    End Sub

En espérant que tu puisse t'en inspirer..

29/05/2012, 09h13
Kropernic

Cette histoire me fait quand même furieusement penser aux fichiers à accès relatifs qu'on apprenait à l'école... (avec delphi 5... nostalgie:calim2:)

Mais bon, avec ce qui est expliqué, difficile de se faire une idée du problème exact...

Bref, va falloir être plus précis !

Kropernic.
29/05/2012, 14h43
swizerman

Ok je vais mettre un meilleur context.

Au démarrage de mon VB le fichier Employe.txt est ouvert et les informations du premier employé sont affichées.
Les boutons Précédent et Suivant permettent de naviguer d’un employé à l’autre.

J'ai reussi a faire le bouton suivant mais pour le bouton precedent je me demande comment lui faire lire le fichier a l envers.
29/05/2012, 14h54
-N4w4k-

Peux tu mettre un exemple de ton fichier Employe.txt avec quelques commentaires? Je pense que ce sera plus simple à comprendre..

Fichier.txt ressemble a ceci :
Code:

1 2 3 4 5 6 Nom Prenom Adresse Ville Numero d'employé Pierre Gauthier 44 de l'oiseau Paris 18 Jessica Labonter 116 Longue Lyon 17 Carl Belile 88 Sienne Paris 16 Sebastien Lacombe 48 louis Paris 12 etc....
Dans mon VB il y a des textbox qui represente nom/prenom, adresse, ville, numero d'employeé..

A click du bouton suivant, il m'affiche les informations de la prochaine personne dans mes textboxs de VB. Donc il va chercher l'information dans le fichier.txt

Au click du bouton precedent, Il'affiche la prochaine personne mais a l'envers.
Et je me demande comment m'y prendre pour faire fonctionner le bouton precedent
J'espere que c'est mieux

29/05/2012, 17h07
-N4w4k-

Et donc, si je comprend bien, tu veux pouvoir incrémenter/désincrémenter le numéro de ligne à lire, afin d'extraire les infos de la ligne.

Si c'est bien ça, tu peux utiliser un StreamReader afin de récupérer chaque ligne et de les enregistrer dans un tableau de ligne. Comme ça, en faisant Dim ligne = lignes(i) tu récupère la ligne souhaitée.

Regarde mon premier message ou pour incrémenter/désincrémenter un compteur.
29/05/2012, 18h04
swizerman

Citation:

Envoyé par -N4w4k-

Et donc, si je comprend bien, tu veux pouvoir incrémenter/désincrémenter le numéro de ligne à lire, afin d'extraire les infos de la ligne.

Si c'est bien ça, tu peux utiliser un StreamReader afin de récupérer chaque ligne et de les enregistrer dans un tableau de ligne. Comme ça, en faisant Dim ligne = lignes(i) tu récupère la ligne souhaitée.

Regarde mon premier message ou pour incrémenter/désincrémenter un compteur.

Je n'ai aucun probleme a récuperer l information que j ai besoin. La ou je bloque c'est plus lors de l'incrementation et desincrementation comme tu le dis.

Je vais essayer ce que tu as mis en haut.

Je te met un exemple où je stocke une liste de ligne (celles du fichier), puis je les affiche une par une dans une TextBox (la ligne entière..):

Code:

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
    Dim lignes As List(Of String)
    Dim filename As String = "TextFile1.txt"
    Dim compteur As Integer = 0
 
    'Chargement du formulaire
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ChargementLignes()
    End Sub
 
    'Chargement des lignes du fichier
    Private Sub ChargementLignes()
        'nouvelle liste de ligne
        lignes = New List(Of String)
 
        'on lit le fichier ligne par ligne et on les ajoute une par une à la liste
        Using sr As New StreamReader(filename)
            Dim ligne As String = sr.ReadLine
            While ligne IsNot Nothing
                lignes.Add(ligne)
                ligne = sr.ReadLine
            End While
            sr.Close()
        End Using
 
        'on affiche la premiere valeur
        TextBox1.Text = lignes(0)
    End Sub
 
    'Click sur le bouton précédent
    Private Sub ButtonPrecedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrecedent.Click
        If compteur > 0 Then
            compteur -= 1
        Else
            compteur = lignes.Count - 1
        End If
        TextBox1.Text = lignes(compteur)
    End Sub
 
    'Click sur le bouton suivant
    Private Sub ButtonSuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSuivant.Click
        If compteur < lignes.Count - 1 Then
            compteur += 1
        Else
            compteur = 0
        End If
        TextBox1.Text = lignes(compteur)
    End Sub

Ici je n'ai pas de valeur max du compteur définie. Elle correspond au nombre de lignes stockées.

Bon code.

Salut

Code:

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
Private listitems As New List(Of String)
 Private pointer As Integer
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ButtonPrevious.Enabled = False
        ReadAllFile(Application.StartupPath & "\text1.txt")
end sub
 
Private Sub ReadAllFile(ByVal path As String)
        Try
            listitems = System.IO.File.ReadAllLines(path).ToList
            pointer = 0
            FillTexbox()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
End Sub
 Private Sub FillTexbox()
   Dim items() As String
        items = listitems(pointer).Split(New String() {"  "}, StringSplitOptions.RemoveEmptyEntries)
        'charger chaque élement dans sa textbox 
        TextBoxName.Text = items(0)
        TextBoxAdress.Text = items(1)
        TextBoxTown.Text = items(2)
        TextBoxEmployeesID.Text = items(3)
    End Sub
 
    Private Sub ButtonNext_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ButtonNext.MouseClick
        pointer += 1
        If pointer < listitems.Count Then
            FillTexbox()
            If pointer > 0 Then
                ButtonPrevious.Enabled = True
            End If
        Else
            pointer = listitems.Count
            DirectCast(sender, Button).Enabled = False
        End If
    End Sub
 
    Private Sub ButtonPrevious_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ButtonPrevious.MouseClick
        pointer -= 1
        If pointer >= 0 Then
            FillTexbox()
            If pointer < listitems.Count Then
                ButtonNext.Enabled = True
            End If
        Else
            pointer = 0
            DirectCast(sender, Button).Enabled = False
        End If
    End Sub

30/05/2012, 03h30
swizerman

Je vous remercie a tous.

Mais de la facon que je l ai fait.

J ai fait charger le fichier dans un tableau 1d et j'ai crée compteur.

Merci !