ミニロトリハーサルデータの整備～ロトの遊舎編

ミニロトリハーサルとは、火曜のミニロト本抽選前に行われている模擬抽選のことです。ロト抽選機（通称夢ロト君）がきちんと動くかどうかのチェック、抽選各手順の確認などのために行われているようです。本抽選と同じく本数字5個とボーナス数字1個を模擬抽選しています。もちろん、ロト6も同様です。

ロト6の方は、リハーサルデータの整備がある程度進んでいるので、ここでもアップしているのだけど、ミニロトの方は過去のリハーサル結果の情報元が少なく、信頼度に欠けるのが難点^[1]。が、誰かがやった方がよいと思うのと、これまで、誰もやってないようなので、とりあえずやることにしよう、ということで

準備と予定

ミニロトのリハーサル結果をネット上で公開しているのは、じゃむの知ってる限りでは、

1. ロトの遊舎（http://www3.zero.ad.jp/yusya/）
2. ミニロト6研究会（http://www.sml6.net/）
3. ロト6ミニロト予想 cogito,ergo sum – 神はさいころ遊びをしない 3rd（http://loto6miniloto.net/）

以上の三カ所。言うまでもないとは思うけど、3番目はここのサイト^[2]

ロトの遊舎、ミニロト6研究会ともにミニロトのリハーサル結果配信は、現在停止中^[3]。なので、ある種の危機感を持ってミニロトリハーサル結果データの整備をせにゃいかんな、と思い立った次第。じゃむもいつまで続けられるか分かんないし、ここいらで、手に入るミニロトリハーサル結果を全部まとめておいた方がよいだろう、と。誰かが引き継いでくれるかもしれないし。それに、Excelファイルとかにしておけば、分析とかやりやすくなるし。

ミニロトリハーサルデータ整備の予定は、まず、3サイト発表分をそれぞれExcelファイル（ダウンロード提供するつもり）と、テーブルタグで表形式にしてここのサイトにアップ。次に、データ校正して正しい（と思われる）ミニロトリハーサル結果にまとめあげる。という流れ。

最初に書いておくと、残念ながら、おそらく、ミニロトリハーサル結果は、全回分は整備できないだろうと思う。ロトの遊舎発表分が第27回から第392回まで、ミニロト6研究会も似たような感じ。ここのリハーサルデータも、独自に記録し始めたのが去年2008年の9月9日第474回からだし。でも、虫食い状態でも、もしかしたら、価値があるかもしれないので、整備した方がよいだろうと思う。^[4]

さて今回は、ロトの遊舎のミニロトリハーサルデータの整備をば。

ロトの遊舎のミニロトリハーサルデータについて

ロトの遊舎でのミニロトリハーサル結果発表は、第27回抽選リハーサル結果からしか発表されてないのだけど、それ以前はリハーサルがなかったのだろうか。いや、そんなはずはないな。事情を詳しく知ってる人がいれば情報提供してもらえると助かります。

あと、これはどうでもよいことだけど、

苦労して集めた資料です　無断転載　お断りいたします。

とか書いてあるのは、ちょっとアホぽいな、と思う。じゃむならば、

苦労して集めた資料です　存分に使って下さい。

と書くけどな。コピペでお手軽に情報パクられたとしても、リンクを１個もらえればラッキーっちゅう風に思うけど。ネット上なんて、そんなもんでしょ（自由主義と著作権問題）。コピペで右から左へ移されるだけの内容しかないサイトならば、空虚だ。そんなところは、コピペの嵐に埋もれてしまえばいい。

もしくは、コピペではなくならない価値を実現すればよい。

使われてこそ情報は価値を持つわけでもあり、価値や意味は他者が見いだすものであり。

さらに言えば、個人がこれこれこれだけ時間をかけました（つまり労働価値は労働時間で表示れさるということだが）という謂は、無意味である。「人生30年の心血を注いで書いた作品です、だから芥川賞にあたいするはず」、って謂ならば、無意味で、かなり馬鹿な発言だってのがより分かりやすい。

とにかく、ネット上というのは、情報があふれかえってるわけだけど（玉石混淆として）、それは、相対的に、各情報を生成する労働時間が限りなく０に近づけられるということであり、だから、たとえば、ブロガーがブログに記事を書いても、アクセス数が伸びず、何のためにこんなに時間かけて書いて公開してるのか馬鹿馬鹿しいなぁと思ったりするという風な場面として現象する。機械的に情報を再生産する手法も各種あり、ますます人力でやるのが馬鹿馬鹿しくなったりする、、、

馬鹿馬鹿しくなるのは、自分の価値を過大に評価しているからだね。確かにリアル世界よりもネット上では、価値基準がより厳しいわけではあるが、、、

考え方を変えればよい。ネットというシステムは、断片化されたあふれかえる情報を、有効に組み合わせて、新たなる価値を創造するシステムだと思えばよい。つまり、個としては断片化（もしくは労働価値０化）に耐えろ、ということである。

じゃむは、自分さえ良ければよいという思想一般（つまりは自由主義だ）が大嫌いだけれど、誰かのために、とか、みんなのためにとかという言説も大嫌いだ。「お客様は神様です」というのは、当たり前のことを敢えて言表することで、違う意味（意図・動機）を表現しているようにも思う。

お客様（読み手・買い手・消費者・視聴者）が神様なのは当たり前である。商品は買われて使用されてこそその価値を実現するものであり、商品自体に価値が備わっているわけではない。買う立場は強いのだ。たとえば、労働者－経営者という位相では、労働者（＝商品所有者）は、経営者（＝買う立場）に従属するしかないが、消費者（＝買う立場）に立てば、その立場は逆転する。したがって、現在の企業経営者の横暴ぶり（もしくは無能ぶり）を矯正してあげるには、政治ではなく、消費者という立場による不買運動こそが有効である（実は、潜在的・無意識的に、この消費者による不買運動は始まっていると思われる）。

言語も、商品という位相を持ちうる。

ネット上は、基本としては、自由主義でよいし、管理すべきではない。ネット規制法とかいろいろと管理が強化されている現状ではあるが、ネット上を規制するよりも企業を規制する方が、より政治理念に忠実であろうと信ずるがね。

閑話休題

ロトの遊舎発表のミニロトリハーサル結果のデータを取り込むのにはちょっと苦労するね。テーブルタグ使って表形式で発表してくれてるのはありがたいのだけれど、図を使うなよな、と。数字で発表してくれてれば、画面全部コピーしてExcelのシートにペーストで済む。ものの１分もかからない、、、まあでも、いちおう表形式なので、コピペでExcelシートに取り込めるのは助かるけど。

というわけで、データを手打ちでExcelのシートに入力していくとヒューマンエラーの可能性を排除できないので、汎用性はないけれど、Excel VBAで図を数字に変換して一覧にするコードを書いて、それでデータをExcelに取り込んでみました。準備として、まず、ロトの遊舎発表のミニロトリハーサル結果3ページ分をコピペでExcel1シートにまとめてから以下のコードを動かすと、ものの1秒で数字の一覧に変換。

Option Base 1
Sub ミニロトリハ出目一覧作成シェイプ置き換え()

Application.ScreenUpdating = False

Dim i As Integer, j As Integer, 最終行 As Integer, 行 As Integer, 列 As Integer, 高さ As Single, 図 As Shape
Dim リハ出目() As Integer, 仮() As Variant, シート元 As Worksheet

Set シート元 = Worksheets("ロトの遊舎リハ出目一覧")
最終行 = シート元.Cells(1, 1).End(xlDown).Row
ReDim 仮(最終行, 31)
ReDim リハ出目(最終行, 7)

For i = 1 To 最終行
    リハ出目(i, 1) = シート元.Cells(i, 1)
Next i

For Each 図 In シート元.Shapes
    行 = 図.TopLeftCell.Row
    列 = 図.TopLeftCell.Column
    高さ = 図.Height
    
    Select Case 高さ
        Case Is = 10.5
            仮(行, 列 - 2) = 列 - 2
        Case Is = 11.25
            仮(行, 列 - 2) = "B"
    End Select
    
Next 図

列 = 1

For i = 1 To 最終行
    For j = 1 To 31
        If 仮(i, j) <> 0 Then
            If 仮(i, j) <> "B" Then
                リハ出目(i, 1 + 列) = 仮(i, j)
                列 = 列 + 1
            Else
                リハ出目(i, 7) = j
            End If
        End If
    Next j
        列 = 1
Next i

Worksheets("ミニロトリハ出目一覧").Select
Range(Cells(1, 1), Cells(最終行, 7)) = リハ出目

Application.ScreenUpdating = True

End Sub

上記のコード、Excel VBA使いの達人から見れば、アホなコードかもしれないれど、とりあえず個人使用なので動けばよいのでね 　もっと美しいコードとかセンスよいコードにするにはどうしたらよいか是非指導願いたい。

ミニロトリハーサル結果一覧～ロトの遊舎発表

で、変換した結果を以下、テーブル形式による数字で。

ちなみに、ロトの遊舎の発表によると、第29・32回は、リハーサルが2回行われたとのことです。