R
!!!R.sample：簡単な処理のサンプル

!!特定の分析コードの内容の一覧を取得し、ファイルに保存する。
{{pre
myGrepCode <- function(a){

	lines.tmp <- scan(choose.files(), what="char", sep="\n")

	data.tmp <- grep(a, lines.tmp, value=T)

	body.tmp <- gsub(a, "", data.tmp)

	body.tmp <- body.tmp[body.tmp != ""]
		# 空の要素を削除（空でない要素のみを残す）する「イディオム」

}
}}

*次の分析コード欄を対象に、その内容を取り出す。
 %sub:GF:	
**最後のコロンの後ろにタブ記号が入っている。

+上のスクリプトをRに読み込む
+出力結果を適当なベクトルに保存する（例： result）
{{pre
> result <- myGrepCode("%sub:GF:\t")
Read 125 items
> result
 [1] "young people"                  "older people"                  "older people"                 
 [4] "youth"                         "young people"                  "a young person"               
 [7] "a young person"                "a younger person"              "older people"                 
[10] "young people"                  "young people"                  "the young couples"            
[13] "they"                          "this"                          "young people\t\t"             
[16] "they"                          "old people"                    "older people"                 
[19] "older people"                  "this"                          "young people"                 
[22] "young people"                  "older couples"                 "older couples"                
[25] "both younger and older people" "having a longer life"          "older people"                 
[28] "they"                          "they"                          "this"                         
[31] "the key to enjoying life"      "people"                        "older people" 
}}
*結果の入ったベクトルresultをファイル（例： result.txt）に書き出す。
 > write(result, "result.txt")