Discussion :

[trucss]

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:

[Thumb down]

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 !

[trucss]

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

[Thumb down]

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"))