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 :

Extraire données fichier TXT


Sujet :

VB.NET

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    décembre 2021
    Messages
    90
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : décembre 2021
    Messages : 90
    Points : 26
    Points
    26
    Par défaut Extraire données fichier TXT
    Bonjour,
    J'ai un fichier info.TXT de la forme

    Chemin du fichier fruit :C:\test.TXT
    Chemin du fichier légumes :C:test\\test1.TXT
    Chemin du fichier voiture :C:\test2.TXT

    Je voudrais charger textbox1 avec C:\test.TXT
    textbox2 avec C:test\\test1.TXT
    textbox3 avec C:\test2.TXT





    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
       Do
                I = I + 1
                ligne = monStreamReader.ReadLine
     
                If I = 1 Then
                    cheminrep = ligne.Split(":")(2)
                    Form4.cheminfichier.Text = cheminrep
                End If
                If I = 2 Then
                    cheminrep = ligne.Split(":")(2)
                    Form4.cheminreappro.Text = cheminrep
                End If
                If I = 3 Then
                    cheminrep = ligne.Split(":")(2)
                    Form4.cheminimage.Text = cheminrep
                End If
     
                If I > 3 Then Exit Do
            Loop Until ligne Is Nothing
    il me retourne :
    textbox1 avec \test.TXT
    textbox2 avec \test\\test1.TXT
    textbox3 avec \test2.TXT

    il manque les C:

  2. #2
    Membre expérimenté
    Homme Profil pro
    Retraité
    Inscrit en
    juin 2019
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : juin 2019
    Messages : 877
    Points : 1 342
    Points
    1 342
    Par défaut
    Bonjour,
    De toute évidence si tu poste c'est que tu n'arrives pas à faire quelque chose, hors tu nous dis ce que tu arrives à faire mais pas ce que tu veux faire !

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    décembre 2021
    Messages
    90
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : décembre 2021
    Messages : 90
    Points : 26
    Points
    26
    Par défaut
    Bonjour,

    ben si je l'ai noté

    J'arrive pas a charger textbox1 avec C:\test.TXT
    textbox2 avec C:test\\test1.TXT
    textbox3 avec C:\test2.TXT

  4. #4
    Membre expérimenté
    Homme Profil pro
    Retraité
    Inscrit en
    juin 2019
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : juin 2019
    Messages : 877
    Points : 1 342
    Points
    1 342
    Par défaut
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     Function Reperoire(ByVal txt) As String
            Dim pose As Long = txt.IndexOf(":") + 1
            txt = txt.Substring(pose, txt.Length - pose).Replace(":\", ":").Replace(":", ":\").Replace("\\", "\")
            If txt.Substring(0, 1) = "\" Then txt = "\" + txt
            Return txt
        End Function
    et dan ton code tu l'appel comme ça!
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     MessageBox.Show(Reperoire("Chemin du fichier légumes :C:test\\test1.TXT"))

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

Discussions similaires

  1. Extraire données fichier txt et tracer graphe
    Par inf_usr dans le forum Calcul scientifique
    Réponses: 5
    Dernier message: 22/08/2013, 08h53
  2. [VBA Excel] Extraction de données fichier txt vers Excel et mise en forme
    Par newcodeur dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 23/05/2008, 11h45
  3. Extraire données fichier txt
    Par thib1984 dans le forum MATLAB
    Réponses: 6
    Dernier message: 18/02/2008, 13h39
  4. extraire donné fichier txt afficher dans xml
    Par jasminrose dans le forum Format d'échange (XML, JSON...)
    Réponses: 1
    Dernier message: 01/04/2007, 12h14
  5. Extraire données fichier txt
    Par philippef dans le forum Langage
    Réponses: 1
    Dernier message: 10/10/2005, 17h12

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