Lire un fichier XML

Bonsoir,
J'ai commencé un nouveau logiciel gérant les fichiers GPX (c'est simplement des XML). J'ai fait un OpenfileWindow pour que l'utilisateur choisisse le fichier GPX, puis ensuite enregistrer le contenu (XML) dans un fichier ".xml".
J'aimerais maintenant pouvoir rentrer dans un tableau chacun des noeuds parents (un noeud parent/ligne) et dans ces lignes un noeud enfant par cellule.
Comment faire, si c'est possible , svp ?

Merci de votre aide

Tu as vus les plugins de Xavier ?

Non, j'avais pas pensé aux plugins :S
Je regarde si ça me convient
Mercid e ta réponse

Ben il a fait un truc spécial pour ça : Clic là

Salut
Là ce qu'il veut c'est placer dans un tableau les différents noeuds et enfants d'un fichier XML, je pense pas que mes plugin lui seront d'une grande utilité x)

Xavier

Ah bon... au moins j'aurai essayer...

Au moins mes plugins servent j'suis content

Tant pis, merci quand même

Et pas mal ton nouveau Avatar !
C'est toi qui l'a fait ?

J'ai pris une image sur Internet mais c'est moi qui ai fait la transparence

Ah OK pas mal !

Si c'est toi qui créer le xml, tu peux t'arranger pour créer un premier noeud qui contient le nombre de noeud total, et le nom de tes autre noeud sont sous forme "MonNoeud1" "MonNoeud2"
Ensuite tu récupère le nombre total de noeud contenu dans le 1er donc. Tu créer une boucle limité de 0 jusqu'au nombre total de noeud. Dedans tu fait s'incrémenter une variable de 1 à chaque fois, et tu lis "MonNoeud + variable". Comme la variable s'incrémente de 1 à chaque fois, tu lira MonNoeud1, puis MonNoeud2 etc...
Dans cette même boucle, tu fais en sorte que le nom du noeud s'affiche dans un tableau.

C'est peut être pas tout à fait correct mais c'est une idée, en tout cas il faudra utiliser une boucle. Et bien sur le plugin XML

Merci, je vais tester

Il y a un problème avec le plugin XML :


La fenêtre demande une variable texte avec le menu déroulant VIDE, même en "convertissant une valeur" ou en passant par VB.net

Code:

Dim codegc As String

Qui peut m'aider svp ?

Le menu déroulant est vide ? Tu as bien une variable de type texte déclaré dans le gestionnaire de variable ?

Oui, mais on peut pas la définir directement en texte ici, sans passer par VB.net ??!

up svp

Effectivement aucune variable chez moi ne s'affiche pas non plus...
Peut être que l'admin pourra plus t'éclairer c'est peut être un problème au niveau du plugin qui ne charge pas les variable... Mais honnêtement je ne vois pas :/

re ,

Ce plugin , comme celui du FTP ont été crée pour SZ 1.0 qui lui nous demmander de choisir le type de la variable .

J'ai fait plusieures demmandes afin que ces plugin sois rééditer pour SZ 2011
car le fait de ne pas pouvoir modifier l'action ..... c'est assez ennuilleux !
ça me rappelle le bon temps quand j'ai débuté avec SZ 1.0 .

PS : Désolé du retard mais ma connexion web viens juste d'être débridée ....

Cordialement ,
Le réparateur de PC

Bien vu !
En tout cas, le code utilisé pour ce plugin pour lire un attribut est celui ci :

Variable_Texte = Nom_Du_Lecteur.GetAttribute(Nom_De_L'attribut)

A toi de l'adapter dans une commande .Net

Bonsoir
ça fonctionne à moitié : toujours des erreurs de générations ou ceci :
"la référence d'objet n'est pas définie à une instance d'un objet"

Pourriez vous m'aider svp ?
Voici l'exe, une capture d'écran des fonctions et les codes

Code:

' NOTE :
' TOUTES MODIFICATIONS APPORTEES A CE FICHIER CODE NE SERONT PAS PRISES EN COMPTE LORS DE LA REGENERATION DU PROJET.

'------------------------------------------------------------------------------
' <auto-generated>
'    Ce code a été généré par un outil.
'    Version du runtime :2.0.50727.4959
'
'    Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
'    le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Imports System.ComponentModel

Imports System.Windows.Forms

<Assembly: Reflection.AssemblyTitle("Gpxcaching")>
<Assembly: Reflection.AssemblyDescription("")>
<Assembly: Reflection.AssemblyCompany("")>
<Assembly: Reflection.AssemblyProduct("")>
<Assembly: Reflection.AssemblyCopyright("Copyright © 2011")>
<Assembly: Reflection.AssemblyTrademark("")>
<Assembly: Reflection.AssemblyVersion("1.0.0.0")>
<Assembly: Reflection.AssemblyFileVersion("1.0.0.0")>
<Assembly: Runtime.InteropServices.ComVisible(True)>


'Ce Namespace a été généré par SoftwareZator 2011 Edition Professionnel (2.0.0.0)
Namespace Gpxcaching
   
    Public Class Dialog1_f
        Inherits System.Windows.Forms.Form
       
        Public WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
       
        Public WithEvents OK_Button As System.Windows.Forms.Button
       
        Public WithEvents Cancel_Button As System.Windows.Forms.Button
       
        Public WithEvents webBrowser1 As System.Windows.Forms.WebBrowser
       
        Public WithEvents button1 As System.Windows.Forms.Button
       
        Public WithEvents label1 As System.Windows.Forms.Label
       
        Public WithEvents components As System.ComponentModel.IContainer
       
        Public Sub New()
            MyBase.New
            Me.InitializeComponent
        End Sub
       
        Private Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Dialog1_f))
            Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
            Me.OK_Button = New System.Windows.Forms.Button
            Me.Cancel_Button = New System.Windows.Forms.Button
            Me.webBrowser1 = New System.Windows.Forms.WebBrowser
            Me.button1 = New System.Windows.Forms.Button
            Me.label1 = New System.Windows.Forms.Label
            Me.TableLayoutPanel1.SuspendLayout
            Me.SuspendLayout
            '
            'TableLayoutPanel1
            '
            Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
            Me.TableLayoutPanel1.ColumnCount = 2
            Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50!))
            Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50!))
            Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
            Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
            Me.TableLayoutPanel1.Location = New System.Drawing.Point(277, 274)
            Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
            Me.TableLayoutPanel1.RowCount = 1
            Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50!))
            Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
            Me.TableLayoutPanel1.TabIndex = 1
            '
            'OK_Button
            '
            Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
            Me.OK_Button.Location = New System.Drawing.Point(3, 3)
            Me.OK_Button.Name = "OK_Button"
            Me.OK_Button.Size = New System.Drawing.Size(67, 23)
            Me.OK_Button.TabIndex = 0
            Me.OK_Button.Text = "OK"
            '
            'Cancel_Button
            '
            Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
            Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
            Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
            Me.Cancel_Button.Name = "Cancel_Button"
            Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
            Me.Cancel_Button.TabIndex = 1
            Me.Cancel_Button.Text = "Annuler"
            '
            'webBrowser1
            '
            Me.webBrowser1.Location = New System.Drawing.Point(9, 12)
            Me.webBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
            Me.webBrowser1.Name = "webBrowser1"
            Me.webBrowser1.Size = New System.Drawing.Size(414, 179)
            Me.webBrowser1.TabIndex = 2
            '
            'button1
            '
            Me.button1.Location = New System.Drawing.Point(9, 198)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(411, 23)
            Me.button1.TabIndex = 3
            Me.button1.Text = "Rechercher un fichier GPX"
            Me.button1.UseVisualStyleBackColor = true
            '
            'label1
            '
            Me.label1.Cursor = System.Windows.Forms.Cursors.Hand
            Me.label1.Location = New System.Drawing.Point(9, 228)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(238, 75)
            Me.label1.TabIndex = 4
            Me.label1.Text = ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                                  Déplacer ici"
            '
            'Dialog1
            '
            Me.AcceptButton = Me.OK_Button
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.CancelButton = Me.Cancel_Button
            Me.ClientSize = New System.Drawing.Size(435, 315)
            Me.Controls.Add(Me.label1)
            Me.Controls.Add(Me.button1)
            Me.Controls.Add(Me.webBrowser1)
            Me.Controls.Add(Me.TableLayoutPanel1)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.MaximizeBox = false
            Me.MinimizeBox = false
            Me.Name = "Dialog1"
            Me.ShowIcon = false
            Me.ShowInTaskbar = false
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
            Me.Text = "Importer..."
            Me.TableLayoutPanel1.ResumeLayout(false)
            Me.ResumeLayout(false)
        End Sub
    End Class
   
    Public Class WindowsForm1_f
        Inherits System.Windows.Forms.Form
       
        Public WithEvents button1 As System.Windows.Forms.Button
       
        Public WithEvents button2 As System.Windows.Forms.Button
       
        Public WithEvents button3 As System.Windows.Forms.Button
       
        Public WithEvents toolStrip1 As System.Windows.Forms.ToolStrip
       
        Public WithEvents groupBox1 As System.Windows.Forms.GroupBox
       
        Public WithEvents groupBox2 As System.Windows.Forms.GroupBox
       
        Public WithEvents toolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton
       
        Public WithEvents nouveauToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents gPXToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents lOCToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents ouvrirToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents importerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents gPXToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents lOCToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents exporterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents enregistrerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents enregistrerSousToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents quitterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents toolStripDropDownButton2 As System.Windows.Forms.ToolStripDropDownButton
       
        Public WithEvents couperToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents copierToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents collerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
       
        Public WithEvents toolStripButton1 As System.Windows.Forms.ToolStripButton
       
        Public WithEvents listView1 As System.Windows.Forms.ListView
       
        Public WithEvents Code_GC As System.Windows.Forms.ColumnHeader
       
        Public WithEvents TB As System.Windows.Forms.ColumnHeader
       
        Public WithEvents Typec As System.Windows.Forms.ColumnHeader
       
        Public WithEvents cachename As System.Windows.Forms.ColumnHeader
       
        Public WithEvents Kilomètres As System.Windows.Forms.ColumnHeader
       
        Public WithEvents pointsc As System.Windows.Forms.ColumnHeader
       
        Public WithEvents Placeur As System.Windows.Forms.ColumnHeader
       
        Public WithEvents placé As System.Windows.Forms.ColumnHeader
       
        Public WithEvents chargé As System.Windows.Forms.ColumnHeader
       
        Public WithEvents trouvé As System.Windows.Forms.ColumnHeader
       
        Public WithEvents container As System.Windows.Forms.ColumnHeader
       
        Public WithEvents difficult As System.Windows.Forms.ColumnHeader
       
        Public WithEvents terrain As System.Windows.Forms.ColumnHeader
       
        Public WithEvents logs As System.Windows.Forms.ColumnHeader
       
        Public WithEvents openFileDialog1 As System.Windows.Forms.OpenFileDialog
       
        Public WithEvents choice As System.Windows.Forms.ColumnHeader
       
        Public WithEvents openFileDialog2 As System.Windows.Forms.OpenFileDialog
       
        Public WithEvents components As System.ComponentModel.IContainer
       
        Public Sub New()
            MyBase.New
            Me.InitializeComponent
        End Sub
       
        Private Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm1_f))
            Me.button1 = New System.Windows.Forms.Button
            Me.button2 = New System.Windows.Forms.Button
            Me.button3 = New System.Windows.Forms.Button
            Me.toolStrip1 = New System.Windows.Forms.ToolStrip
            Me.toolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton
            Me.nouveauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.gPXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.lOCToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.ouvrirToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.importerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.gPXToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem
            Me.lOCToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem
            Me.exporterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.enregistrerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.enregistrerSousToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.quitterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.toolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton
            Me.couperToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.copierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.collerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
            Me.toolStripButton1 = New System.Windows.Forms.ToolStripButton
            Me.groupBox1 = New System.Windows.Forms.GroupBox
            Me.groupBox2 = New System.Windows.Forms.GroupBox
            Me.listView1 = New System.Windows.Forms.ListView
            Me.choice = New System.Windows.Forms.ColumnHeader
            Me.Code_GC = New System.Windows.Forms.ColumnHeader
            Me.TB = New System.Windows.Forms.ColumnHeader
            Me.Typec = New System.Windows.Forms.ColumnHeader
            Me.cachename = New System.Windows.Forms.ColumnHeader
            Me.Kilomètres = New System.Windows.Forms.ColumnHeader
            Me.pointsc = New System.Windows.Forms.ColumnHeader
            Me.Placeur = New System.Windows.Forms.ColumnHeader
            Me.placé = New System.Windows.Forms.ColumnHeader
            Me.chargé = New System.Windows.Forms.ColumnHeader
            Me.trouvé = New System.Windows.Forms.ColumnHeader
            Me.container = New System.Windows.Forms.ColumnHeader
            Me.difficult = New System.Windows.Forms.ColumnHeader
            Me.terrain = New System.Windows.Forms.ColumnHeader
            Me.logs = New System.Windows.Forms.ColumnHeader
            Me.openFileDialog1 = New System.Windows.Forms.OpenFileDialog
            Me.openFileDialog2 = New System.Windows.Forms.OpenFileDialog
            Me.toolStrip1.SuspendLayout
            Me.groupBox1.SuspendLayout
            Me.groupBox2.SuspendLayout
            Me.SuspendLayout
            '
            'button1
            '
            Me.button1.Location = New System.Drawing.Point(6, 21)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(89, 23)
            Me.button1.TabIndex = 0
            Me.button1.Text = "Importer GPX"
            Me.button1.UseVisualStyleBackColor = true
            '
            'button2
            '
            Me.button2.Location = New System.Drawing.Point(6, 21)
            Me.button2.Name = "button2"
            Me.button2.Size = New System.Drawing.Size(118, 23)
            Me.button2.TabIndex = 1
            Me.button2.Text = "Exporter vers GPS"
            Me.button2.UseVisualStyleBackColor = true
            '
            'button3
            '
            Me.button3.Location = New System.Drawing.Point(101, 21)
            Me.button3.Name = "button3"
            Me.button3.Size = New System.Drawing.Size(86, 23)
            Me.button3.TabIndex = 2
            Me.button3.Text = "Importer LOC"
            Me.button3.UseVisualStyleBackColor = true
            '
            'toolStrip1
            '
            Me.toolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStripDropDownButton1, Me.toolStripDropDownButton2, Me.toolStripButton1})
            Me.toolStrip1.Location = New System.Drawing.Point(0, 0)
            Me.toolStrip1.Name = "toolStrip1"
            Me.toolStrip1.Size = New System.Drawing.Size(1440, 25)
            Me.toolStrip1.TabIndex = 4
            Me.toolStrip1.Text = "toolStrip1"
            '
            'toolStripDropDownButton1
            '
            Me.toolStripDropDownButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
            Me.toolStripDropDownButton1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.nouveauToolStripMenuItem, Me.ouvrirToolStripMenuItem, Me.importerToolStripMenuItem, Me.exporterToolStripMenuItem, Me.enregistrerToolStripMenuItem, Me.enregistrerSousToolStripMenuItem, Me.quitterToolStripMenuItem})
            Me.toolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta
            Me.toolStripDropDownButton1.Name = "toolStripDropDownButton1"
            Me.toolStripDropDownButton1.Size = New System.Drawing.Size(55, 22)
            Me.toolStripDropDownButton1.Text = "Fichier"
            Me.toolStripDropDownButton1.ToolTipText = "Fichier"
            '
            'nouveauToolStripMenuItem
            '
            Me.nouveauToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gPXToolStripMenuItem, Me.lOCToolStripMenuItem})
            Me.nouveauToolStripMenuItem.Name = "nouveauToolStripMenuItem"
            Me.nouveauToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
            Me.nouveauToolStripMenuItem.Text = "Nouveau..."
            '
            'gPXToolStripMenuItem
            '
            Me.gPXToolStripMenuItem.Name = "gPXToolStripMenuItem"
            Me.gPXToolStripMenuItem.Size = New System.Drawing.Size(97, 22)
            Me.gPXToolStripMenuItem.Text = "GPX"
            '
            'lOCToolStripMenuItem
            '
            Me.lOCToolStripMenuItem.Name = "lOCToolStripMenuItem"
            Me.lOCToolStripMenuItem.Size = New System.Drawing.Size(97, 22)
            Me.lOCToolStripMenuItem.Text = "LOC"
            '
            'ouvrirToolStripMenuItem
            '
            Me.ouvrirToolStripMenuItem.Name = "ouvrirToolStripMenuItem"
            Me.ouvrirToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
            Me.ouvrirToolStripMenuItem.Text = "Ouvrir..."
            '
            'importerToolStripMenuItem
            '
            Me.importerToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gPXToolStripMenuItem1, Me.lOCToolStripMenuItem1})
            Me.importerToolStripMenuItem.Name = "importerToolStripMenuItem"
            Me.importerToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
            Me.importerToolStripMenuItem.Text = "Importer"
            '
            'gPXToolStripMenuItem1
            '
            Me.gPXToolStripMenuItem1.Name = "gPXToolStripMenuItem1"
            Me.gPXToolStripMenuItem1.Size = New System.Drawing.Size(97, 22)
            Me.gPXToolStripMenuItem1.Text = "GPX"
            '
            'lOCToolStripMenuItem1
            '
            Me.lOCToolStripMenuItem1.Name = "lOCToolStripMenuItem1"
            Me.lOCToolStripMenuItem1.Size = New System.Drawing.Size(97, 22)
            Me.lOCToolStripMenuItem1.Text = "LOC"
            '
            'exporterToolStripMenuItem
            '
            Me.exporterToolStripMenuItem.Name = "exporterToolStripMenuItem"
            Me.exporterToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
            Me.exporterToolStripMenuItem.Text = "Exporter GPS"
            '
            'enregistrerToolStripMenuItem
            '
            Me.enregistrerToolStripMenuItem.Name = "enregistrerToolStripMenuItem"
            Me.enregistrerToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
            Me.enregistrerToolStripMenuItem.Text = "Enregistrer"
            '
            'enregistrerSousToolStripMenuItem
            '
            Me.enregistrerSousToolStripMenuItem.Name = "enregistrerSousToolStripMenuItem"
            Me.enregistrerSousToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
            Me.enregistrerSousToolStripMenuItem.Text = "Enregistrer sous..."
            '
            'quitterToolStripMenuItem
            '
            Me.quitterToolStripMenuItem.Name = "quitterToolStripMenuItem"
            Me.quitterToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
            Me.quitterToolStripMenuItem.Text = "Quitter"
            '
            'toolStripDropDownButton2
            '
            Me.toolStripDropDownButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
            Me.toolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.couperToolStripMenuItem, Me.copierToolStripMenuItem, Me.collerToolStripMenuItem})
            Me.toolStripDropDownButton2.ImageTransparentColor = System.Drawing.Color.Magenta
            Me.toolStripDropDownButton2.Name = "toolStripDropDownButton2"
            Me.toolStripDropDownButton2.Size = New System.Drawing.Size(57, 22)
            Me.toolStripDropDownButton2.Text = "Edition"
            Me.toolStripDropDownButton2.ToolTipText = "Edition"
            '
            'couperToolStripMenuItem
            '
            Me.couperToolStripMenuItem.Name = "couperToolStripMenuItem"
            Me.couperToolStripMenuItem.Size = New System.Drawing.Size(113, 22)
            Me.couperToolStripMenuItem.Text = "Couper"
            '
            'copierToolStripMenuItem
            '
            Me.copierToolStripMenuItem.Name = "copierToolStripMenuItem"
            Me.copierToolStripMenuItem.Size = New System.Drawing.Size(113, 22)
            Me.copierToolStripMenuItem.Text = "Copier"
            '
            'collerToolStripMenuItem
            '
            Me.collerToolStripMenuItem.Name = "collerToolStripMenuItem"
            Me.collerToolStripMenuItem.Size = New System.Drawing.Size(113, 22)
            Me.collerToolStripMenuItem.Text = "Coller"
            '
            'toolStripButton1
            '
            Me.toolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
            Me.toolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
            Me.toolStripButton1.Name = "toolStripButton1"
            Me.toolStripButton1.Size = New System.Drawing.Size(59, 22)
            Me.toolStripButton1.Text = "A propos"
            Me.toolStripButton1.ToolTipText = "A propos"
            '
            'groupBox1
            '
            Me.groupBox1.Controls.Add(Me.button2)
            Me.groupBox1.Location = New System.Drawing.Point(12, 28)
            Me.groupBox1.Name = "groupBox1"
            Me.groupBox1.Size = New System.Drawing.Size(135, 57)
            Me.groupBox1.TabIndex = 5
            Me.groupBox1.TabStop = false
            Me.groupBox1.Text = "Exporter"
            '
            'groupBox2
            '
            Me.groupBox2.Controls.Add(Me.button1)
            Me.groupBox2.Controls.Add(Me.button3)
            Me.groupBox2.Location = New System.Drawing.Point(153, 28)
            Me.groupBox2.Name = "groupBox2"
            Me.groupBox2.Size = New System.Drawing.Size(198, 57)
            Me.groupBox2.TabIndex = 6
            Me.groupBox2.TabStop = false
            Me.groupBox2.Text = "Importer"
            '
            'listView1
            '
            Me.listView1.CheckBoxes = true
            Me.listView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.choice, Me.Code_GC, Me.TB, Me.Typec, Me.cachename, Me.Kilomètres, Me.pointsc, Me.Placeur, Me.placé, Me.chargé, Me.trouvé, Me.container, Me.difficult, Me.terrain, Me.logs})
            Me.listView1.GridLines = true
            Me.listView1.Location = New System.Drawing.Point(12, 91)
            Me.listView1.Name = "listView1"
            Me.listView1.Size = New System.Drawing.Size(1416, 243)
            Me.listView1.TabIndex = 7
            Me.listView1.UseCompatibleStateImageBehavior = false
            Me.listView1.View = System.Windows.Forms.View.Details
            '
            'choice
            '
            Me.choice.Name = "choice"
            Me.choice.Text = ""
            Me.choice.Width = 20
            '
            'Code_GC
            '
            Me.Code_GC.Name = "Code_GC"
            Me.Code_GC.Tag = "" & codegc & ""
            Me.Code_GC.Text = "Code GC"
            '
            'TB
            '
            Me.TB.Name = "TB"
            Me.TB.Text = "Travel Bug"
            Me.TB.Width = 65
            '
            'Typec
            '
            Me.Typec.Name = "Typec"
            Me.Typec.Text = "Type"
            Me.Typec.Width = 36
            '
            'cachename
            '
            Me.cachename.Name = "cachename"
            Me.cachename.Text = "Nom de la cache"
            Me.cachename.Width = 465
            '
            'Kilomètres
            '
            Me.Kilomètres.Name = "Kilomètres"
            Me.Kilomètres.Text = "Kilomètres"
            Me.Kilomètres.Width = 68
            '
            'pointsc
            '
            Me.pointsc.Name = "pointsc"
            Me.pointsc.Text = "Brg"
            Me.pointsc.Width = 33
            '
            'Placeur
            '
            Me.Placeur.Name = "Placeur"
            Me.Placeur.Text = "Placeur"
            Me.Placeur.Width = 161
            '
            'placé
            '
            Me.placé.Name = "placé"
            Me.placé.Text = "Placé le..."
            '
            'chargé
            '
            Me.chargé.Name = "chargé"
            Me.chargé.Text = "Date du GPX/LOC"
            Me.chargé.Width = 103
            '
            'trouvé
            '
            Me.trouvé.Name = "trouvé"
            Me.trouvé.Text = "Dernière trouvaille..."
            Me.trouvé.Width = 117
            '
            'container
            '
            Me.container.Name = "container"
            Me.container.Text = "Type de boîte"
            Me.container.Width = 82
            '
            'difficult
            '
            Me.difficult.Name = "difficult"
            Me.difficult.Text = "Diff."
            Me.difficult.Width = 34
            '
            'terrain
            '
            Me.terrain.Name = "terrain"
            Me.terrain.Text = "Terr."
            Me.terrain.Width = 38
            '
            'logs
            '
            Me.logs.Name = "logs"
            Me.logs.Text = "4 derniers logs"
            Me.logs.Width = 88
            '
            'openFileDialog1
            '
            Me.openFileDialog1.FileName = "openFileDialog1"
            '
            'openFileDialog2
            '
            Me.openFileDialog2.FileName = "openFileDialog2"
            '
            'WindowsForm1
            '
            Me.ClientSize = New System.Drawing.Size(1440, 651)
            Me.Controls.Add(Me.listView1)
            Me.Controls.Add(Me.groupBox2)
            Me.Controls.Add(Me.groupBox1)
            Me.Controls.Add(Me.toolStrip1)
            Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
            Me.Name = "WindowsForm1"
            Me.Text = "GpxCaching 1.0"
            Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
            Me.toolStrip1.ResumeLayout(false)
            Me.toolStrip1.PerformLayout
            Me.groupBox1.ResumeLayout(false)
            Me.groupBox2.ResumeLayout(false)
            Me.ResumeLayout(false)
            Me.PerformLayout
        End Sub
       
        <System.STAThreadAttribute()>  _
        Public Shared Sub Main()
            System.Windows.Forms.Application.EnableVisualStyles()
If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5", "Version", Nothing) Is Nothing Then
System.Windows.Forms.MessageBox.Show("The .Net Framework 3.5 was not found. Gpxcaching can't start without it. Please install the .Net Framework 3.5 and try again.", "Gpxcaching", MessageBoxButtons.OK, MessageBoxIcon.Error)
System.Diagnostics.Process.Start("http://www.microsoft.com/downloads/details.aspx?FamilyId=333325FD-AE52-4E35-B531-508D977D32A6&displaylang=fr")
End
End If
My.Resources.Culture = Globalization.CultureInfo.InvariantCulture : My.Resources.Culture = My.Resources.Culture
System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(False)
For Each arg As String In System.Environment.GetCommandLineArgs
If Not arg = System.Windows.Forms.Application.ExecutablePath Then
Redim Preserve ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length) : ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length - 1) = arg
End If
Next
System.Windows.Forms.Application.Run(New WindowsForm1_f)
        End Sub
    End Class

    Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
        Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
        Public aleatoire1 As Object '
        Public codegc As Object ' System.String
        Public element As Object '
        Public lect As Object '
        Public openfile() As Object = New Object(-1){} '
        Public title As Object '
        Public xmlimport As Object '
        Public ALL_ARGUMENTS_APPLICATIONS() As Object = New Object(-1){}
        Public ALLUSERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("ALLUSERPROFILE"))
        Public APPDATA As Object = CStr(Environment.GetEnvironmentVariable("APPDATA"))
        Public CLASSPATH As Object = CStr(Environment.GetEnvironmentVariable("CLASSPATH"))
        Public CommonProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("CommonProgramFiles"))
        Public COMPUTERNAME As Object = CStr(Environment.GetEnvironmentVariable("COMPUTERNAME"))
        Public ComSpec As Object = CStr(Environment.GetEnvironmentVariable("ComSpec"))
        Public FP_NO_HOST_CHECK As Object = CStr(Environment.GetEnvironmentVariable("FP_NO_HOST_CHECK"))
        Public HOMEDRIVE As Object = CStr(Environment.GetEnvironmentVariable("HOMEDRIVE"))
        Public HOMEPATH As Object = CStr(Environment.GetEnvironmentVariable("HOMEPATH"))
        Public LOCALAPPDATA As Object = CStr(Environment.GetEnvironmentVariable("LOCALAPPDATA"))
        Public LOGONSERVER As Object = CStr(Environment.GetEnvironmentVariable("LOGONSERVER"))
        Public NUMBER_OF_PROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBER_OF_PROCESSORS"))
        Public OS As Object = CStr(Environment.GetEnvironmentVariable("OS"))
        Public PATH As Object = CStr(Environment.GetEnvironmentVariable("PATH"))
        Public PATHEXT As Object = CStr(Environment.GetEnvironmentVariable("PATHEXT"))
        Public PROCESSOR_ARCHITECTURE As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE"))
        Public PROCESSOR_IDENTIFIER As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_IDENTIFIER"))
        Public PROCESSOR_LEVEL As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_LEVEL"))
        Public PROCESSOR_REVISION As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_REVISION"))
        Public ProgramData As Object = CStr(Environment.GetEnvironmentVariable("ProgramData"))
        Public ProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("ProgramFiles"))
        Public [PUBLIC] As Object = CStr(Environment.GetEnvironmentVariable("PUBLIC"))
        Public SESSIONNAME As Object = CStr(Environment.GetEnvironmentVariable("SESSIONNAME"))
        Public SystemDrive As Object = CStr(Environment.GetEnvironmentVariable("SystemDrive"))
        Public SystemRoot As Object = CStr(Environment.GetEnvironmentVariable("SystemRoot"))
        Public TEMP As Object = CStr(Environment.GetEnvironmentVariable("TEMP"))
        Public TMP As Object = CStr(Environment.GetEnvironmentVariable("TMP"))
        Public USERDOMAIN As Object = CStr(Environment.GetEnvironmentVariable("USERDOMAIN"))
        Public USERNAME As Object = CStr(Environment.GetEnvironmentVariable("USERNAME"))
        Public USERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("USERPROFILES"))
        Public windir As Object = CStr(Environment.GetEnvironmentVariable("windir"))
    End Module

    Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_FORMS_SOFTWAREZATOR_VARIABLES
Private _Dialog1 As Dialog1_f = New Dialog1_f
Public Property Dialog1 As Dialog1_f
Get
Return _Dialog1
End Get
Set(ByVal value As Dialog1_f)
_Dialog1 = value
End Set
End Property
Private _WindowsForm1 As WindowsForm1_f = New WindowsForm1_f
Public Property WindowsForm1 As WindowsForm1_f
Get
Return _WindowsForm1
End Get
Set(ByVal value As WindowsForm1_f)
_WindowsForm1 = value
End Set
End Property
    End Module



    Partial Public Class Dialog1_f

 Public Sub OK_Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)Handles OK_Button.Click
Try
' Fermeture de la fenêtre lorsqu'on clique sur OK
Me.DialogResult = System.Windows.Forms.DialogResult.OK : Me.Close()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Gpxcaching", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub Cancel_Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)Handles Cancel_Button.Click
Try
' Fermeture de la fenêtre lorsqu'on clique sur Annuler
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel : Me.Close()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Gpxcaching", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
Me.webBrowser1.Navigate("file://" & Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "")
Me.button1.Enabled = False
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Gpxcaching", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class

    Partial Public Class WindowsForm1_f

 Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
codegc = CType(codegc, String)
If Me.openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then openfile = Me.openFileDialog1.FileNames Else openfile = New Object(-1) {}
xmlimport = My.Computer.FileSystem.ReadAllText("" & openfile(0) & "", System.Text.Encoding.Default)
Microsoft.VisualBasic.Randomize() : aleatoire1 = CInt(Microsoft.VisualBasic.Int(((1000) * Microsoft.VisualBasic.Rnd())))
My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "/GPX/xml/-" & aleatoire1 & "-.xml", "" & xmlimport & "", False)
Do
codegc = lect.GetAttribute(name)
 System.Windows.Forms.MessageBox.Show("" & codegc & "", "Gpxcaching", MessageBoxButtons.OK, MessageBoxIcon.None).ToString
Loop
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Gpxcaching", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

 Public Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button3.Click
Try
If Me.openFileDialog2.ShowDialog() = System.Windows.Forms.DialogResult.OK Then openfile = Me.openFileDialog2.FileNames Else openfile = New Object(-1) {}
xmlimport = My.Computer.FileSystem.ReadAllText("" & openfile(0) & "", System.Text.Encoding.Default)
Microsoft.VisualBasic.Randomize() : aleatoire1 = CInt(Microsoft.VisualBasic.Int(((1000) * Microsoft.VisualBasic.Rnd())))
My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "/LOC/xml/-" & aleatoire1 & "-.xml", "" & xmlimport & "", False)
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "Gpxcaching", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

    End Class

End Namespace

Namespace My.Resources

    'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder.
    '''<summary>
    '''  Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
    '''</summary>
    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
    Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
    Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
    Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
    Public Module Resources

        Private resourceMan As Global.System.Resources.ResourceManager

        Private resourceCulture As Global.System.Globalization.CultureInfo

        '''<summary>
        '''  Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Public ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
            Get
                If Object.ReferenceEquals(resourceMan, Nothing) Then
                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Gpxcaching.Resources", GetType(Resources).Assembly)
                    resourceMan = temp
                End If
                Return resourceMan
            End Get
        End Property

        '''<summary>
        '''  Remplace la propriété CurrentUICulture du thread actuel pour toutes
        '''  les recherches de ressources à l'aide de cette classe de ressource fortement typée.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Public Property Culture() As Global.System.Globalization.CultureInfo
            Get
                Return resourceCulture
            End Get
            Set(ByVal value As Global.System.Globalization.CultureInfo)
                resourceCulture = value
            End Set
        End Property


End Module
End Namespace

Exe

Si personne veut me répondre je terminerai sans vous.
Merci

Sois pas suceptible parce que au bout de 2 heures on ne t'as pas répondu, une réponse arrive en moyenne dans les 24 prochaines heures.
Perso je n'ai pas la réponse donc je ne vais pas te dire "Je ne sais pas" ca ne servirait à rien si ce n'est grapiller un message.
Je laisse donc la main aux autres membres qui auront peut être une réponse plus claire.

Bonsoir,

J'ai résolu ce problème mais maintenant j'en ai un qui revient toujours :
"Le membre public 'getAttribute' du type 'String' est introuvable."

Pouvez-vous m'aider svp ?

re ,

Ne compte pas trop sur moi pour résoudre les problème avec le XML ....
Tu en sais plus que moi !

Cordialement ,
Le réparateur de PC