Advertisement
Guest User

1

a guest
Jan 27th, 2011
422
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.     Public Sub LireXML(ByVal XML As String)
  3.  
  4.         Dim document As New XmlDocument
  5.         document.LoadXml(XML)
  6.         Dim prenom As XmlNodeList = document.GetElementsByTagName("Prenom")
  7.         Dim nom As XmlNodeList = document.GetElementsByTagName("Nom")
  8.         'On va parcourir tous les élements Prénoms, ici un seul
  9.        For i As Integer = 0 To prenom.Count - 1
  10.             SouhaiterBienvenue(prenom(i).InnerText, nom(i).InnerText)
  11.         Next
  12.  
  13.     End Sub
  14.  
  15.     Public Sub SouhaiterBienvenue(ByVal prenom As String, ByVal nom As String)
  16.  
  17.         Dim utilis As String = String.Format("{0} {1}", nom, prenom)
  18.         Label1.Text = "Bienvenue " & utilis 'on souhaite la bienvenue à l'utilisateur ayant enregistré le fichier test1
  19.  
  20.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement