jsakamoto

Console.WriteLine("Hello, World.");

jsakamoto

// GDataDB を NuGet Package Manager を使ってプロジェクトに追加しておくこと。

[HttpPost]
public ActionResult Index(Attendee attendee)
{
    // ここでスプレッドシートへ書き込み
    var gdbclient = new GDataDB.DatabaseClient("(user name)", "(password)");
    var db = gdbclient.GetDatabase("Attendees");
    var tbl = db.GetTable<Attendee>("Sheet1");
    tbl.Add(attendee);

jsakamoto

let rec numofbits bitwidth x = 
    match bitwidth with
    |0 -> 0
    |_ -> (x &&& 1) + numofbits (bitwidth - 1) (x / 2)

jsakamoto

// http://atnd0.apphb.com/api/attendees

public class Attendee
{
    public int AttendeeID { get; set; }

    [Required, MaxLength(20)]
    public string Name { get; set; }

    [Required, MaxLength(20)]

jsakamoto

// NOTICE: 
// This is "concept" sample code.
// Not enough resouce disposing, etc.

public class MyRemoteAttribute : RemoteAttribute 
{ 
    public RemotableCustomAttribute(string action, string controller) : base(action, controller) 
    { 
    } 

jsakamoto

open System;;
open System.IO;;
let dir = @"c:\workdir";;
Directory.GetFiles(dir)
  |> Seq.map (fun x-> (x, x.Replace("original", "replaced")))
  |> Seq.iter (fun (x,y) -> File.Move(x, y));;

jsakamoto

open System;;
open System.IO;;
open System.Text;;
open System.Text.RegularExpressions;;

let dir = @"c:\workdir";;
Directory.GetFiles(dir, "*.udl")
  |> Seq.map (fun x-> (x, File.ReadAllText(x)))
  |> Seq.map (fun(x,y)->(x, Regex.Replace(y,"Data Source=[^;]+",@"Data Source=.\SQLEXPRESS")))
  |> Seq.iter (fun (x,y) -> File.WriteAllText(x,y,Encoding.Unicode));;

jsakamoto

using System.Configuration;
using Newtonsoft.Json;
using Twitterizer;

public class Bot
{
    public static void Tweet()
    {
        // Need appSettings section in .config: 
        // <add key="key" value="{ConsumerKey:'...', ConsumerSecret:'...', AccessToken:'...', AccessTokenSecret:'...'}" />

jsakamoto

open System.IO
open System.Linq

let dir = new DirectoryInfo("c:\\")
let fileOfFoo = dir.GetFiles().FirstOrDefault(fun f -> f.Name = "foo")
printfn "%s" (if fileOfFoo = null then "null!" else "exists!")

jsakamoto

open System.IO
open System.Linq

type MyFile = {Name:string; Size:int64}
let toMyFile (f:FileInfo) = {Name=f.Name; Size=f.Length}

let dir = new DirectoryInfo("c:\\")
let fileOfFoo = 
    dir.GetFiles() 
    |> Array.map toMyFile