Effacer une ligne dans un fichier txt

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 718 fois - Téléchargée 28 fois

Contenu du snippet

Le code permet d'effacer une ligne dans un fichier txt sans laisser de ligne blanche.
Dans cette exemple, je selectionne le Nom d'un dinosaure à effacer dans une combobox(le nom du dinosaure fait partie des premiers caractères de chaque ligne, la suite de la ligne étant diverse caractéristiques)

Source / Exemple :


Private Sub BtnSupprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupprimer.Click

        Dim DinosaureASupprimer As String = CbBxDinosaure.SelectedItem
        Dim objFichierDinosaure = New System.IO.StreamReader(Application.StartupPath & "/dinosaure.txt", System.Text.Encoding.UTF8)
        Dim strligne As String
        Dim tabDinosaure() As String
        Dim x As Integer = 0

        Dim reponse As String = MessageBox.Show("Etes-vous sûr de vouloir supprimer le dinosaure " _
        & DinosaureASupprimer & ".", "Suppresion de Dinosaure", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If reponse = DialogResult.Yes Then

            Do While objFichierDinosaure.Peek <> -1

                strligne = objFichierDinosaure.ReadLine

            

                ReDim Preserve tabDinosaure(x)

                tabDinosaure(x) = strligne

                x += 1

            Loop

            objFichierDinosaure.close()

            For x = 0 To UBound(tabDinosaure)

                Dim dinosaureDuTableau As String = Trim(tabDinosaure(x).Substring(0, 19))

               
                If DinosaureASupprimer = dinosaureDuTableau Then

                   
                    Dim y As Integer

                    For y = x To UBound(tabDinosaure) - 1
                        tabDinosaure(x) = tabDinosaure(x + 1)

                    Next

                    Exit For 

                End If

            Next

            
            Dim objstreamwriter As New System.IO.StreamWriter(Application.StartupPath & "/dinosaure.txt", False)

        
            Dim z As Integer
            For z = 0 To UBound(tabDinosaure) - 1

                objstreamwriter.WriteLine(tabDinosaure(z))

            Next

            CbBxDinosaure.Items.RemoveAt(CbBxDinosaure.SelectedIndex)

     
            CbBxDinosaure.SelectedIndex = 0

            objstreamwriter.Close()

        End If

    End Sub

A voir également

Ajouter un commentaire

Commentaires

cs_volnay
Messages postés
12
Date d'inscription
jeudi 17 juin 2004
Statut
Membre
Dernière intervention
24 mai 2006
-
As tu deja fais des tests avec ta methode sur un gros fichier texte, quel sont les temps de réponse?
ratala
Messages postés
248
Date d'inscription
jeudi 3 février 2005
Statut
Membre
Dernière intervention
22 juin 2008
-
Salut tout le monde, je suis tombé sur ta source (qui m'avait l'air intéréssante) et puis je me suis rendu compte que c'était du dotnet, maintenant que je voi toutes ces sources en dotnet je me pose la question : qu'est-ce qui est mieux : VB ou VB.net ??
parce que j'hésite a passer en dotnet...
@+
econs
Messages postés
4066
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
18 -
Ah la la .. L'éternel débat "VB ou VB.NET" !!
Si les deux existent, c'est qu'ils ont un intérêt.
Il faut juste savoir que VB6 n'évoluera plus, alors que VB.NET est la dernière mouture de Microsoft, et que .NET sera au coeur de tout ce qu'ils vont faire dans les prochaines années.

Suivant tes besoins, il faut choisir l'un ou l'autre (ou les deux).
ratala
Messages postés
248
Date d'inscription
jeudi 3 février 2005
Statut
Membre
Dernière intervention
22 juin 2008
-
A ok, merci.
Et est-ce qu'il est possible de faire des .exe et des .dll avec du VB.NET ?
Est-ce qu'il est possible de trouver un compilateur VB.NET gratuit ?
cs_et1
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
7 -
Bonjour,
vive la question...lol évidemment que oui.
Pour programmer en vb.net si tu n'as pas Microsoft Visual Basic .net, voici un compilateur gratuit : http://www.sharpdevelop.net/
---
Mon site :
Pleins de logiciels, trucs astuces et aide pour VB.net ...
www.et1-vb.net

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.