Combine path & Variable...Résolu

Question

Bonjour, j'ai fais le tour des internets et je n'ai trouvé aucune solution à mon problème et j'espere qu'un d'entre vous m'aidera à le résoudre car cela fait maintenant 1 semaine que je bloque...

Voici mon problème

Je selectionne un text dans la listbox make_box pour ensuite utiliser le text choisi comme variable dans un repertoire pour ouvrir le document text contenant justement ce text-ci (make_box.SelectedItem) .... Voici mon code

Dim streamer As IO.StreamReaderDim textfile As StringPrivate Sub model_box_Click(sender As Object, e As EventArgs) Handles model_box.Click        model_box.Items.Clear()        Dim modeltxt As String = make_box.SelectedItem        Dim debut As String = Directory.GetCurrentDirectory        Dim milieu As String = "\"        Dim fin As String = ".txt"        If make_box.Text = Nothing Then            model_box.BackColor = Color.Red            model_box.ForeColor = Color.Yellow        Else            model_box.BackColor = Color.White            model_box.ForeColor = Color.Black            textfile = Path.Combine(debut, milieu, modeltxt, fin)            streamer = IO.File.OpenText(textfile)            Dim mystring() As String = streamer.ReadToEnd.Split(vbNewLine)            model_box.Items.AddRange(mystring)        End If    End Sub

puis j'obtien une erreur à cette ligne

textfile = Path.Combine(debut, milieu, modeltxt, fin)

Exception: Thrown: "Caractères non conformes dans le chemin d'accès." (system.argumentException)
A System.ArgumentException was thrown: "Caractères non conformes dans le chemin d'Accès."
Thread: Main Thread [972]

et aussi

A first chance exception of type 'System.ArgumentException' occurred in mscorlib.dll

quelqu'un pourrait-il m'éclairer sur le problème car j'ai utiliser plusieurs méthode pour inclure ma variable dans un filepath mais rien a faire toujours la même erreur.......

Merci...

NHenry · Answer

A la place de :
textfile = Path.Combine(debut, milieu, modeltxt, fin) 
Essayes :
textfile = Path.Combine(debut,  modeltxt+ fin)

Et regardes aussi par un espion le contenu de ta variable.

Penses aussi à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (Onglet références des propriétés du projet).
vbNewLine -> Environment.NewLine
 
On peut discuter avec celui qui sait.
On peut discuter avec celui qui ne sait pas.
On ne peut pas discuter avec celui qui croit savoir.
En VB.NET pensez à activer "Option Explicit" et "Option Strict"

Hellien · Answer

Sa na rien changer.... Same old story, puis si je desactive Microsoft.visualbasic je ne peux plus utiliser le powerpack, puis ma variable fin donne ".txt" puis là variable début ne contient pas de backslash à la fin du répertoire... Le chemin par contre contien des espaces est ce ue sa pourrait influencer?

Hellien · Answer

Dim streamer As IO.StreamReaderDim textfile As StringPrivate Sub year_box_Click(sender As Object, e As EventArgs) Handles year_box.Click        year_box.Items.Clear()        For i = 1970 To 2014            year_box.Items.Add(i)        Next    End Sub    Private Sub make_box_Click(sender As Object, e As EventArgs) Handles make_box.Click        make_box.Items.Clear()        textfile = "car.txt"        streamer = IO.File.OpenText(textfile)        Dim mystring() As String = streamer.ReadToEnd.Split(vbNewLine)        make_box.Items.AddRange(mystring)    End Sub    Private Sub model_box_Click(sender As Object, e As EventArgs) Handles model_box.Click        model_box.Items.Clear()        Dim modeltxt As String = make_box.SelectedItem        Dim debut As String = Directory.GetCurrentDirectory        Dim milieu As String = "\"        Dim fin As String = ".txt"        If make_box.Text = Nothing Then            model_box.BackColor = Color.Red            model_box.ForeColor = Color.Yellow        Else            model_box.BackColor = Color.White            model_box.ForeColor = Color.Black            textfile = Path.Combine(debut, modeltxt + fin)            streamer = IO.File.OpenText(textfile)            Dim mystring() As String = streamer.ReadToEnd.Split(Environment.NewLine)            model_box.Items.AddRange(mystring)        End If    End Sub

Donc

le contenu de car.txt
Acura
Alfa Romeo
AMC
Audi
Aston Martin
Bentley
BMW
Buick
Cadillac
Chevrolet
Chrysler
etc...

debut = "C:\Users\Carl\Google Drive\Facturation STE\Facturation STE\WindowsApplication1\bin\Debug"

milieu = "\"

modeltxt = " Cadillac"

fin = ".txt"

bon... je crois que j'ai trouvé le problème mais pourquoi la variable ajoute elle une espace au tout debut ??

Hellien · Answer

Bon Problème résolu ! J'ai utilisé modeltxt = modeltxt.Trim()

puis j'ai utilisé textfile = Path.Combine(debut, modeltxt + fin)

comme tu m'as indiqué NHenry Merci !

Combine path & Variable...

4 réponses

Votre réponse

Discussions similaires