IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

gestion d'un fichier txt


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Décembre 2011
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 30
    Par défaut gestion d'un fichier txt
    Bonjour a tous,

    j'aimeais enlever le mots d'un textbox dont le contenu et:

    'a
    b
    c
    '
    et que si j'enleve b sa donnerai:
    'a
    c
    '
    donc voila a partir de la pas trop de soucis, ces maintenant mon plus gros soucis je veut enregistrer mon textbox dans un fichier txt déjà existant donc j'ai procédé comme suit:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
            TextBox1.Text = Replace(TextBox1.Text, ComboBox4.Text & vbCrLf, "" )
            Dim monStreamWriter As StreamWriter = New StreamWriter(My.Application.Info.DirectoryPath & "\bdd\liste\" + ComboBox1.Text + "\" + ComboBox2.Text + "\" + ComboBox3.Text + ".txt")
            Try
                monStreamWriter.WriteLine(TextBox1.Text)
                monStreamWriter.Close()
     
            Catch ex As Exception
                MsgBox("BDD introuvable")
            End Try
    mais cela me donne dans mon fichier txt:
    'a
    b

    '

    Au lieu de:
    'a
    b
    '

  2. #2
    Membre éclairé Avatar de hugoclo
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    615
    Détails du profil
    Informations personnelles :
    Âge : 49
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations forums :
    Inscription : Décembre 2007
    Messages : 615
    Par défaut
    Salut,
    essayez ca
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    TextBox1.Text = Replace(TextBox1.Text, ComboBox4.Text, "" )

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Décembre 2011
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 30
    Par défaut
    merci pour ta réponse
    Sa ne vas pas car sa donne sa:

    'a

    c
    '

  4. #4
    Membre très actif
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Février 2012
    Messages
    130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Service public

    Informations forums :
    Inscription : Février 2012
    Messages : 130
    Par défaut
    que Contient Combobox4.text ?

    tu peut me donner de détail si non essai de faire ca

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    TextBox1.Text = Replace(TextBox1.Text, trim(ComboBox4.Text))

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Décembre 2011
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 30
    Par défaut
    il contient le mot a supprimer dans le textbox1
    ton code ne marche il me le met en erreur

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Décembre 2011
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 30
    Par défaut
    ces bon j'ai trouver merci a tous ce qui mon aider je donne la solution pour ceux qui cherche:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
            TextBox1.Text = Replace(TextBox1.Text, ComboBox4.Text & vbCrLf, "")
            Dim monStreamWriter As StreamWriter = New StreamWriter(My.Application.Info.DirectoryPath & "\bdd\liste\" + ComboBox1.Text + "\" + ComboBox2.Text + "\" + ComboBox3.Text + ".txt")
            Try
                monStreamWriter.Write(TextBox1.Text)
                monStreamWriter.Close()
     
            Catch ex As Exception
                MsgBox("BDD introuvable")
            End Try
    de metre monStreamWriter.Writeline rajoute un entrer a la fin, faute d’inattention ... dsl et merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [MySQL] Gestion d'un fichier txt
    Par claude77 dans le forum PHP & Base de données
    Réponses: 23
    Dernier message: 14/03/2012, 09h18
  2. Réponses: 20
    Dernier message: 17/07/2009, 10h17
  3. Problème Gestion Liste et fichiers txt
    Par Freud44 dans le forum Général Java
    Réponses: 2
    Dernier message: 26/08/2008, 21h10
  4. Gestion de fichiers.txt en Transact-SQL
    Par ShaGaTsoin dans le forum MS SQL Server
    Réponses: 12
    Dernier message: 16/09/2007, 21h29
  5. Traitement fichier .txt (gestion des '','')
    Par clemasson dans le forum Access
    Réponses: 1
    Dernier message: 11/12/2006, 15h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo