elementat(0)
elementat(1)
datafield.element.elementat(1) is nothing then data2 = “ “
Dim xd As XDocument = XDocument.Load("C:\Users\stopete\Desktop\Marc_All_856.xml") Dim Title245 = (From datafields In xd.Descendants("record") Select datafields) For Each ser As XElement In Title245 Dim data = (From datafield In ser.Descendants("datafield") Where (datafield.Attribute("tag").Value = "245") Select datafield.Elements.ElementAt(0)) Dim data2 = (From datafield In ser.Descendants("datafield") Where (datafield.Attribute("tag").Value = "245") Select datafield.Elements.ElementAt(1)) MsgBox(data.Value & data2.Value) Next
<?xml version="1.0"?> <collection> <record> <leader>03439cam 2200481Ia 4500</leader> <controlfield tag="001">648147285</controlfield> <controlfield tag="003">SIRSI</controlfield> <controlfield tag="005">20110301135853.0</controlfield> <controlfield tag="008">100716s2010 cauab bm f000 0 eng d</controlfield> <controlfield tag="007">cr b|||||a||||</controlfield> <datafield tag="040" ind1=" " ind2=" "> <subfield code="a">AD#</subfield> <subfield code="c">AD#</subfield> <subfield code="d">3D#</subfield> </datafield> <datafield tag="035" ind1=" " ind2=" "> <subfield code="a"></subfield> </datafield> <datafield tag="037" ind1=" " ind2=" "> <subfield code="a">ADA524635</subfield> <subfield code="b">DTI</subfield> </datafield> <datafield tag="043" ind1=" " ind2=" "> <subfield code="a">n-us---</subfield> </datafield> <datafield tag="049" ind1=" " ind2=" "> <subfield code="a">AD#A</subfield> </datafield> <datafield tag="100" ind1="1" ind2=" "> <subfield code="a"></subfield> </datafield> <datafield tag="245" ind1="1" ind2="0"> <subfield code="a">Supporting Marine Corps Enhanced Company Operations</subfield> </datafield> </record> <record> <leader>03561cam 2200445Ia 4500</leader> <controlfield tag="001">648166814</controlfield> <controlfield tag="003">SIRSI</controlfield> <controlfield tag="005">20110301134449.0</controlfield> <controlfield tag="008">100716s2010 caua bm f000 0 eng d</controlfield> <controlfield tag="007">cr b|||||a||||</controlfield> <datafield tag="040" ind1=" " ind2=" "> <subfield code="a">AD#</subfield> <subfield code="c">AD#</subfield> <subfield code="d">AD#</subfield> </datafield> <datafield tag="037" ind1=" " ind2=" "> <subfield code="a">ADA524549</subfield> <subfield code="b">DTI</subfield> </datafield> <datafield tag="043" ind1=" " ind2=" "> <subfield code="a">n-us---</subfield> </datafield> <datafield tag="049" ind1=" " ind2=" "> <subfield code="a">AD#A</subfield> </datafield> <datafield tag="100" ind1="1" ind2=" "> <subfield code="a"></subfield> </datafield> <datafield tag="245" ind1="1" ind2="0"> <subfield code="a">Determination of shock properties of ceramic corbit 98</subfield> </datafield> </record> <record> <leader>04735cam 2200517Ia 4500</leader> <controlfield tag="001">648171956serg</controlfield> <controlfield tag="003">SIRSI</controlfield> <controlfield tag="005">20110301133804.0</controlfield> <controlfield tag="008">100716s2010 cauab bm f000 0 eng d</controlfield> <controlfield tag="007">cr b|||||a||||</controlfield> <datafield tag="040" ind1=" " ind2=" "> <subfield code="a">AD#</subfield> <subfield code="c">AD#</subfield> <subfield code="d">AD#</subfield> </datafield> <datafield tag="037" ind1=" " ind2=" "> <subfield code="a">ADA524538</subfield> <subfield code="b">DTI</subfield> </datafield> <datafield tag="043" ind1=" " ind2=" "> <subfield code="a">n-us---</subfield> </datafield> <datafield tag="049" ind1=" " ind2=" "> <subfield code="a">AD#A</subfield> </datafield> <datafield tag="100" ind1="1" ind2=" "> <subfield code="a">.</subfield> </datafield> <datafield tag="245" ind1="1" ind2="0"> <subfield code="a">Control over the Nile</subfield> <subfield code="h">[electronic resource] :</subfield> <subfield code="b">implications across nations /</subfield> <subfield code="c">David K. Chesire.</subfield> </datafield> </record> </collection
Dim data2 = (From datafield In ser.Descendants("datafield") Where (datafield.Attribute("tag").Value = "245" And datafield.Elements.Count >= 2) Select datafield.Elements.ElementAt(1))
Count()
ElementAt()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)