(Excel VBA) 検索文字列をArray関数を使用して配列変数化。

昨日の続きです。
1行ずつ、Excel シートに出力すると言っておりましたが、そこまで手が回らず、その前準備として、検索用の文字列をまとめるところから始めます。

検索するタグ等の文字列が決まったので、それらを配列変数に格納して、順番に検索 していきます。昨日、検索する文字列を決めましたので、それら検索用の文字列を配列変数に代入して、ループを回して処理していきます。

とりあえず、検索対象とするのは以下の7個。

0：編集用ページＵＲＬと記事題名
1：記事本文先頭（サマリ）
2：作成者
3：カテゴリ
4：コメント数
5：投稿日時
6：公開用記事ＵＲＬ

検索のキー となる文字列 を抜き出すと以下のようになります。

0：<a class="entry-title js-search-entry-title"
1：<div class="entry-body-summary js-search-entry-body">
2：<td class="td-blog-author">
3：<td class="td-blog-category">
4：<td class="td-blog-comment">
5：<time class="time" datetime=
6：original-title="記事を見る"></i></a>
--------------------------------------------------

Array関数を使ってVBAコードを以下のように書きました。

Dim tagStrArray As Variant

 tagStrArray = Array( _
    "<a class=""entry-title js-search-entry-title", _
    "<div class=""entry-body-summary js-search-entry-body"">", _
    "<td class=""td-blog-author"">", _
    "<td class=""td-blog-category"">", _
    "<td class=""td-blog-comment"">", _
    "<time class=""time"" datetime=", _
    "original-title=""記事を見る""></i></a>")

--------------------------------------------------

各配列要素は、 tagStrArray(要素番号) とすることで取り出せます。
Array関数の要素番号は0「ゼロ」から始まります。

上記のコード を実行した後で、

debug.print  tagStrArray(0) を実行すると、
<a class="entry-title js-search-entry-title

が、返ってきます。 

明日は、この配列変数を使って、処理を進めていきます。