|
Díval, ale nečetl celé. Je toho hodně. První řádek tam být nemusí, pokud je soubor v UTF-8. Pokud není, dát ho tam musíte. Aby to bylo validní XML, musíte zavírat značky img. Takže buď dáte:
<img src="něco.jpg" />
nebo
<img src="něco.jpg"></img>
Pak to teprve bude validní XML. Validní XML musí splňovat tyto pravidla: - vše musí být uvnitř kořenové značky (to máte správně). - každá značka musí být uzavřena, značky se nesmí křižit. - záleží na velikosti písmen (<b> a </B> k sobě nepatří!) - všechny hodnoty atributů musí být v úvozovkách (<a href=str> nejde, musí být <a href="str"> atd. Pak je možné takovýto dokument jednoduše načíst a zpracovat:
Public Sub Nacist()
Dim doc As New Xml.XmlDocument()
doc.Load("d:\weby\classportal\app_Data\lunchlist.xml") 'otevřít soubor
VytvorPolozky(doc.ChildNodes, TreeView1.Nodes) 'vytvořit rekurzivně položky
doc = Nothing
End Sub
Private Sub VytvorPolozky(ByVal xmlNodes As Xml.XmlNodeList, ByVal treeNodes As TreeNodeCollection)
For Each n As Xml.XmlNode In xmlNodes 'projít všechny předané položky
If n.NodeType = Xml.XmlNodeType.Element Then 'pokud je to element
Dim t As TreeNode = treeNodes.Add(n.Name) 'vytvořit samotnou položku
If n.HasChildNodes Then 'pokud jsou vnořené položky, rekurzívně je přidat
VytvorPolozky(n.ChildNodes, t.Nodes)
End If
End If
Next
End Sub
O XML bych chtěl také v nejbližší době napsat seriál, ale nemám moc času. Anglicky je toho dost, česky ne.
|