Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- open FSharp.Data
- type Record = {
- voivoship: Option<int>;
- district: Option<int>;
- community: Option<int>;
- rozd: Option<int>;
- name: Option<string>;
- addinf: Option<string>
- }
- let emptyRecord = {
- voivoship = Option.None;
- district = Option.None;
- community = Option.None;
- rozd = Option.None;
- name = Option.None;
- addinf = Option.None;
- }
- type InputXml = XmlProvider<"Terc.xml">
- let mapColumn state (column:InputXml.Col) =
- match column.Name with
- |"WOJ" -> {state with voivoship = column.Number}
- |"POW" -> {state with district = column.Number}
- |"GMI" -> {state with community = column.Number}
- |"RODZ" -> {state with rozd = column.Number}
- |"NAZWA" -> {state with name = column.String}
- |"NAZDOD" -> {state with addinf = column.String}
- |_->state
- let mapRow (row:InputXml.Row) =
- row.Cols |> Array.fold mapColumn emptyRecord
- let tercs = InputXml.GetSample()
- let mappedData = tercs.Rows |> Array.map mapRow
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement