Ouvrir un fichier XML avec un programme réalisé en VB.NET

Version imprimable

18/05/2015, 17h12
Jeano81

Ouvrir un fichier XML avec un programme réalisé en VB.NET
Bonjour à tous.

J'aimerais ouvrir un/des fichier(s) XML avec une extension autre que *.XML (je ne nais pas encore quelle extension mais ce n'est pas le problème).

En fait j'aimerais que ce(s) fichier(s) s'ouvre(nt) directement dans mon logiciel lors d'un double clic, à l'image d'un *.doc qu'on ouvrirait avec word prêt à être édité.

J'ai trouvé ce bout de code mais ce n'est pas la bonne approche à première vue... :
Code:

1 2 3 4 If Environment.CurrentDirectory.Count >= 2 Then Nom_Client = Ouverture_Fiche_Client(Environment.CurrentDirectory) LBL_Nom_Entreprise.Text = Nom_Client.Société.Nom End If
Ce code est placé dans premièrefenêtre_load.

Pour afficher le fichier dans une TextBox multiline :
Code:

1 2 3 4 5 string ThePath="C:\\Dir1\\File1.xml" ; string[] TheLines = System.IO.File.ReadAllLines(ThePath); string TheText="" ; foreach (string TheLine in TheLines) TheText+=(TheText==""?"":Environment.NewLine)+TheLine ; MyTextBox.Text=TheText ;
Pour exploiter le contenu XML, utiliser la classe System.Xml.XmlDocument.
voir par exemple : http://csharp.net-tutorials.com/xml/...document-class

Bonjour et merci de votre réponse.

Mais ce code est déjà fait pour ma part :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Function Ouverture_Fiche_Client(ByVal filename As String) As Client 'Créé la fonction lecture du fichier xml'
 
        Try 'Essaye le code suivant :'
            Using objStreamReader As New StreamReader(filename) 'Utilise le flux de données du fichier "filename"'
                Try 'Essaye le code suivant : '
                    Return DirectCast((New XmlSerializer(GetType(Client))).Deserialize(objStreamReader), Client) 'Sérialise le fichier xml'
                Catch ex As Exception 'Si l'essais échoue'
                    Erreur = True 'Met le booléen en valeur "vrai"' 
                    MessageBox.Show("Echec de la lecture." & ex.Message) 'Affiche un message d'erreur'
                End Try 'Fin de l'essais du code'
            End Using 'Coupe toutes ressources utilisées pour créer le flux.'
        Catch ex As Exception 'Si le fichier n'existe pas'
            Erreur = True 'Met le booléen en valeur "vrai"'
            MessageBox.Show("Fichier inaccessible." & ex.Message) 'Affiche un message contenant l'erreur.'
        End Try 'Fin de l'essais du code'
        Return Nothing
 
    End Function

Ce que je voudrais c'est récupérer le fichier qu'on exécute, mais pas par le logiciel, quand on ouvre un fichier txt on double clique dessus et il nous ouvre le bloc note prêt à éditer le fichier.

C'est ce que je voudrais faire: ouvrir mon fichier XML et qu'il m'exécute mon programme.

Donc récupérer un code du genre :

Code:

1
2
3
4
If Environment.CurrentDirectory.Count >= 2 Then
      Nom_Client = Ouverture_Fiche_Client(Environment.CurrentDirectory)
      LBL_Nom_Entreprise.Text = Nom_Client.Société.Nom
End If

en remplaçant CurrentDirectory par 'MonFichierXML' par exemple.

J'espère que c'est un peut plus clair :oops:

19/05/2015, 08h54
mactwist69

Pour orienter tes recherches, ta demande est plus :

-> "associer une extension" à un programme.
(Pour cela il faut aller écrire ce qu'il faut dans la base de registre ou le faire toi même via Windows (Ouvrir avec etc...))

-> Après tu cherches à lancer le programme avec le chemin du fichier en paramètre, ça se fait aussi.

Avec ces termes, tu trouveras facilement de infos.

Merci pour vos réponses.

Pour ce qui est d'associer une extension au logiciel c'est pas le problème :) c'est au niveau de l'exécution, pour récupérer le fichier qu'on veux ouvrir (sur lequel on à préalablement double-cliqué donc).

J'ai trouvé ce code que je me suis adapté :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Lecture_Fiche_Client_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Try 'on gère les erreurs
            If My.Computer.Registry.ClassesRoot.OpenSubKey(".cli") Is Nothing Then
 
                'si l'extension n'est pas encore associée, on l'associe.
                associerExtension()
 
            End If
 
        Catch ex As Exception
            MsgBox("Oups, erreur") 'message très descriptif..
        End Try
 
        'on obtient les arguments, à savoir le nom du fichier avec lequel le prog s'est ouvert
        For Each argument As String In Environment.GetCommandLineArgs()
 
            If argument.Contains("cli") Then 'si il contient notre extension
 
                'on affiche le chemin du fichier test1
                Nom_Client = Ouverture_Fiche_Client(argument)
 
            End If
        Next
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
    Sub associerExtension()
 
        Dim extension As String = ".cli"
        Dim nomSansPoint As String = extension.Substring(1, extension.Length - 1) 'on aura uniquement cli
        Dim cheminFinalProgramme As String = "C:\Users\Patrick\Documents\Visual Studio 2013\Projects\Jestcli\Jestcli\bin\Debug"
 
        My.Computer.Registry.ClassesRoot.CreateSubKey(extension).SetValue("", nomSansPoint, Microsoft.Win32.RegistryValueKind.String)
        My.Computer.Registry.ClassesRoot.CreateSubKey(nomSansPoint & "\shell\open\command").SetValue _
            ("", cheminFinalProgramme & " ""%l"" ", Microsoft.Win32.RegistryValueKind.String)
 
    End Sub

Mais il ne fonctionne pas !

Je continue de chercher.

21/05/2015, 14h20
marcoxavier

Arrêtez moi si je dis une gros bêtise mais, si tu fais clique droit sur ton fichier XML, ouvrir avec et que de la tu selectionne ton programme en .exe, après quand tu va double cliquer sur le fichier XML, cela va ouvrir ton programme non? :scarymov:

Cdt,
21/05/2015, 17h22
Jeano81

oui oui c'est ce que je dis ce n'est pas mon souci ^^ ce que je veux c'est l'ouvrir après :

genre j'ai un fichier xml avec dedans

Code:

<Nom_Label1 texte="hello word"/>

je veux quand j'ouvre ce fichier de par ce fichier même (donc un double clic sur ce fichier) qu'il m'affiche dans mon label1 présent dans la form de mon programme, le texte "hello word".

Comme si j'ouvrais mon fichier de par le programme en fait !

et ça sa fonctionne pas et je ne sais pas comment faire.
21/05/2015, 17h28
marcoxavier

Je suis pas certain de comprendre, en gros tu veux que si dans ton fichier XML il à un label1 avec comme text hello world, il remplace ton label1 dans ton programme VB par "Hello world"?

Cdt,

Déjà peut-être faire trouver dans ton fichier XML le mot clé label1, par exemple :
Code:

1 2 3 4 5 6 7 Dim lines() As String lines = System.IO.File.ReadAllLines("chemin du fichier") Dim value As String For Each line As String In lines If line.Contains("<Nom_Label1 texte=") Then ... End If
Et une fois le mot clé trouvé, tu rempalce le label1 de form par la suite de "<Nom_Label1 texte=...", je me suis pas penché sur cela encore!

Cdt,

21/05/2015, 17h41
Jeano81

En gros dans ma fenêtre principale j'ai un menu avec Fichier->Nouveau Client,Ouvrir Fiche Client,Enregistrer Client etc etc.

J'ai ma fonction ouvrir client qui m’appelle ma procédure de lecture du fichier sélectionné et qui m'affiche les données dans ma fenêtre principale.

Ce que je veux, c'est que lorsque je double clique sur une fiche client SANS avoir ouvert mon logiciel (donc sans passer par la fonction que j'ai dans mon Fichier->Ouvrir Fiche Client, mais que je double clique sur mon fichier qui se trouve dans un dossier C:/Dossier1/dossier2/etc... j'en sais rien de sa position mais lorsque je double clique dessus, je veux que ça m'ouvre mon logiciel (donc ça c'est bon clic droit ouvrir avec programme par défaut) MAIS aussi que ça me fasse comme si je faisait ouvrir fiche client (donc il me faut récuperer l'adresse du fichier lancé et la rentrer dans les paramètres de ma fonction ouvrir fiche client). Et c'est là que je ne trouve pas le code adéquat.
21/05/2015, 17h46
marcoxavier

Merci de ton explication, je viens de comprendre ce que tu voulais, seulement cela me parait assez compliquer. En gros il fraudais rajouter un code qui détecte lorsque le programme est ouvert par un autre fichier. Je fais quelques recherches et tests et je reviens vers toi !

Cdt,

Merci mais mon code était bon en fait c'est juste un point qu'il me manquais a mon

Code:

1
2
3
4
5
6
7
8
9
For Each argument As String In Environment.GetCommandLineArgs()
 
            If argument.Contains(".cli") Then 'si il contient notre extension
 
                'on affiche le chemin du fichier test1
                Nom_Client = Ouverture_Fiche_Client(argument)
 
            End If
        Next

Merci à tous