図鑑説明文の単語からポケモンを逆引きするExcelを作ろうとして失敗した話

はじめに

普段ポケモンで小説を書いているんですが、常々思うことがあって。

特定の単語が含まれている図鑑説明文だけ抽出したい！！！

例えば、船に関係するポケモンを知りたい。
こういう時にまま有効なのは、図鑑説明文に「船」と入っているようなポケモンを探すこと。
現状これをできるのはポケモンWikiなわけですが、
ポケモンWikiだとポケモン以外の船がめちゃくちゃヒットして面倒な気持ちになる。

なら自分で作ればいいのでは？？？
と思ってとりあえずExcelで作ろうとしたら

図鑑説明文の逆引き抽出にはちゃんと成功した
が、失敗した。

という記事。

なぜ失敗したのか？

図鑑説明文の文量が意味わからないくらいあるから。

　　終
制作・著作
━━━━━
　ⓃⒽⓀ

そりゃ死ぬわ。
ピカチュウまでやったところでExcelの起動に死ぬほど時間がかかるようになったため、続行不可能と判断した。
新しいポケモンは説明文が少ないといっても、まだこれの30倍くらいはあるのに。

配布

スプシじゃFILTER関数がなかった。かなしい。

drive.google.com

逆にどこまではやれた？

見てもらうのが早いと思うので、↓こんな感じ。

結構Excelでいろいろできるもんですねという気持ちになった。

仕組み

備忘録かねて雑に書いておく

データベース

まずはデータベース作成から。

ポケモンリスト管理

フォルム名を含めたヒット欄を作りたかったのもあって、
まずはポケモンのリストを管理するシート。
↓これ見ればわかると思う。

図鑑説明データベース

A列はFilter関数で空白を削除したポケモンリストが出ている。
B列も同じ、図鑑ナンバー
C列以降に　ソフト名　図鑑説明
の順番で交互に書いていった。

データベース作成用ショートカット

AutoHotKeyを使って

選択部分をコピー
Excelに移動
ペースト
一つ右のセルに移動

までをキー1つでやってくれるようにした。
これで「Wikiの該当部分を選択→ショートカットキー」の繰り返しでデータベース入力ができる。ちょい高速化した。意味なかったけど。

#Hotif WinActive("ポケモンWiki")
F4:: {
; 1. 選択範囲をプレーンテキストに置き換えてクリップボードに格納
A_Clipboard := "" ; クリップボードをクリア
Send("^c") ; Ctrl+Cで選択範囲をコピー
ClipWait ; クリップボードにデータが入るのを待つ
A_Clipboard := A_Clipboard ;プレーンテキスト化
plainText := StrReplace(A_Clipboard, "`r`n", "`n") ; 改行コードを統一
Clipboard := plainText ; プレーンテキストをクリップボードに格納

; 2. 「PDST」を含むタイトルのウインドウをアクティブにする
pdstWinID := WinExist("PDST")
if pdstWinID {
WinActivate(pdstWinID)
WinWaitActive(pdstWinID)

; 3. ペーストを行う
Send("^v") ; Ctrl+Vでペースト
Sleep(200)

; 4. 矢印の右キー（→）を1度押す
Send("{Right}")
} else {
MsgBox("「PDST」を含むタイトルのウインドウが見つかりませんでした。")
}
}
#Hotif