ｃｊ

Option Explicit
' 参照設定
' Microsoft InternetControls
' Microsoft HTML Object Library
' Microsoft VBScript Regular Expressions 5.5
Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)
Const SU = "http://textream.yahoo.co.jp/message/"
Const SU1 = SU & "1834634/bgbd02bda5qa5bda53a5sa4o"
Const SU2 = SU & "1834634/bgbd02bda5qa5bda53a5sa4oa1aa32"
Const SU6 = SU & "2000335/c0beita5qa5bda53a5sa5afa5ia5va1a12bc4xa1a1a4bda4nobba1a1"
Const SLIST = "〓winsuki2007〓wat*****〓kei2300jp〓" ' 追加可。両端は区切り文字。
Const SDLM = "〓" ' SLIST の区切り文字
Const SPTN = "userName[^>]*>([^<]+)<"

Sub ポチッ() ' 簡易簡略版
Dim arrU()
Dim vU
Dim oIe As InternetExplorer
Dim oE As HTMLDTElement
Dim oRe As RegExp
Dim oM As Match
Dim sIH As String
Dim cn As Long
Dim arrF(0 To 19) As Boolean
Dim flg As Boolean

arrU = Array(SU1, SU2, SU6)

Set oRe = New RegExp
With oRe
　　.Global = True
　　.IgnoreCase = True
　　.Pattern = SPTN
End With

Set oIe = New InternetExplorer
With oIe
　　.Visible = True

　　For Each vU In arrU
　　　　.Navigate vU

　　　　Do

　　　　　　While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend

　　　　　　sIH = .Document.Body.innerHtml
　　　　　　Erase arrF
　　　　　　cn = 0
　　　　　　For Each oM In oRe.Execute(sIH)
　　　　　　　　If InStr(SLIST, SDLM & oM.SubMatches(0) & SDLM) Then arrF(cn) = True
　　　　　　　　cn = cn + 1
　　　　　　Next

　　　　　　cn = 0
　　　　　　For Each oE In .Document.getElementsByClassName("btnBad")
　　　　　　　　If arrF(cn) Then
　　　　　　　　　　oE.Children(0).Click
　　　　　　　　　　DoEvents
　　　　　　　　End If
　　　　　　　　cn = cn + 1
　　　　　　Next

'　　　　　　cn = 0
'　　　　　　For Each oE In .Document.getElementsByClassName("btnGood")
'　　　　　　　　If Not arrF(cn) Then
'　　　　　　　　　　oE.Children(0).Click
'　　　　　　　　　　DoEvents
'　　　　　　　　End If
'　　　　　　　　cn = cn + 1
'　　　　　　Next

　　　　　　flg = False
　　　　　　With .Document.getElementsByClassName("btnNext")
　　　　　　　　If .Length Then
　　　　　　　　　　.Item(0).Children(0).Click
　　　　　　　　　　flg = True
　　　　　　　　End If
　　　　　　End With

　　　　Loop While flg

　　Next vU

　　.Quit
End With
End Sub

'普通ポチボタンってipアドレスに付き１回よね？iいつまで？

花より団子？キングコングさん【ヤング】なのね。

出来ればキングコングの大きな指で鼻をつまんで欲しかったのですが、
目の前にあった【トング】で我慢しました。

あー！だから新婦は唐突にカーペンターズの【Sing】を歌いだしたのですね。

ピンクから真紅へ。心機一転、【私宅】の壁も塗り直します。

定数削減、一票の格差是正。国会のお【掃除】もしっかりやってほしい。
"当時も今も"とならないように。

【日銭】を貯めてようやく肥前までの旅費ができました。

遺産の当てが外れた人を救済する【機関】はありません。
今のところ「おかん」頼みです。やはり。

では【仔細】に記載しておきます。

程好く【雨雪】があれば、花粉の飛散も多少は抑えられるのですが。

危険はないと判って安心。【始発】まで呑みます。

きっと素晴らしい【個性】で世を動かすひと。

///
いつもながら、温かく迎えてくださる皆さんに感謝します。
拙集計データご覧頂いた皆さん、ありがとうございます。
実際に集計作業を経てみて、ひとつひとつの積み重ねで創られた歴史の重みを
強く感じた私です。
あ、えー、私、理系、、、ではないんですよ(^^;
（数字が好きだったり、数字を読む感覚が少し人とは違ってたりするみたいですけれども。）
今回の集計はすべてExcelで作成したものです。
そもそも私がこちらに参加するようになったのは、「ExcelとVBAの休憩所」というトピックで
るーもす さん と らうたん さんにお会いしたことがきっかけです。
ちょっと想うところあって今回、Excelにこだわったのですが、
、、、そうそう、凄いのは、えくせる君、ですね(^^)

【付近】の競合店の存在が大いに励みになっています。

＃投稿者数：全208名

＃１００レス以上の投稿者
旧Yahoo!掲示板ニックネーム　#初登場(全投稿数)
aiueaiko_yo #5448(435)
btyyd951 #41446(135)
cj_mover #32194(548)
dozio999 #6341(454)
foggyzone #2572(7150)
gody110 #45(530)
gonakio2000 #7574(134)
gracest1224 #52621(171)
guutara7426 #3882(861)
harimanada_1 #1(3820)
jijinoasa #42280(267)
johmodoki #29808(1440)
kurosagi_jj #39687(119)
lautanlp(laut*) #524(16835)
meru334 #27947(104)
mey_0009 #9(462)
micky_faraway #16243(154)
milnovecientos78junio #37545(766)
monaka_nokonoko #8242(230)
musasii1357 #39675(321)
namakura_tsurishi #17638(1794)
rouzin79 #41307(116)
suiito11 #11946(540)
tatelumos #8906(11906)
theta9161 #15640(4084)
toonkigou_es #53903(102)
umini_koisite #6(202)
unvollendete_759 #1993(363)
unvollendete759 #68(194)
yumeneko3345 #15868(108)

※敬称略。abc順。
＃お名前すべて載せようかと思ったのですが、文字数制限がキツイのですみません。

＃最も投稿が多かった日
2005/09/08 No.16320から 73件

＃最も投稿が集中した一時間
2006/1/22 10時台 No.19808から 12件

＃時間帯別投稿数
　 0: 973
　 1: 298
　 2: 160
　 3: 159
　 4: 1296
　 5: 1666
　 6: 2171
　 7: 1790
　 8: 4136
　 9: 1896
　10: 2595
　11: 2138
　12: 5079
　13: 2421
　14: 1546
　15: 1383
　16: 1546
　17: 3499
　18: 3186
　19: 4262
　20: 4463
　21: 4093
　22: 3478
　23: 2476

///以上です。
※2003/1/1 - 2013/2/20 23:32 Yahoo!掲示板 全56627件

＃「３月下旬にサービスを終了」と、最新のアナウンスに書かれたままですが、いつの間にか、
このトピックはYahoo!掲示板での閲覧が出来なくなっていて（他所ではまだ開いているトピックもあるようですが）、
既にtextreamに完全移行したようですね。
この、呆気ない終り方が、なんともYahoo!掲示板らしい、とか思ってしまう私です。
さようなら言おうと思ってたら、もう発っちゃってたみたい。

///
textreamのデータ拾いもプログラム書いてあるのですが、細かい仕様が忙しく変わっているので、ついていけません。
はやく落ち着くといいのですけどね（できればもう少し便利に）。

投稿できない文字とか、慣れない制約に慌てて編集し直たりして、拙い内容になってしまいました。
トピの歴史を振り返るのはここまでにして、
これからもずっと刻まれ続ける新しい歴史を楽しみにしていこうと思います。

#3カブリ

被った回数：1913

同音繋ぎで被った回数：183

＃同音被りINDEX
元のことば　被ったNo.

おでこ　 913
みはり　 927
ほんね　1048
そばこ　1118
すいじ　1247
めしえ　1552
いこじ　1640
やもめ　1862
たらい　1881
きとう　2244
おやま　2370
かみゅ　3069
しじみ　3766
あいす　3819
らいか　4431
とうじ　4737
みそか　4858
ごまぎ　5092
といき　5456
こはく　6153
まつり　6225
かまど　6365
ふけい　6396
ずかい　6404
かっぱ　6454
きがん　6559
ようび　6767
かっこ　7654
ふざけ　7824
ごけん　8021
こまき　8080
たごん　8222
かまど　8944
こまち　8997
きせつ　9190
じこう　9257
きのう　9261
いびき　9294
ださく 10140
じびき 10285
ひわり 10620
すわこ 10944
すぶた 10956
うずら 11433
だるま 11546
かつろ 11781
はたご 12181
てれび 12443
とっか 12817
しふく 13167
とちぎ 13396
かずら 13715
おわり 13768
おこし 14016
ほんと 14084
じごく 14590
ぴっぷ 15098
ぷさん 15565
きげん 16147
かじん 16180
かぎり 16481
かざり 16483
とまと 16532
いつき 16545
ごめん 16568
わいん 17174
わがし 17287
しっぽ 17374
はいど 17405
ぼくし 17801
しばり 17889
そがい 17947
はあく 17990
かいて 18084
ろっく 18088
がれば 18105
らんち 18205
えんた 18214
おかき 18279
まるか 18364
ゆそう 18699
りそう 18702
ぎんみ 19095
おでん 19355
すずこ 19812
こるす 19844
げいこ 20798
べにす 22422
はいし 22558
はられ 22846
しるし 22870
ふるき 22928
ぼうず 23020
あびば 23107
きさき 23214
とらい 23658
しんぴ 24282
ささい 24784
しんか 24948
はれま 25238
ほうけ 25376
とくま 25745
かほく 26284
おつげ 26381
りがく 26695
じゅり 26787
とるて 27252
ふがし 28195
あんご 28235
さいず 28245
わっと 28277
のうり 29007
えもり 29071
やしま 29108
きどう 29135
ひけめ 29223
にっき 29412
みけん 30173
てんぱ 30357
たんご 30372
きけん 30696
どそく 30725
こさじ 31251
ばいと 31287
おぼろ 31650
かんき 31690
そーぷ 31826
えかき 32253
ぱろま 32584
ぶーす 32632
もずく 33171
ほーむ 34025
ちゃい 35330
いっさ 35581
すいむ 35701
てんぐ 35714
ほうや 35963
どっぽ 36300
るーつ 36712
いたこ 36847
えんき 36933
ようい 37793
ほっけ 38139
かいと 38452
さがん 38894
しんさ 39724
うわさ 39987
べるん 40148
いいん 41414
でばん 41426
ごじら 41437
のろい 41579
ほてい 41611
うだつ 41898
かえら 42325
おーる 42700
さぬき 42930
とんざ 43108
しんか 44897
もさど 45020
しった 45402
いもん 45770
じげん 45773
さんぽ 46890
ぎょく 47929
ほこう 47949
もずく 49057
したぎ 49254
かんじ 49422
しじみ 50613
ふかい 51378
からむ 51413
はくば 52824
どうろ 52875
はばな 52979
ぐろす 53175
けいか 54322
こはん 55037
ひだち 56009
あゆみ 56347
やがい 56382
ひそう 56678
きげん 57138

この内2度同じ繋ぎで被ったのが一例。
33171、49057、もずく→しずく、何れも、らうたんさんからジョーさんでした。

るーもすさん→らうたんさんが最多１７回（逆順１５回）
らうたんさん→ハリーさん９回など。

2003/1/1 9:27-2013/2/20 23:32Yahoo!掲示板

【試験】に出ないことを祈ります。

2003/1/1 9:27　から　2013/2/20 23:32　まで
Yahoo!掲示板に投稿された数：57225

有効な繋ぎ：56627
（「被り」で枝になった投稿含む）
（後に繋がっていても、前に繋がらないものや不正な繋ぎは除く）

繋いだことば（かな）の種類：8854

■繋いだことば（かな）多い順３０
順位　→ことば　回数
　 1　→てんき　122
　 2　→かんき　99
　 3　→しかい　91
　 4　→じかん　89
　 5　→じかい　82
　 6　→かんじ　81
　 7　→しかく　69
　 8　→こんき　67
　 8　→きんし　67
　 8　→きたい　67
　11　→きかい　65
　12　→たいき　64
　13　→いかん　63
　14　→みかん　62
　15　→とかい　61
　15　→さんか　61
　17　→こうき　60
　17　→さいふ　60
　19　→しんか　59
　19　→あんじ　59
　21　→りかい　58
　21　→てんか　58
　21　→かっき　58
　24　→げんき　57
　25　→たんき　56
　25　→てんし　56
　25　→きかん　56
　28　→もんく　55
　28　→しんき　55
　30　→さんじ　54
　30　→そうじ　54

繋ぎ（かな）の種類：39876

■繋ぎ（かな）多い順２０
順位　繋ぎ　　　　　　回数
　 1　てんき→でんき　21
　 2　けいき→けーき　16
　 3　しかい→じかい　14
　 4　しかく→じかく　13
　 5　にっき→にんき　12
　 5　だんす→たんす　12
　 7　しかい→しかく　11
　 7　ひかん→ひがん　11
　 7　きけん→きげん　11
　 7　へんじ→へいじ　11
　11　しんく→ぴんく　10
　11　じかい→じかん　10
　11　かんき→てんき　10
　11　てんき→かんき　10
　11　しせん→しぜん　10
　11　かんき→かっき　10
　11　じかく→じかい　10
　11　じかん→きかん　10
　11　しあい→じあい　10
　20　きんく→もんく　 9
　20　きたい→きたく　 9
　20　きたい→きたん　 9
　20　だんご→りんご　 9
　20　さいど→さいふ　 9
　20　みらい→みてい　 9
　20　かいき→かいぎ　 9
　20　さいふ→ないふ　 9
　20　ばっと→ばんと　 9
　20　きげん→きげき　 9
　20　でんき→てんき　 9
　20　そうり→ぞうり　 9
　20　とうき→どうき　 9
　20　かんぱ→かっぱ　 9
　20　みけん→こけん　 9
　20　にっき→にっか　 9
　20　ほうき→ほんき　 9
　20　じたく→したく　 9
　20　ぴんち→ぴーち　 9
　20　じかん→しかん　 9
　20　こうか→ごうか　 9
　20　えんき→てんき　 9

＃同音異義語が多様なものが上位となる傾向が強いですね。
「かな」ではなく、繋いだ単語を抽出するのは、かなりの困難が予想されるので躊躇しています。
やりたいとはおもっているのですが、、、。

＃タイトルの間違いが概算で2000件弱ありました。
努めて融通を利かす形ですべて正規化しました。

＃前出のINDEXについて
（※今現在textreanで[次のページ]を遡って４０件ずつ閲覧出来るのは　2012/11/21 17:32 No.56416　以降の投稿に限られています）
（※今現在textreanで投稿No.を指定した場合は、一件ずつ閲覧するよりないようです）
もしかしたら、今から残り数日しか出来ないこと、なのかも知れないので、今記しておきますが
将来、Yahoo!掲示板を知らない人が見たら、
目的が理解されないINDEXになっているのかも知れませんね。

＃No.5323-5330、2003年12月31日-2004年1月1日にあったYahoo!掲示板のシステム障害をはじめとして、
思うように投稿できなかったことが原因で繋ぎが絶たれて（乱れて）しまったことも少なからずありますね。

＃Yahoo!掲示板での自投稿の削除について、ユーザーの権限が変更されたことが何度かありました。
順調に繋がっている中、まとめて３つ４つの投稿が削除されてしまっていて「繋ぎ」を修復できない箇所が幾つかあります。
間に一件だけ削除されていて、前後の投稿と明らかに繋がっている場合は、修復しています。

このつづきは、、、また？

///
すみません、うまく投稿が反映されなくて、２度削除しました。

#1:INDEX

投稿No.を参照して過去にあった子スレッドを追いかける、まとめ読みやスレッド読みのようなこと
textreanでも出来るようになるでしょうか？
今から残り数日しか出来ないこと、かも知れないので、今記しておきます。
No. yy/mm (繋ぎ)
　　　1 03/01 (　 4)
　　　8 03/01 (　25)
　　 36 03/01 (　 6)
　　 43 03/01 (　23)
　　 71 03/01 (　47)
　　120 03/01 (　10)
　　132 03/01 (　74)
　　209 03/01 (　 3)
　　213 03/01 (　81)
　　305 03/01 (　69)
　　379 03/02 (　18)
　　398 03/02 (　24)
　　428 03/02 (　27)
　　457 03/02 (　17)
　　477 03/02 (　14)
　　496 03/02 ( 205)
　　721 03/02 (　49)
　　774 03/02 (　22)
　　799 03/02 (　 2)
　　802 03/02 ( 231)
　 1051 03/03 ( 234)
　 1299 03/03 ( 874)
　 2215 03/05 (　39)
　 2259 03/05 (　39)
　 2301 03/05 ( 793)
　 3132 03/07 (　96)
　 3231 03/07 ( 266)
　 3512 03/08 ( 805)
　 4359 03/10 ( 868)
　 5260 03/12 (　61)
　 5325 03/12 (　 8)
　 5335 04/01 (　 9)
　 5345 04/01 ( 104)
　 5451 04/01 ( 378)
　 5859 04/02 (　18)
　 5878 04/02 ( 253)
　 6142 04/02 (　49)
　 6200 04/02 (　99)
　 6310 04/03 (　35)
　 6348 04/03 ( 284)
　 6663 04/03 ( 187)
　 6864 04/04 (　55)
　 6923 04/04 ( 398)
　 7344 04/05 ( 106)
　 7455 04/05 (　 5)
　 7461 04/05 (1981)
　 9566 04/10 ( 215)
　 9793 04/10 (　50)
　 9846 04/10 ( 814)
　10707 04/12 ( 581)
　11308 05/01 (　 5)
　11317 05/01 ( 484)
　11832 05/02 ( 102)
　11947 05/03 (3721)
　15884 05/08 ( 423)
　16372 05/09 ( 623)
　17033 05/10 ( 473)
　17539 05/10 ( 686)
　18281 05/11 (3069)
　21511 06/04 ( 658)
　22199 06/05 ( 921)
　23173 06/06 ( 106)
　23285 06/06 (5653)
　29192 07/03 (1048)
　30313 07/05 ( 617)
　30981 07/06 ( 984)
　32031 07/08 ( 365)
　32418 07/09 ( 444)
　32888 07/09 ( 620)
　33541 07/10 ( 875)
　34433 08/01 ( 163)
　34602 08/01 ( 722)
　35337 08/03 ( 228)
　35569 08/04 ( 507)
　36091 08/06 (　 6)
　36098 08/06 ( 343)
　36456 08/07 ( 250)
　36714 08/07 (2294)
　39085 09/01 (　 0)
　39091 09/01 ( 579)
　39694 09/03 (1631)
　41399 09/07 ( 458)
　41883 09/07 ( 252)
　42146 09/08 (1644)
　43875 09/11 ( 938)
　44853 10/01 (2006)
　46895 10/08 ( 788)
　47702 10/10 (1324)
　49062 11/02 (2854)
　51982 11/10 (　45)
　52031 11/10 (2242)
　54358 12/05 ( 128)
　54491 12/05 ( 532)
　55034 12/07 ( 605)
　55650 12/09 ( 888)
　56572 12/12 ( 635) + 181