techbank.jp コミュニティ

F#:どう書くorg? - コマンドライン引数の取得

gushwell — Mon, 30 Aug 2010 12:47:40 GMT

どう書く?org の「コマンドライン引数の取得」をF#で書いてみました。 open System let args = Environment.GetCommandLineArgs() // 一つ目の方法 for a in args do printfn "%s" a // 二つ目の方法 Array.iter (printfn "%s") <| args // 三つめの方法 (インデックス指定でアクセス) [0..args.Length-1] |> List.iter (fun n -> printfn "%s" args.[n]) .NET Frameworkの Environment.GetCommandLineArgs()メソッドを使うと、コマンドライン引数を取得することができます。なお、mscorlibを参照設定に追加する必要があります。 ※ Vs2010ではデフォルトで参照設定されています。 GetCommandLineArgs の戻り値は、String[] です。args.[0]...(read more)

F#:どう書く？org - ファイルサイズの取得

gushwell — Wed, 25 Aug 2010 13:47:16 GMT

どう書く?org の「ファイルサイズの取得」をF#で書いてみました。 let getFileSize filename = let fi = new System.IO.FileInfo(filename) fi.Length let Main() = let fname = @"c:\Windows\notepad.exe"; if System.IO.File.Exists(fname) then System.Console.WriteLine("{0} {1:#,0} byte", fname, (getFileSize fname)) do Main() System.IO.FileInfoクラスのLengthプロパティを使うことで、ファイルサイズを得ることができます。 printfnでカンマ編集をする方法がすぐにはわからなかったので、Console.WriteLineを使いました。今回は、open なしで書きました。普段 C#やVB使っている人には、あまりありがたみのないコードですが、 .NET言語はF#が初めてという方には...(read more)

F#:どう書く？org - bit.lyを使ってURLを短縮する

gushwell — Tue, 17 Aug 2010 13:31:38 GMT

どう書く？ orgでは、「 LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する」(なぜかこのページエラーになってアクセスできない)ですが、 tinyurl.comではなく、今主流の bit.ly を使ってみました。 bitlyでは、JSON形式を返すのがデフォルトの動作ですが、F#でJSON扱う方法が分からなかったので、ここでは、text形式として結果を受け取ることにしました。 .NET Frameworkの WebClientクラスを使って、リクエストを送るだけなので、F#らしさは何もないです。それにしても、WebClientクラスは簡単に使えて良いですね。 open System open System.Net let longurl = @"http://techbank.jp/Community/blogs/gushwell/default.aspx" let user = "gushwellfsharp" let apikey = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx"...(read more)

F#:どう書く？org - 文字列のセンタリング

gushwell — Tue, 10 Aug 2010 13:15:48 GMT

今日は、どう書く？org の文字列のセンタリングをF#で書いてみました。といっても前にC#で書いたコードをそのままF#に直しただけのコードですが… open System let Centering (s:String) width = let space = width - s.Length if space >= 0 then new String( ' ' , space / 2 ) + s + new String( ' ' , space - (space / 2 )) else s.Substring(-space / 2 ).Remove(width) let Test() = let strs = [ "" ; "1" ; "12" ; "1234" ; "12345" ; "123456" ; "12345678" ; "123456789" ; "1234567890"...(read more)

F#:どう書く？org - 16進数から10進数の変換

gushwell — Wed, 04 Aug 2010 11:54:54 GMT

どう書く？org の 16進数から10進数の変換をF#で挑戦です。 open System let num = Convert.ToInt32( "ABCDEF" , 16 ) printfn "%d" num let str = Convert.ToString(num, 16 ) printfn "%s" str let num2 = Convert.ToInt32(str, 16 ) if num = num2 then printfn "OK" Console.ReadLine() |> ignore ちょと題材として簡単すぎました。.NET Framework の Convert クラスを使うだけです。上のコードでは、16進文字列を int に変換し、それを 16進文字列に変換し、さらに、もう一度、int に変換し、２つの数値を比較しています。当然、"OK"が表示されます。ところで、今まで let num = Convert.ToInt32( "0xABCDEF"...(read more)

F#:どう書く？org - 13日の金曜日を数え上げる

gushwell — Wed, 28 Jul 2010 12:23:01 GMT

どう書く？org の 13日の金曜日を数え上げるをF#で挑戦です。 .NET Framework の DateTime構造体をつかっています。 get13thList で、１３日のシーケンスを作り出し、そこから、filterで金曜日だけを抜き出し、 takeWhileで、指定した日付までを取得しています。初めは、ref つかったり、mutableつかったりしましたが、結局、使わずに書けました。効率無視して、すべての日を調べるコードにすれば、もっと短く簡潔に書けると思います。今の効率のまま、短くする方法はちょっと考え付きませんでした。 open System let get13thList(date:DateTime) = let dt = if date.Day > 13 then (new DateTime(date.Year, date.Month, 13)).AddMonths(1) else new DateTime(date.Year, date.Month, 13) seq { for m in 0..(Int32.MaxValue) -> dt.AddMonths...(read more)

はじめてのVisual Studio 2010 第11章の参照URL

IIJIMAS — Sun, 18 Jul 2010 17:47:05 GMT

techbank.jp著「 TECHNICAL MASTER はじめての Visual Studio 2010 」(秀和システム) の私担当の第11章の中にいくつかの参照URL記述があります。紙に書かれたURLを手で入力するのは、煩雑で間違えやすいので、読者様の利便性を考えてこちらにハイパーリンクとなった形で再掲させていただきます。 11-01 セットアッププロジェクト起動条件の追加手順6 (P493) 「Condition プロパティ」 http://msdn.microsoft.com/ja-jp/library/025bcetc.aspx 「Conditional Statement Syntax (Windows)」 http://msdn.microsoft.com/ja-jp/library/aa368012.aspx 「Property Reference (Windows)」 http://msdn.microsoft.com/ja-jp/library/aa370905.aspx 11-03 ASP.NET配置 ASP.NET配置に関する注意注意1(P512)...(read more)

はじめまして

IIJIMAS — Sun, 18 Jul 2010 16:15:35 GMT

techbank.jpブログ読者の皆様、はじめまして、そしてこんにちは IIJIMAS と申します。こちらにブログスペースを開設していただきました。ソフトウェア開発会社に勤務している開発者です。この業界に入って丸7年、8年目（←自分でもびっくり）です。 Javaの経験も長いですが、C#が好きです。2008/1-2009/12の2年間Microsoft MVP for C#を受賞させていただいていました…残念ながら今は違います(←活動してません…) 先日、2010/6/29に、発売された書籍 techbank.jp著「 TECHNICAL MASTER はじめての Visual Studio 2010 」(秀和システム) http://www.shuwasystem.co.jp/products/7980html/2666.html 紀伊國屋書店新宿本店3Fに売ってました！近所の本屋でも売っていました！紀伊國屋書店新宿南店5Fにも！ぜひ、皆様の職場や同僚にご紹介よろしくお願いします！ ...(read more)

VB の三項演算子

chibahiro — Sat, 17 Jul 2010 14:26:00 GMT

C# では、簡単な分岐処理を行いたい場合、三項演算子を使ってコードを短く記述できる。現在のプロジェクトでは VB を使用しているのだが、似たようなことをしたい場合には IIf 関数の使用がまず浮かぶ。 (なぜ先頭 2 文字だけ大文字なのだろう？) だがこの関数、イマイチ使いにくい。例えば IIf 関数を使って以下のようなコードを書いたとしよう。 Module Module1 Class Chibahiro Function GetName() Return "Chibahiro です" End Function End Class Sub Main() Dim c As Chibahiro Debug.Print(IIf(IsNothing(c), "匿名希望", c.GetName())) End Sub End Module ところが上記のコード、例外をスローしてしまう。原因は、IIf 関数が必ず True 部も False 部も評価してしまうためで、c が Nothing の場合はコケてしまうのだ。開発中にこの状況に遭遇すると、軽くイラッとする...(read more)

ISAでL2TP/IPSec Step3 証明書テンプレートを証明機関に登録する

かめたろ — Fri, 16 Jul 2010 03:41:39 GMT

前回作成した証明書テンプレートを、証明機関で使用できるように設定します。 sertsrv.mscを実行します。または、[管理ツール]の[証明機関]を実行します。ツリーを展開し、[証明書テンプレート]を右クリック-[新規作成]-[発行する証明書テンプレート]とポイントします。前回作成した証明書テンプレート「L2TP/IPSec (オフライン要求)」を選択して[OK]をクリックします。証明機関の証明書テンプレートに追加されているのを確認して完了です。次回は、コンピュータ証明書を要求・発行し、pfxファイルにエクスポートします。...(read more)

[Silverlight 4] : Initialize Error ( 2104 & 2105 ) 対処方法

けろ-みお — Wed, 14 Jul 2010 15:18:00 GMT

Silverlightアプリを作成し、デプロイした直後、 Initialize Error 2104 や 2105 エラーが objectタグ等、XAPファイルを読み込む箇所で発生（正式には、onErrorでイベントハンドリングしたJavaScript で発生）した場合の対処方法です。（かなりハマった・・・） ■Initialize Error 2104 対策 IISに対し、xap や xaml ファイルに対するMIME設定すると治る。（IIS6基準で説明）手順１：インターネットインフォメーションサーバーをMMCで開く手順２：Webサイトまたは、仮想ディレクトリのプロパティを開き、[HTTP ヘッダー]タブを選択手順３：[コンテンツに有効期限を設定する]にチェックON、[有効期間]を[1分間]に設定する手順４：[MINE の種類]ボタンを押し、xaml, xap 、２つファイルの関連付けを下記のように登録する。拡張子： xaml、　MIMEの種類： application/xaml+xml 拡張子：xap、　MIMEの種類：　application/octet-stream...(read more)

F#:どう書く？org - ２進数の記述

gushwell — Wed, 14 Jul 2010 14:19:00 GMT

どう書く？org の２進数の記述をF#で解いてみました。プログラムソースコード中に、2進数を定数として書く方法、あるいはその代替手段を考えてください、というものです。 F#には、0b0011 のような記述が可能ですが、それはおいといて、以下のような、BinaryNumberクラスを書いてみました。 open System type BinaryNumber(num:int) = let mutable _num = num new (s:string) = new BinaryNumber(Convert.ToInt32(s,2)) member this.GetInt32() = _num override this.ToString() = Convert.ToString(_num,2) static member op_Explicit (bn:BinaryNumber) = bn.GetInt32() let Main() = let bn = new BinaryNumber(63) printfn "%A" bn printfn "%s"...(read more)

ISAでL2TP/IPSec Step2 証明書テンプレートを作成する

かめたろ — Wed, 14 Jul 2010 03:45:56 GMT

L2TP/IPSec用のコンピュータ（マシン）証明書の発行に使用する、証明書テンプレートを作成します。 certtmpl.mscを実行します。または、mmcで[証明書テンプレート]スナップインを表示します。 IPSec（オフライン要求）を右クリック、[テンプレートの複製]をクリックします。 [全般]タブでテンプレート表示名を「L2TP/IPSec （オフライン要求）」に変更します。 [要求処理]タブの[CSP]ボタンをクリック、CSPの選択画面で、[サブジェクトのコンピューターで利用可能な任意のCSP]を選択して[OK]。 [OK]ボタンで、L2TP/IPSec用のカスタムテンプレートが作成できました。次回は、ここで作成した証明書テンプレートを、証明機関に登録します。...(read more)

ISAでL2TP/IPSec Step1 エンタープライズCAをセットアップする

かめたろ — Tue, 13 Jul 2010 06:57:05 GMT

StandardでもエンタープライズCAになることができますが、後々Enterprise以上のエディションでなければできない操作を行いますので、Enterpriseを使用します。【IISインストール】 ※IISをインストールすると証明書要求にGUIが使えます、CUIはこちら [スタート]-[コントロールパネル]-[プログラムの変更と削除]-[Windowsコンポーネントの追加と削除]で[Windowsコンポーネントウィザード]を表示し、[アプリケーションサーバー]→[インターネットインフォメーションサービス(IIS)]→[WWW(World Wide Web)サービス]と[詳細]ボタンで下層に行き、[Active Server Page]にチェックを設定（自動的に他の項目にもチェックが付きますがそのままに） [OK]をクリックしていって戻り、[次へ] 【証明書サービスをインストール】 [スタート]-[コントロールパネル]-[プログラムの変更と削除]-[Windowsコンポーネントの追加と削除]で[Windowsコンポーネントウィザード]を表示し、”証明書サービス”にチェックを設定...(read more)

ISAでL2TP/IPSec コンピュータ証明書で運用する

かめたろ — Mon, 12 Jul 2010 02:45:05 GMT

ここでは、ISA Serverを使用してL2TP/IPSecをコンピュータ（マシン）証明書で運用する方法をご紹介します。事前共有キー（パスワードのようなもの）を有効にしておけば証明書は不要なのですが、証明書を使用する方が好ましいですので。なお、ご紹介といいましても、 MSのKBに掲載されている内容をスクリーンショット付きで丁寧に書き直している程度ですので、過度の期待はしないでください。【準備するもの】 ISA Server 2006（or 2004）でVPNクライアントアクセスの構成が完了している環境（PPTPやL2TP/IPSec事前認証キーでVPNクライアントからリモート接続できていること） Active DirectoryがインストールされたWindows Server 2003 Enterprise 以上のエディションのサーバー（何台目のDCでもOK）インターネットにあるVPNクライアントPC この度はISA Serverを使用していますが、環境が整ったら ISA Serverの後継製品であるMicrosoft Forefront Threat Management Gateway...(read more)