月別アーカイブ: 2006年12月

Recordsetオブジェクトをソート可能な配列変数として使う

VBScriptで「自由にソートできる配列変数」が使えないかと調べていたら、ADODB.Recordsetオブジェクトがその目的に使えることがわかった。検索エンジンにひっかかるようにここに記しておく。
【参考ページ】
http://www.roubaixinteractive.com/PlayGround/FSO/Sort_Folder_Contents.asp
単純に「ソートできる文字列型の配列変数」の代わりになるものを作りたければ、ADODB.Recordsetオブジェクトを生成し、文字列型の列を1つ追加する。下記の例では最大半角200文字を格納できる「Field1」という名称の列を1つ追加している。もちろん複数の列を追加することもできるし、文字列型以外の型の列も追加できる。
新しい値を追加するにはRecordsetオブジェクトのAddNewメソッドを使い、データベースでいえば行を追加する感覚になる。最後にUpdateメソッドを呼び出すと変更が反映される。
ソートするにはRecordsetオブジェクトのSortメソッドに、SQL文の「ORDER BY」以降の記述をそのまま引数としてわたせばよい。下記の例では「Field1 DESC」となっており、Field1列の降順でソートされる。昇順なら「ASC」、複数列を指定するなら「Field1 DESC, Fields2 ASC」などとなる。
ソートした結果を取り出すのはデータベースの行操作とまったく同じで、MoveFirstメソッドを呼び出してから、繰り返し文でEOF(データの終わり)に突き当たるまでMoveNextを呼び出せばよい。
Dim oRs
Const adInteger = 3
Const adDate = 7
Const adVarChar = 200
Set oRs = CreateObject(“ADODB.Recordset”)
With oRs.Fields
.Append “Field1”, adVarChar, 200
End With
oRs.AddNew
oRs.Fields(“Field1”) = “AAAA”
oRs.AddNew
oRs.Fields(“Field1”) = “CCCC”
oRs.AddNew
oRs.Fields(“Field1”) = “BBBB”
oRs.Update
oRs.Sort = “Field1 ASC”
oRs.MoveFirst
Do Until oRs.EOF
‘ 何かの処理をする
oRs.MoveNext
Loop

TBSラジオ『アクセス』に宮台真司出演

昨晩2006/12/29 22:00からのTBSラジオ『アクセス』は29日は「M2のウラ紅白・テレビじゃ聞けないJ-POP批評2006」と題して、宮崎哲弥と宮台真司がJ-POP、映画、Web2.0などについてしゃべりまくっていた。
宮台真司はインターネット放送ビデオニュース・ドットコムよりも一段と毒舌がさえわたり、今年ヒットした邦画については「はっきり言って『クソ』ですよね」と切り捨て、「悲しみ」「絶望」を表現することに成功している映画でなければ評価しないと語っていた。
YouTubeについてはJASRACの姿勢を「バカですね」とバッサリ。そもそも著作権とは表現者の食いぶちのための権利であって、JASRACのような中間業者の既得権益を守るためのものではない。
YouTubeによって表現の場を得る表現者がいるのだから、YouTubeが著作権者にとって利益になる点を理解せず、やみくもにYouTubeに講義するJASRACは、自らの利権にしか関心のない「バカだ」というわけだ。
ただ、いちばん興味深かったのは番組の締めに宮台氏が語った来年の抱負で、「来年はフィールドワークからはなれて、理論構築の仕事にシフトしていきたい」とのことだった。いったいどんな著作が公刊されるのか、とても楽しみだ。

暴力型のいじめには被害届で対抗を

2006/12/27時事通信によれば、東京都千代田区の区立小学校で、教師に体罰を受けて2週間の打撲を負った生徒の保護者が、警視庁神田署に被害届を出したという。正しい流れだ。
(ただし、時事通信がわざわざ「女性教諭」というふうに、加害者の性別を特定している意図は理解できない)
加害者が生徒の場合でも客観的な身体的被害がある場合は、ただちに警察署に被害届を出して警察を介入させるべきだ。そうすれば、いくら小学生でも「いじめは損だ」ということぐらい分かってくるので、内藤朝雄氏のいう暴力型のいじめは確実に減るだろう。
残るは「コミュニケーション操作型」のいじめ、つまり「シカト」や言葉によるいじめだ。こちらの方については内藤朝雄氏は固定的なクラス分けの制度を廃止しない限り改善は難しいだろうと書いている。
いずれにせよ、学校であれ会社であれ、客観的な身体的被害を証明できるならきっちり被害届を出して暴力方のいじめは「警察沙汰」にすべきである。そうするしかいじめを減らす実効のある方法はない。