http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FXML_LINQ%2FDescendants
VB.Net/XML LINQ/Descendants - История изменений
2026-04-06T00:10:29Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/XML_LINQ/Descendants&diff=932&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net/XML_LINQ/Descendants&diff=933&oldid=prev
Admin: 1 версия
2010-05-26T12:45:36Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Getting Descendants==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Reflection<br />
Imports System.Xml<br />
Module Module1<br />
Sub Main()<br />
Dim xml As XElement = XElement.Load("People.xml")<br />
Dim record = xml.Descendants("firstname").First()<br />
For Each tag In record.Ancestors()<br />
Console.WriteLine(tag.Name)<br />
Next<br />
<br />
End Sub<br />
End Module<br />
<br />
<br />
</source><br />
<br />
<br />
==Query all Ford cars==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Module Program<br />
Sub Main()<br />
Dim doc As XElement = XElement.Load("Inventory.xml")<br />
Dim fords = From c In doc.Descendants("Make") _<br />
Where c.Value = "Ford" _<br />
Select c<br />
For Each f In fords<br />
Console.WriteLine(f)<br />
Next<br />
End Sub<br />
End Module<br />
<br />
<br />
</source><br />
<br />
<br />
==Select all Descendants==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Module Program<br />
Sub Main()<br />
Dim doc As XElement = XElement.Load("Inventory.xml")<br />
Dim petNames = From pn In doc.Descendants("PetName") Select pn.Value<br />
For Each name In petNames<br />
Console.WriteLine("Name: {0}", name)<br />
Next<br />
End Sub<br />
End Module<br />
<br />
<br />
</source><br />
<br />
<br />
==Select nodes from Descendants==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Data.DLinq<br />
Imports System.Expressions<br />
Imports System.Query<br />
Imports System.Reflection<br />
Imports System.Xml<br />
Module Module1<br />
Sub Main()<br />
Dim xdoc As XDocument = XDocument.Load("data.xml")<br />
Dim query = From people In xdoc.Descendants("PERSON") Select people.Value<br />
Console.WriteLine("{0} Players Found", query.Count())<br />
For Each item In query<br />
Console.WriteLine(item)<br />
Next<br />
<br />
End Sub<br />
End Module<br />
<br />
<br />
</source><br />
<br />
<br />
==Using Linq to get default in a Office ord document==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Reflection<br />
Imports System.Xml<br />
Module Module1<br />
Sub Main()<br />
Dim xml As XElement = XElement.Load("XLINQ.xml")<br />
Dim w As XNamespace = "http://schemas.microsoft.ru/office/word/2003/wordml"<br />
Dim defaultFonts As XElement = xml.Descendants(w + "defaultFonts").First()<br />
Console.WriteLine("Default Fonts: {0}", _<br />
defaultFonts.Attribute(w + "ascii").Value)<br />
End Sub<br />
End Module<br />
<br />
<br />
</source></div>
Admin