I
Size: a a a
I
I
VS
I
VS
I
I
I
g
I
VS
I
I
VS
VS
Д
#r "FSharp.Data.dll" 
#r "System.Xml.Linq.dll" 
open FSharp.Data[<Literal>] 
let CustomersXmlSample = """ 
  <Customers> 
    <Customer name="ACME"> 
      <Order Number="A012345"> 
        <OrderLine Item="widget" Quantity="1"/> 
      </Order> 
      <Order Number="A012346"> 
        <OrderLine Item="trinket" Quantity="2"/> 
      </Order> 
    </Customer> 
    <Customer name="Southwind"> 
      <Order Number="A012347"> 
        <OrderLine Item="skyhook" Quantity="3"/> 
        <OrderLine Item="gizmo" Quantity="4"/> 
      </Order> 
    </Customer> 
  </Customers>"""
type InputXml = XmlProvider<CustomersXmlSample> 
 
let realXML = 
    InputXml.Parse 
        ("""<Customers> 
              <Customer name="ACME"> 
                <Order Number="A012345"> 
                  <OrderLine Item="widget" Quantity="1"/> 
                  <OrderLine Item="widget2" Quantity="3"/> 
                </Order> 
                <Order Number="A012346"> 
                  <OrderLine Item="trinket" Quantity="2"/> 
                  <OrderLine Item="trinket23" Quantity="1"/> 
                  <OrderLine Item="trinket14" Quantity="3"/> 
                </Order> 
              </Customer> 
              <Customer name="Southwind"> 
                <Order Number="A012347"> 
                  <OrderLine Item="skyhook" Quantity="3"/> 
                  <OrderLine Item="gizmo" Quantity="4"/> 
                </Order> 
              </Customer> 
            </Customers>""")InputXml.Parse горит красным, но, повторюсь, работает нормальноP
g
#r "FSharp.Data.dll" 
#r "System.Xml.Linq.dll" 
open FSharp.Data[<Literal>] 
let CustomersXmlSample = """ 
  <Customers> 
    <Customer name="ACME"> 
      <Order Number="A012345"> 
        <OrderLine Item="widget" Quantity="1"/> 
      </Order> 
      <Order Number="A012346"> 
        <OrderLine Item="trinket" Quantity="2"/> 
      </Order> 
    </Customer> 
    <Customer name="Southwind"> 
      <Order Number="A012347"> 
        <OrderLine Item="skyhook" Quantity="3"/> 
        <OrderLine Item="gizmo" Quantity="4"/> 
      </Order> 
    </Customer> 
  </Customers>"""
type InputXml = XmlProvider<CustomersXmlSample> 
 
let realXML = 
    InputXml.Parse 
        ("""<Customers> 
              <Customer name="ACME"> 
                <Order Number="A012345"> 
                  <OrderLine Item="widget" Quantity="1"/> 
                  <OrderLine Item="widget2" Quantity="3"/> 
                </Order> 
                <Order Number="A012346"> 
                  <OrderLine Item="trinket" Quantity="2"/> 
                  <OrderLine Item="trinket23" Quantity="1"/> 
                  <OrderLine Item="trinket14" Quantity="3"/> 
                </Order> 
              </Customer> 
              <Customer name="Southwind"> 
                <Order Number="A012347"> 
                  <OrderLine Item="skyhook" Quantity="3"/> 
                  <OrderLine Item="gizmo" Quantity="4"/> 
                </Order> 
              </Customer> 
            </Customers>""")InputXml.Parse горит красным, но, повторюсь, работает нормальноI
AH