Skip to content

Instantly share code, notes, and snippets.

Avatar

Gustavo Guerra ovatsus

View GitHub Profile
@ovatsus
ovatsus / windowsPhoneToAndroidMessageImporter.fsx
Last active Jun 13, 2016
Windows Phone to Android message importer
View windowsPhoneToAndroidMessageImporter.fsx
#r "packages/FSharp.Data.2.3.0-beta1/lib/net40/FSharp.Data.dll"
#r "System.Xml.Linq.dll"
open System
open System.Text
open FSharp.Data
[<Literal>]
let androidSample = """
<smses count="40">
View html.fs
module Html =
type HtmlNode =
| HtmlElement of name:string * attribute:HtmlAttribute list
| HtmlText of content:string *parent:HtmlNode
and HtmlAttribute =
| HtmlAttribute of name:string * value:string * parent:HtmlNode
let createElement name attrs =
@ovatsus
ovatsus / FootballStats.fsx
Last active Jan 1, 2016
Alternative implementation of Screen Scraping College Football Statistics (http://jamessdixon.wordpress.com/2013/12/24/screen-scraping-college-football-statistics/)
View FootballStats.fsx
#r @"packages\FSharp.Data.2.0.0-alpha2\lib\net40\FSharp.Data.dll"
#r "System.Xml.Linq"
open System.Xml.Linq
open FSharp.Data
open FSharp.Data.Json
open FSharp.Data.Json.Extensions
open FSharp.Net
// Without Type Providers
View departures.html
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd"><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en"><body><div class="page"><div class="header"><div class="hInner"><div class="hBar"><div id="div-gpt-ad-8507337232-0"></div></div><div class="title clr"><a href="/" class="logo"><img src="/img/nremed.png" alt="National Rail Enquiries" /></a></div></div></div><div class="header clr"><div class="header-panel clr"><h1>Live departure boards</h1><a class="rBtn" href="javascript:location.reload(true)"><img width="15" height="17" alt="Reload" src="/img/arrowcircle.gif" /></a></div></div><div class="pageCont"><table class="jDetails jDest"><tr><td class="label"><strong>22:44</strong></td><td colspan="2">London Bridge </td></tr><tr class="pb10"><td class="label">To:</td><td colspan="2">Orpington <small>Southeastern</small></td></tr></table><!-- <table class="jDetails jDest"><tr><td class="label"><strong>22:44<
@ovatsus
ovatsus / gist:7608238
Created Nov 22, 2013
NuGet reference="false" proposal
View gist:7608238
<?xml version="1.0" encoding="utf-8"?>
<package xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<metadata xmlns="http://schemas.microsoft.com/packaging/2010/07/nuspec.xsd">
<id>@project@</id>
<version>@build.number@</version>
<authors>@authors@</authors>
<owners>@authors@</owners>
<licenseUrl>http://github.com/fsharp/FSharp.Data/blob/master/LICENSE.md</licenseUrl>
<projectUrl>http://fsharp.github.com/FSharp.Data</projectUrl>
<iconUrl>https://raw.github.com/fsharp/FSharp.Data/master/misc/logo.png</iconUrl>
@ovatsus
ovatsus / after
Created Jul 19, 2013
Fantomas #83
View after
(new CsvFile<_>(new Func<_, _, _>(fun (parent : obj) (row : string []) -> Operations.GetNonOptionalValue("Name", Operations.ConvertString(Operations.AsOption(row.[0])), Operations.AsOption(row.[0])), Operations.GetNonOptionalValue("Distance", Operations.ConvertDecimal("", Operations.AsOption(row.[1])), Operations.AsOption(row.[1])), Operations.GetNonOptionalValue("Time", Operations.ConvertDecimal("", Operations.AsOption(row.[2])), Operations.AsOption(row.[2]))),
new Func<_, _>(fun (row : _ * _ * _) ->
[|Operations.ConvertStringBack(Operations.GetOptionalValue(let x, _, _ = row
x))
Operations.ConvertDecimalBack(, ,
Operations.GetOptionalValue(let _, x, _ = row
x))
Operations.ConvertDecimalBack( O,
View CsvDataApiExperiment.fsx
#r "bin/v40/FSharp.Data.dll"
open FSharp.Data.Csv
open FSharp.Data.Csv.Extensions
let map f (csvFile:CsvFile) =
let headers = csvFile.Headers |> f |> String.concat ","
let data = csvFile.Data |> Seq.map (fun row -> row.Columns |> f |> String.concat ",") |> String.concat "\n"
CsvFile.Parse(headers + "\n" + data)
let filter f (csvFile:CsvFile) =
@ovatsus
ovatsus / gist:5354478
Last active Dec 16, 2015
WorldBank API
View gist:5354478
This file has been truncated, but you can view the full file.
class WorldBankDataProvider
static member GetDataContext: () -> WorldBankDataProvider+ServiceTypes+WorldBankDataService
class WorldBankDataProvider+ServiceTypes
class WorldBankDataProvider+ServiceTypes+WorldBankDataService : FDR.WorldBank.WorldBankData
member Countries: WorldBankDataProvider+ServiceTypes+Countries with get
member Regions: WorldBankDataProvider+ServiceTypes+Regions with get
member Topics: WorldBankDataProvider+ServiceTypes+Topics with get
@ovatsus
ovatsus / CsvFile.fsx
Last active Aug 19, 2016
R <-> FSharp.Data comparison
View CsvFile.fsx
#r "packages/FSharp.Data.1.1.10/lib/net40/FSharp.Data.dll"
open FSharp.Data.Csv
open FSharp.Data.Csv.Extensions
let csv = CsvFile.Load("http://faculty.washington.edu/heagerty/Books/Biostatistics/DATA/ozone.csv")
//What are the column names of the dataset?
csv.Headers
@ovatsus
ovatsus / scriptSetup.fsx
Created Sep 2, 2012 — forked from nrolland/scriptSetup.fsx
Script for loading dependencies in fsx file from a solution/project
View scriptSetup.fsx
//This script generates
//a file named __project.fsx, for each proejct which can be #load "__project.fsx" in script intending to use the same dependency graph as the code in VS
//a file named __solmerged.fsx, at the solution root which can be #load "__solmerged.fsx" in script intending to use the same dependency graph as the code in VS
//In both cases, this enforce that a script compiling in VS should work from within FSI
#if INTERACTIVE
#r "System.Xml"
#r "System.Xml.Linq"
#endif
You can’t perform that action at this time.