Discussion :

[stolken]

Bonjour,
J'essaye tant bien que mal créer un page dont les valeurs de propriété seront issue d'un XmlDataSource filtré par un parametre d'URL.

J'ai essayé de différente façon mais je pense que je m'y prends mal.
Voici mon xml :

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
20
21
22
23
24
25
<?xml version="1.0" encoding="utf-8" ?>
<scripts>
 
  <script titre="write-host"
   description="Ecrit (write-host) la valeur de la textbox"
   code="write-host aaaa | out-string"
   auteur="Pierre"
   date="03/06/2011"
   navigateurl="\default.aspx?script=write-host">
 
    <controles>
      <controle nom="nom"
                label="entrez le texte à afficher"
                type="textbox"/>
      </controles>
  </script>
  <script titre="get-host"
   description="Recupere le get-host"
   code="get-host | out-string"
   auteur="Marc"
   date="03/06/2011"
  navigateurl="\default.aspx?script=get-host">
  </script>
 
</scripts>

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

1: Je récupère la valeur de mon parametre "script" d'URL et l'applique au filtre XPATH de mon controle XmlDataSource

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        Dim sParametre As String = Request.QueryString("script")
        If sParametre IsNot "" Then
        XmlDataSource1.XPath = "scripts/script[@titre=""" & sParametre & """]"
        End If

2:Comment récupérer les attributs de mon XML pour les placer dans des controles (label, textbox) ?

D'après mes recherches il faut utiliser un dataset ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Dataset1 As New DataSet
Dim Datatable1 As New DataTable
Dataset1.ReadXml(Server.MapPath("\App_Data\scripts.xml"), XmlReadMode.Auto)

Et après ?

Merci de votre aide.











End Sub

[stolken]

J'ai avancé un peu ...

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
20
21
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim sParametre As String = Request.QueryString("script")
        Dim sXpath As String
        If sParametre IsNot "" Then
            sXpath = "scripts/script[@titre=""" & sParametre & """]"
        Else
            sXpath = ""
        End If
        XmlDataSource1.XPath = sXpath
 
        Dim XmlDocument1 As XmlDocument = XmlDataSource1.GetXmlDocument()
 
        Dim XmlNodes1 As XmlNodeList = XmlDocument1.SelectNodes(sXpath)
 
        For Each XmlNode1 As XmlNode In XmlNodes1
            tScript.Text = XmlNode1.Attributes("titre").Value
        Next
 
 
End Sub

Avez vous des remarques, conseils ou insultes ?