[WordPress] Accessでエクスポーターを自作してみました

WordPressのプラグインによくあるエクスポーターをAccessで自作してみました。
タイトルと本文の文字数もHTMLタグ抜きで出力します。

大まかな流れは次の通りです。

エックスサーバーのバックアップ機能でMySQLのダンプを取得。
取得したダンプをローカルのMariaDBにリストア。
ODBCで接続してAccessにリンクテーブルを作成。
HTMLタグを削除する関数とクエリを作成。
クエリ結果をExcelに出力して操作を保存。

MySQLのダンプ取得
ダンプのリストア
リンクテーブルの作成
ユーザー定義関数の実装
クエリの作成
エクスポートと操作の保存
エクスポート結果(Excel)
1. 関連記事

MySQLのダンプ取得

エックスサーバーにはMySQLのバックアップ機能があります。この機能を利用して、Wordpressのデータベースのバックアップファイル(ダンプファイル)を取得します。

バックアップのダウンロード

ダンプのリストア

ダンプファイルを、MySQL又はMariaDBにデータベースを作成してリストアします。

今回は、Bitnami Redmine Stack for Windows をインストールした際、一緒にインストールされた「MariaDB」に、新たにデータベースを作成してリストアしました。

● データベースの作成

mysql > create database untitled_wpdb;

● ダンプのリストア

mysql -u root -p --database untitled_wpdb < d:¥untitled_wpdb.sql

リンクテーブルの作成

ODBC経由でデータベースに接続して、Accessにリンクテーブルを作成します。

ODBC経由でデータベースに接続

リンクテーブルを作成

ユーザー定義関数の実装

正規表現のライブラリを追加します。

正規表現のライブラリを追加

標準モジュールに次の関数を登録します。

● HTMLタグを削除するユーザー定義関数

Public Function cdataConv(str As String) As String

    Dim regEx As New RegExp
    regEx.Pattern = "<[^>]*>"
    regEx.Global = True
    cdataConv = regEx.Replace(str, "")

End Function

クエリの作成

次のようなクエリを作成します。

クエリのデザインビュー

「本文字数」カラムには次のように入力します。

本文字数: Len(cdataconv([post_content]))

SQL全文は次の通りです。

● SQL全文

SELECT CLng([wp_posts].[ID]) AS ID, wp_posts.post_title, wp_posts.post_status, wp_posts.post_name, wp_term_taxonomy.taxonomy, wp_terms.name, wp_terms.slug, Len([post_title]) AS 題字数, Len(cdataconv([post_content])) AS 本文字数, wp_posts.post_date, wp_posts.post_modified
FROM ((wp_posts LEFT JOIN wp_term_relationships ON wp_posts.ID = wp_term_relationships.object_id) LEFT JOIN wp_term_taxonomy ON wp_term_relationships.term_taxonomy_id = wp_term_taxonomy.term_taxonomy_id) LEFT JOIN wp_terms ON wp_term_taxonomy.term_id = wp_terms.term_id
WHERE (((wp_posts.post_status)="publish") AND ((wp_term_taxonomy.taxonomy)="category"))
ORDER BY wp_posts.post_date DESC;