(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[      1726,         58]
NotebookOptionsPosition[      1258,         36]
NotebookOutlinePosition[      1599,         51]
CellTagsIndexPosition[      1556,         48]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"file", " ", "=", 
  RowBox[{"Import", "[", "\"\<H:\\\\videodb.xml\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.539665048872281*^9, 3.5396650622490463`*^9}, {
   3.539665506733469*^9, 3.5396655801676693`*^9}, 3.539665752693537*^9}],

Cell[BoxData[
 RowBox[{"titles", " ", "=", " ", 
  RowBox[{"Cases", "[", 
   RowBox[{"file", ",", 
    RowBox[{
     RowBox[{"XMLElement", "[", 
      RowBox[{"\"\<title\>\"", ",", "_", ",", "name_"}], "]"}], "\[Rule]", 
     " ", 
     RowBox[{"{", "name", "}"}]}], ",", "Infinity"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.5396656865787554`*^9, 3.5396657275600996`*^9}, {
  3.539665781487184*^9, 3.5396658233675795`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", "titles", "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.53966583019597*^9, 3.539665862423813*^9}}]
},
WindowSize->{707, 817},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[400, 13, 256, 4, 31, "Input"],
Cell[659, 19, 430, 10, 31, "Input"],
Cell[1092, 31, 162, 3, 31, "Input"]
}
]
*)