ZeroP/ひろやさんのページ

ユーザーボックス

このユーザーはIntelのCPUを使用しています。 このユーザーはWindowsを利用しています。 このユーザーはプレミアム会員です。 このユーザーは動画投稿者として活動しています。 このユーザーは大百科編集者として活動しています。 このユーザーは記事編集をゆっくりしていく傾向があります。 このユーザーはそこそこのミク廃です。 このユーザーは少し不思議なものに興味を持っています。 このユーザーはそこはかとなく危険です。 このユーザーはテツです。 このユーザーはカラオケが大好きです。 このユーザーは２ちゃんねるを利用しています。 このユーザーは@Zerop2525の名でTwitterでつぶやいています。 このユーザーはGoogle Chromeを利用しています。 printf("このユーザーはある程度のC言語を理解しています。\n"); std::cout << "このユーザーはある程度のC++を理解しています。" << std::endl; Wiki = MsgBox ("このユーザーはある程度のMicrosoft Visual Basicを理解しています。", vbOKOnly); <p>このユーザーはある程度のHTMLを理解しています。</p> このユーザーはコマンドプロンプトを扱えます。 このユーザーはWILLCOMを使用しています。 このユーザーは歩く人を持っています。

ZeroP(ゼロップ)です。昔LISPをやっていてその関数名からつけてみました。読み方が違う？気にしない。

カラオケ動画の作成や若干のオリ曲の作成を行っています。最近は大百科の編集にはまっている。

音楽

大百科

新規作成した記事は以下のような感じです。リダイレクト表示は作成時の状態です。太字は自分のお気に入りです。

単語記事

INDEX/あいまい回避(作成時) CPR F3 GL(リダイレクト) ウルスラ(リダイレクト) クタパン 声優病 ハラマキ(リダイレクト) 四代目(リダイレクト) 裏セブン(リダイレクト) 松尾芭蕉  アニメ アイ・ホシミヤ あぃまぃみぃ!ストロベリー・エッグ 銀の匙SilverSpoon(リダイレクト) グリュンヒルデ・セレニティ クタぱん ケイン・マクドゥガル サイクロプス少女さいぷ〜 ジェニー・ドリトル シュニッツァー 閃光の指圧師(リダイレクト) チアキ・クリハラ ドンチキ田中(リダイレクト) ナタリア・グレンノース ニップレ鈴木(リダイレクト) のだめカンタービレフィナーレ(リダイレクト) フローラ ペリーヌ物語 ポトフ(モーレツ宇宙海賊) ヤヨイ・ヨシトミ リン・ランブレッタ ルカ(モーレツ宇宙海賊) 遠藤マミ 加藤梨理香 銀河の歴史がまた1ページ 原田真希 三代目(モーレツ宇宙海賊) 小林丸翔子 松尾芭蕉(戦国コレクション) 白凰女学院ヨット部 弁天丸 百眼

医学 ピーエイ配合錠(リダイレクト) PL配合顆粒 カルバマゼピン サリドマイド サラザック配合顆粒(リダイレクト) 心肺蘇生法 睡眠時無呼吸症候群 睡眠障害 セラキナ配合顆粒(リダイレクト) テグレトール(リダイレクト) テレスミン(リダイレクト) マリキナ配合顆粒(リダイレクト) フラベリック レキシン(リダイレクト)  音楽 POPCON(リダイレクト) tellyourworld(リダイレクト) ミックスボイス ボカコン ヤマハポピュラーソングコンテスト 岩里祐穂 世界ボーカロイド大会  経済 B/S(リダイレクト) GDP バランスシート(リダイレクト) 金の成る木 貸借対照表

言語 50音(リダイレクト) ダウナーフラグ ら抜き言葉 間諜(リダイレクト) 主な(非自動リンク)  声優 安野希世乃 西明日香 津田英三 鶴ひろみ 野村香菜子 その他 119番 5円 24262円 Automation Engineer Shazam USO あどりぶ 北スーダン王国 極楽寺駅 こ食 さしすせそ 相乗平均 千田純生 飛んでみた NicoNicoMusic 西あすか にしあす病 (西ﾟ∀ﾟ)ｱﾊﾊハハ八八ﾉヽﾉヽノヽノ＼/＼ 入力したコメントはこの動画では投稿できません 猫ブース鬼パーセント芋 萌えぷちチャット 指輪 預言者 嫁コレ

動画記事

• 【ニコカラ】夢みることり with みく
• 【ニコカラ】夢みることり with りん
• 落語　「耳なし芳一」　林家正蔵（八代目）
• 洲崎西 #33 (2014.02.11) 

商品記事

• 懐想~linked to 40yrs~

素材

地図記号(正方形が並んでます)

 (左に空白のタイルがあります)

その他

その他のお絵カキコ

1から描いた、もしくは元が自分

元がある

ピコカキコ

ピコカキコ	タイトル	場所	備考
	なんつってつちゃった	ゆゆ式	はじめてのピコカキコ
	100BPM	心肺蘇生法	100BPMは大事です
	時報	時報	簡単そうだったから
	キラキラ星	ピコカキコ:基礎コース(1級)	本格的にはじめるにあたっての練習
	こんな目覚ましは嫌だ	時計	目覚ましの音を元に作成

ツール

掲示板からお絵カキコ部分を抜き出して抽出するEXCELのマクロです。縦も横も128を越えないように調整します。

• 抽出例

<img title="1111:中央" alt="中央" src="/oekaki/216029.png" width=60 height=30 />
…

• ソース

Option Explicit
'OutFile$:(IN):出力ファイル名(C:\TMP\a.txt等)
'BaseURL$:(IN):掲示板のURLで最後の/1-を除いたもの(https://dic.nicovideo.jp/b/a/c等)
'ST:(IN):抽出開始RES番号
'EN:(IN):抽出終了RES番号
Sub ExtractPic(OutFile$, BaseURL$, ST As Long, EN As Long) ' ここを呼ぶ
    Dim I30 As Long
    Dim S30 As Long
    Dim E30 As Long
    Dim FN As Long
    FN = FreeFile()
    S30 = Int((ST - 1) / 30) * 30 + 1
    E30 = Int((EN - 1) / 30) * 30 + 1
    Open OutFile$ For Output As #FN
    For I30 = S30 To E30 Step 30
        ExtractPicSub FN, BaseURL$ + "/" + Format(I30) + "/-", ST, EN
    Next
    Close #FN
End Sub

Sub ExtractPicSub(FN As Long, URL$, ST As Long, EN As Long)
    Dim I As Long
    Dim J As Long
    Dim objXML As New MSHTML.HTMLDocument
    Dim htmlDoc As New MSHTML.HTMLDocument
    Dim objITEM1 As Object
    Dim objITEM2 As Object
    Dim objITEM3 As Object
    Dim W$
    Dim ID$, TITLE$
    Dim ResNo
    Dim WI As Long, HI As Long
    Dim NH As Long
    Dim NW As Long
    Dim NHW As Long
    Const MAXH As Long = 128 '最大の高さ
    Const MAXW As Long = 128 '最大の幅

    Set htmlDoc = objXML.createDocumentFromUrl(URL$, vbNullString)
    Call untilReady(htmlDoc)
    
    For Each objITEM1 In htmlDoc.getElementsByTagName("DL")
        For Each objITEM2 In objITEM1.all
            If objITEM2.nodeName = "A" Then
                If objITEM2.Name <> "" Then
                    ResNo = Val(objITEM2.Name)
                End If
            ElseIf objITEM2.nodeName = "DD" Then
                For Each objITEM3 In objITEM2.all
                    If objITEM3.nodeName = "DIV" Then
                        W$ = objITEM2.innerText
                        I = InStrRev(W$, "タイトル:")
                        ID$ = objITEM3.ID
                        If I > 0 Then
                            I = I + 5
                            J = InStr(I, W$, vbCr)
                            If J > 0 Then
                                TITLE$ = Mid$(W$, I, J - I)
                            End If
                        End If
                    End If
                Next
            ElseIf objITEM2.nodeName = "IMG" Then
                If ST <= ResNo And ResNo <= EN Then
                    'WI$ = objITEM2.Width  なぜかこれだと0になる
                    'HI$ = objITEM2.Height なぜかこれだと0になる
                    W$ = objITEM2.outerHTML
                    I = InStrRev(W$, "height=")
                    If I > 0 Then
                        HI = Val(Mid$(W$, I + 7))
                        I = InStrRev(W$, "width=")
                        If I > 0 Then
                            WI = Val(Mid$(W$, I + 6))
                            If HI > MAXH Then
                                NH = -Int(-HI / MAXH)
                            Else
                                NH = 1
                            End If
                            If WI > MAXW Then
                                NW = -Int(-WI / MAXW)
                            Else
                                NW = 1
                            End If
                            If NH > NW Then
                                NHW = NH
                            Else
                                NHW = NW
                            End If
                            
                            Print #1, "<img title="""; Format(ResNo); ":"; TITLE$; """"; _
                               " alt="""; TITLE$; """"; _
                               " src=""/oekaki/"; Mid$(ID$, 7); ".png""";
                            Print #1, " width="; Format(Int(WI / NHW)); " height="; Format(Int(HI / NHW)); " />"
                        Else
                        End If
                    Else
                    End If
                End If
            End If
        Next
    Next
    Set objITEM1 = Nothing
    Set objITEM2 = Nothing
    Set objITEM3 = Nothing
    Set htmlDoc = Nothing
    Set objXML = Nothing
End Sub
Sub untilReady(htmlDoc As MSHTML.HTMLDocument, Optional ByVal WaitTime As Integer = 10)
    Dim starttime As Date
    starttime = Now()
    Do Until htmlDoc.ReadyState = "complete"
        DoEvents
        If Now() > DateAdd("S", WaitTime, starttime) Then
            Exit Do
        End If
    Loop
    DoEvents
End Sub

ニコニコ大百科 #nextnicopedia ライトニングトーク

ニコニコ大百科(以下大百科)でwikipediaやアンサイクロペディアと同じことをやっていても仕方がない。

大百科の良さ

• 本当のことも嘘のことも書ける
• ピコカキコやお絵カキコの存在，かつそれを二次創作のソースにできる
• 掲示板がある(足りない情報を収集できる)→睡眠障害，フラベリック

私の考える大百科

• wikiの様な堅苦しさよりニコニコ動画の様な面白さのほうが優先される
• ソースはあるにこしたことはないが，ある程度予想できる未来のことを書いてもよいのでは→3Dプリンタ
• 医学や薬は専門外だが自分が興味深い事象があれば(ニコニコ大百科：医学記事一覧のテンプレ使いつつ)書く→フラベリック，心肺蘇生法
• 「えっ! そうだったの?」的なことは積極的に書く→ら抜き言葉
• 流行りそうなことを流行るよりも前に書くのが醍醐味→西明日香

まとめ

• 大百科でも「その発想はなかった」的なことを書きたい
• ニコニコ動画がある程度社会に影響を与え始めているように，そろそろ大百科が発端でついうっかり何かが起きてもいいころ →国債(政府が赤字になる仕組み)