Discussion :

[merou20]

bonjour tout le monde j'espere que vous allez bien !!!
j'aimerais bien que vous me trouviez cet algorithme .
on utilisant un fichier stagiaire :
- martricul
- nom
- prenom
- adress
- niveau
- age
Ecrire un algorithme qui permet de faire les operations suivantes;
- procédure Ajout
- procédure Modification
- procédure Suppression
- procédure recherche = matricule ; nom

svp aider moi

[Jannus]

Bonjour,

Tu as du mal comprendre le but d'un forum d'aide.
C'est bien d'aider mais pas de faire ton travail

Dis-nous où tu en es et sur quoi tu butes et on t'aidera.

[merou20]

voilà ce qui j'ai fait , esperant que vous m'aider a continuer mon projet

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Imports System.IO
Module Module1
    Structure etudiant
        Dim num, age As Integer
        Dim nom As String
        Dim prenom, adresse, niveau As String
    End Structure
    Function etudianttochaine(ByRef et As etudiant) As String
        Return et.num & "," & et.nom & "," & et.prenom & "," & et.adresse & "," & et.age & "," & et.niveau
    End Function
    Function chainetoetudiant(ByVal ch As String) As etudiant
        Dim t() As String
        Dim et As etudiant
        t = Split(ch, ",")
        et.num = Convert.ToSingle(t(0))
        et.nom = t(1)
        et.prenom = t(2)
        et.adresse = t(3)
        et.age = Convert.ToSingle(t(4))
        et.niveau = t(5)
        Return et
    End Function
    Sub ajout(ByRef et As etudiant)
        Dim sw As New StreamWriter("c:\f.txt", False)
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("____________informations sur l'étudiant_____________")
        Console.Write("Entrer numero: ")
        et.num = Console.ReadLine
        Console.Write("Entrer Nom: ")
        et.nom = Console.ReadLine
        Console.Write("Entrer prenom: ")
        et.prenom = Console.ReadLine
        Console.Write("Entrer adresse: ")
        et.adresse = Console.ReadLine
        Console.Write("Entrer age: ")
        et.age = Console.ReadLine
        Console.Write("Entrer niveau: ")
        et.niveau = Console.ReadLine
        sw.WriteLine(etudianttochaine(et))
        sw.Close()
    End Sub
    Sub affichage()
        Dim ch As String
        Dim et As etudiant
        Dim sr As New StreamReader("c:\f.txt")
        Console.WriteLine("numero    nom       prenom      adresse     age     niveau")
        While sr.Peek <> -1
            ch = sr.ReadLine
            et = chainetoetudiant(ch)
            Console.WriteLine(et.num & "        " & et.nom & "        " & et.prenom & "        " & et.adresse & "        " & et.age & "        " & et.niveau)
        End While
        sr.Close()
    End Sub
    Sub Main()
        Dim etu As etudiant
        Dim ch As String
        Dim choix, ans As String
        Do
            etu = Nothing
            ajout(etu)
            affichage()
            Console.Write("")
            Console.ForegroundColor = ConsoleColor.Cyan
            Console.WriteLine("********************")
            Console.ForegroundColor = ConsoleColor.Cyan
            Console.WriteLine("select :  ")
            Console.WriteLine("  ajout     = 1  ")
            Console.WriteLine("  affichage = 2 ")
            Console.WriteLine("********************")
            Console.Write("")
            Console.ForegroundColor = ConsoleColor.Green
            Console.WriteLine("entrez le choix  :")
            choix = Console.ReadLine
            If choix = 1 Then
                ajout(etu)
            Else
                If choix = 2 Then
                    affichage()
                Else
                End If
            End If
            Console.WriteLine("voulez-vous continuer? : o/n ")
            ans = Console.ReadLine
        Loop Until ans = "n"
    End Sub
End Module

[millie]

Bonjour,

T'es sûr que c'est un problème d'algorithmes ?

[merou20]

j'ai un problème sur mode console en VB, je veux faire une procédure de modification d'un fichier texte (matricule;nom;prenom;age;adress;niveau)

voilà ce que j'ai fait mais il ne marche plus

Code VB :

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
Sub modifier()
        Dim bloc3, p, i, reclenght As Integer
        Dim matricule As Integer
        Dim et As etudiant
        Dim trouve As Boolean = False
        bloc3 = FreeFile()
        reclenght = Len(et)
        FileOpen(bloc3, "c:/bloc.txt", OpenMode.Random, , , reclenght)
        p = FileLen("c:/bloc.txt") / reclenght
        Console.Out.WriteLine("entrer le matricule du stagiaire à modifier")
        et.matricule = Console.ReadLine()
        For i = 1 To p
            FileGet(bloc3, i)
            If et.matricule = matricule Then
                trouve = True
                Exit For
            End If
        Next
        If trouve = True Then
            Console.Out.WriteLine("entrer les nouveau information du livre à modifier")
            et.matricule = Console.In.ReadLine
            et.nom = Console.In.ReadLine
            et.prénom = Console.ReadLine
            et.age = Console.ReadLine
            et.adresse = Console.ReadLine
            et.niveau = Console.ReadLine
            FilePut(bloc3, et, i)
        Else
            Console.WriteLine("le stagiaire est introuvable")
        End If
        FileClose(bloc3)
End Sub

[iclic]

Bonjour,

FileOpen(bloc3, "c:/bloc.txt", OpenMode.Random, , , reclenght)

Déjà, ouvrir un fichier texte en mode random me semble bizarre.
On peut ouvrir un fichier texte en mode binaire, mais il faut que tous les enregistrements soient de même nombre d'octets sans oublier les deux caractères 13 (return) et 10 (line feed),autrement pour s'y retrouver???

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
 
For i = 1 To p
            FileGet(bloc3, i)
            If et.matricule = matricule Then
                trouve = True
                Exit For
            End If
        Next
        If trouve = True Then
            Console.Out.WriteLine("entrer les nouveau information du livre à modifier")
            et.matricule = Console.In.ReadLine
            et.nom = Console.In.ReadLine
            et.prénom = Console.ReadLine
            et.age = Console.ReadLine
            et.adresse = Console.ReadLine
            et.niveau = Console.ReadLine
            FilePut(bloc3, et, i)
        Else
            Console.WriteLine("le stagiaire est introuvable")
        End If
        FileClose(bloc3
end sub

Et ici pourquoi ne pas faire tout simplement

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
 
For i = 1 To p
            FileGet(bloc3, i)
            If et.matricule = matricule Then
                          Console.Out.WriteLine("entrer les ...nouveau                             
            et.matricule = Console.In.ReadLine
            et.nom = Console.In.ReadLine
            et.prénom = Console.ReadLine
            et.age = Console.ReadLine
            et.adresse = Console.ReadLine
            et.niveau = Console.ReadLine
            FilePut(bloc3, et, i)
        Else
            Console.WriteLine("le stagiaire est introuvable")
        End If
        FileClose(bloc3
 
                                Exit For
            End If
        Next
       end sub

Je crois aussi qu'il faudrait chercher dans la FAQ ,comment écrire ,lire ,et ouvrir les fichiers et manipuler les sortes de fichiers.

A+

[MaelstroeM]

Solution la plus simple à mon sens
- Ecrire une procédure qui te charge ton fichier dans un DataTable
- Afficher ton DataTable en utilisant un DataGridView ou ce que te tu veux d'autre.
- Ecrire la fonction qui bouclera sur ta DataTable pour réécrir le fichier.
- La recherche peut être gérer par le DataTable, si je ne me trompe pas.

Amuse toi bien.