Sujet Précédent Sujet Suivant

Ecrire et rechercher dans un fichier texte

cs_Karthuss Messages postés 1 Date d'inscription dimanche 23 janvier 2011 Statut Membre Dernière intervention 23 janvier 2011 - 23 janv. 2011 à 18:49
cs_ShayW Messages postés 3253 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 - 24 janv. 2011 à 15:12
Bonjour à tous,

Pour un projet avec mon école d'ing, je dois créer une "application" avec VB 2008.

Voila je souhaiterais pouvoir créer un fichier texte d'inscription .

Je m'explique, chaque personne qui doit utiliser "l'application" rentre sont nom et son prénom, puis elle utilise "l'application" et l'on sauvegarde le résultat avec son nom. ( le résultat, c'est juste un score).
Quand la même personne réutilise "l'application" lui dit quel était son dernier score.

Voila rien de bien compliquer, mais je suis assez nul en programmation ( si on peut dire que ça en est ^^).
Voici ce que j'ai déjà commencer:

Dim Nom, Prenom As String
Dim file As System.IO.StreamWriter

Private Sub Button3_Click
file = My.Computer.FileSystem.OpenTextFileWriter("D:\test.txt", True)
Nom = InputBox("Votre Nom")
Prenom = InputBox("Votre Prénom")
file.WriteLine(Nom" " &" "Prenom)
file.Close()
End Sub
donc j'écris les noms prénoms ligne par ligne puis j'ecris le score juste en dessous de la ligne nom prénom avec :

file = My.Computer.FileSystem.OpenTextFileWriter("D:\test.txt", True)
file.WriteLine("score")
file.Close()
ce qui me donne quelque chose du genre dans mon fichier txt:

john does
score

Donc j'aimerais pouvoir trouver le nom et prénom dans le fichier si il existe, sinon le créer, et si il existe, pouvoir écrire dans une msgbox sont ancien résultat.


Merci à tous.

3 réponses

Réponse 1 / 3
cs_ShayW Messages postés 3253 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 57
23 janv. 2011 à 22:57
Salut
cela serait mieux d'écrire le nom prénom score
sur une meme ligne avec un espace
nom prenom scrore 

Dim file As System.IO.StreamWriter
        Dim nom As String
        Dim prenom As String

        file = My.Computer.FileSystem.OpenTextFileWriter("e:\test.txt", True)
        nom = InputBox("Votre Nom")
        file.Write(nom & " ")
        Prenom = InputBox("Votre Prénom")
        file.Write(prenom & " ")
        file.Close()

si je comprends
j'inscris mon nom ,mon prenom
il faut ouvrir le fichier pour lecture verifier
si nom et prenom n'existe pas déja
que fais si 2 personnes ont le meme nom et prenom
le nouveau score d'une personne remplace le dernier score ou on écrit en plus ?
0
Réponse 2 / 3
cs_ShayW Messages postés 3253 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 57
24 janv. 2011 à 00:43
une solution 
 Imports System.IO
Module Module3
    Dim file As System.IO.StreamWriter
    Dim listitems() As String
    Dim coordononee() As String
    Dim nom As String
    Dim prenom As String
    Dim score As String
    Dim found As Boolean
    Dim index As Integer

    Sub Main()

        nom = InputBox("Votre Nom")
        prenom = InputBox("Votre Prénom")
        found = False
        If checkfile() Then
            writetofile()
        End If
    End Sub
    Private Function checkfile() As Boolean

        Try
            listitems = System.IO.File.ReadAllLines("e:\test.txt")
            For iter = 0 To listitems.Length - 1
                coordononee = listitems(iter).Split(" ")
                If coordononee(0).ToString = "" Then
                    found = False
                    Exit For
                Else
                    If coordononee(0) nom And coordononee(1) prenom Then
                        If coordononee.Length > 3 Then
                            Console.WriteLine("your last scrore is " & coordononee(2))
                        End If
                        index = iter
                        found = True
                    End If
                End If
            Next
        Catch ex As Exception
            Console.Write("erreur fichier introuvable")
            Return False
            Exit Function
        End Try
        Return True
    End Function
    Private Sub writetofile()
        If Not found Then
            Try
                File = My.Computer.FileSystem.OpenTextFileWriter("e:\test.txt", True)
                File.Write(nom & " ")
                File.WriteLine(prenom)
                File.Close()
            Catch ex As Exception
                Console.Write("erreur fichier introuvable")
                Exit Sub
            End Try

        End If

        If found Then
            Try
                File = My.Computer.FileSystem.OpenTextFileWriter("e:\test.txt", False)
                score = InputBox("Votre score")
                listitems(index) = nom & " " & prenom & " " & score
                Dim chaine As String
                For Each chaine In listitems
                    File.WriteLine(chaine)
                Next
                File.Close()
            Catch ex As Exception
                Console.Write("erreur fichier introuvable")
                Exit Sub
            End Try
        End If

    End Sub

End Module
0
Réponse 3 / 3
cs_ShayW Messages postés 3253 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 57
24 janv. 2011 à 15:12
version amélioré 
 Imports System.IO
Module Module3
    Dim file As System.IO.StreamWriter
    Dim listitems() As String

    Dim nom As String
    Dim prenom As String
    Dim score As String
    Dim found As Boolean
    Dim index As Integer
    Dim delimiter As Char
    'vaut mieux écrire les coordonnées du candidat sur une meme ligne dans le fichier text
    ' le candidat peut avoir plusieurs prénom Jean claude etc
    Sub Main()
        delimiter = " "
        nom = InputBox("Votre Nom")
        prenom = InputBox("Votre Prénom")
        found = False
        If checkfile() Then
            writetofile()
        End If
    End Sub
    Private Function checkfile() As Boolean
        'verifie si le fichier existe 
        Try
            'copy tout le fichier dans un array of string
            listitems = System.IO.File.ReadAllLines("e:\test.txt")
            For iter = 0 To listitems.Length - 1
                ' cherche si le candidat existe si oui found se met à true
                If listitems(iter).IndexOf(nom) >= 0 And listitems(iter).IndexOf(prenom) >= 0 Then
                    index = iter
                    found = True
                End If

            Next
        Catch ex As Exception
            Console.Write("erreur fichier introuvable")
            Return False
            Exit Function
        End Try
        Return True
    End Function
    Private Sub writetofile()
        Dim coordononee() As String
        ' si ç'est un nouveau candidat 
        If Not found Then
            Try
                'ouvre le fichier pour écrire mode append true
                file = My.Computer.FileSystem.OpenTextFileWriter("e:\test.txt", True)
                file.Write(nom & delimiter)
                file.WriteLine(prenom)
                file.Close()
            Catch ex As Exception
                Console.Write("erreur fichier introuvable")
                Exit Sub
            End Try

        End If
        ' si le candidat existe
        If found Then
            Try
                'ouvre le fichier pour écrire mode append false c.a.d on remplace
                'le fichier existant
                file = My.Computer.FileSystem.OpenTextFileWriter("e:\test.txt", False)
                ' copie les données du candidat dans un array of string
                coordononee = listitems(index).Split(delimiter)
                Try
                    'verifie si le candidat a déja un scrore
                    Double.Parse(coordononee(coordononee.Length - 1))
                    Console.WriteLine("votre dernier score " & coordononee(coordononee.Length - 1))
                Catch ex As Exception

                End Try
                score = InputBox("Votre score")
                listitems(index) = nom & delimiter & prenom & delimiter & score
                'on recopie tout le listitems dans le fchier
                Dim chaine As String
                For Each chaine In listitems
                    file.WriteLine(chaine)
                Next
                file.Close()
            Catch ex As Exception
                Console.Write("erreur fichier introuvable")
                Exit Sub
            End Try
        End If

    End Sub

End Module
0

Discussions similaires

Lire et écrire un fichier TXT en JAVASCRIPT
luluscript -
DMike92 -

14 réponses
Recherche de plusieurs mots dans un texte
Sebcode -
Sebcode -

5 réponses
Rechercher des fichiers commençant par le même nom
Utilisateur anonyme -
cs_ShayW -

19 réponses
Search & Replace dans TOUS les fichiers d'un dossier.
Utilisateur anonyme -
Whismeril -

15 réponses
Rechercher/Remplacer dans un fichier
sid002 -
sid002 -

2 réponses
Rejoignez-nous