はじめに

Qiitaの記事を見ているとき、ユーザーが書かれた記事一覧をまとめて見たいと思ったことはありませんか？

ユーザーが書かれたQiitaの記事一覧をタグごとに個数分析したり、タグで記事一覧をフィルターして見たいと思ったことはありませんか？

本記事は、その方法を紹介します。

本記事の対象者

ブックマークレットでQiitaの記事一覧を取得したい方
取得したQiitaの記事一覧をExcelで見たい方
Qiitaの過去記事から有用な記事を効率的に発掘したい方

方法

その方法とは、私が作成したブックマークレットでQiitaの記事一覧を取得し、Excelに貼り付けて眺めることです。

つぎに、私が作成したVBAでタグの個数分析を行い、Excelのフィルター機能を使ってタグで記事一覧をフィルターします。

手順

最初に、ブックマークレットを作成します。ウェブブラウザで新しいブックマークを追加して、名前欄に任意の名前を記入し、URL欄にこのリンクの中身を貼り付けます。
つぎに、Qiitaのページ（タグか、検索結果か、ユーザーか、組織）を開きます。ユーザーの場合は選択肢（投稿かストック）を選びます。
ブックマークレットをクリックしてQiitaの記事一覧を取得します。取得した記事一覧は通常クリップボードにコピーされ、そのままExcelに添付できます。クリップボードにコピーできなかった場合、テキストファイルとしてダウンロードします。
取得したQiitaの記事一覧をExcelに貼り付けます。
以降の節に書いたExcel VBAでタグを個数分析します。
Excelのフィルター機能をつかってタグでフィルターしてQiitaの記事一覧を見ます。タグの前後にカンマをつけたものを含むもので手動でフィルターします。

この方法の利点

Qiitaの記事一覧をシートごとにExcelファイルに保存して再利用することになるので、サーバーに負担をかけません。

タグごとに記事タイトルの一覧を眺めることになるので、人に負担をかけません。たとえば、JavaScriptとPythonの記事タイトルを交互に眺めるより、JavaScriptの記事タイトルだけを眺めてからPythonの記事タイトルだけを眺めたほうが人への負担が軽いです。

Qiitaのウェブページはページネーションで分割されていますが、この方法ではQiitaの記事一覧をまとめて眺められます。

Excelファイルとして眺めることによって、日時やストック数などの項目で並べ替えすることもでき、過去記事から有用な記事を効率的に発掘できます。

Qiita APIを使って記事一覧を取得するブックマークレット

このリポジトリに、webpackにかける前のブックマークレットのソースプログラムがあります。

この記事で、ブックマークレットを出力するためのwebpackのプラグインについて書きました。

URLとQiita APIの対応

タイプ	URL	Qiita API
タグ	qiita.com/ tags/$tag_id	/api/v2/tags/ $tag_id/items
検索結果	qiita.com/ search?q=$query_id	/api/v2/items ?query=$query_id
ユーザー（投稿）	qiita.com/ $user_id	/api/v2/users/ $user_id/items
ユーザー（ストック）	qiita.com/ $user_id	/api/v2/users/ $user_id/stocks
組織	qiita.com/ organizations/$org_id	/api/v2/items ?query=org:$org_id

ブックマークレットが取得する項目

title	記事タイトル
url	URL
tags	カンマ区切りのタグ一覧
created	作成日時
updated	更新日時
comments	コメント数
likes	いいね数
stocks	ストック数
id	URLにもある記事id

Excelのソート機能で、日時やストック数などの項目で並べ替えすることもできます。

タグを個数分析するExcel VBA

Sub タグを個数分析する()
    Dim ws_active As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim tags As Object
    Dim tag As Variant
    Dim ws_output As Worksheet
    Dim i As Long

    Set ws_active = ActiveSheet
    Set rng = ws_active.Range("C2:C" & ws_active.Cells(ws_active.Rows.Count, 3).End(xlUp).row)
    Set tags = CreateObject("Scripting.Dictionary")
    
    For Each cell In rng
        If cell.Value <> "" Then
            Dim tagList() As String
            tagList = Split(cell.Value, ",")
            For Each tag In tagList
                If tag <> "" Then
                    tags(tag) = tags(tag) + 1
                End If
            Next tag
        End If
    Next cell
    
    Set ws_output = ThisWorkbook.Sheets.Add
    ws_output.name = "タグ集計"
    ws_output.Cells(1, 1).Value = "タグ"
    ws_output.Cells(1, 2).Value = "個数"
    
    i = 2
    For Each tag In tags
        ws_output.Cells(i, 1).Value = "'" & tag
        ws_output.Cells(i, 2).Value = tags(tag)
        i = i + 1
    Next tag

    Set rng = ws_output.Range("A1:B" & ws_active.Cells(ws_active.Rows.Count, 2).End(xlUp).row)
    rng.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes
End Sub

さいごに

ブックマークレットとExcelでQiitaの過去記事を効果的に発掘する方法について紹介してみました。

この記事が参考になったら幸いです。