galife

正規表現記法まとめ

今回は O'Reilly の「正規表現」をもとに「一般的な正規表現の使い方」についてまとめます。

さまざまな言語を集約すると「一般的に正規表現ではこんなものが使えるよ」といったまとめになっています。なので、言語やフレームワーク、利用するツールによって使える機能や使い方が微妙に異なるので、具体的なものは各リファレンスを参照してください。

単一文字
キャプチャ
位置
オプション

単一文字

ドット

"."(ドット) は「改行以外のすべての文字」にマッチします。

似たような指定方法に「否定文字クラスを利用した方法（例： [^"]）」がありますが、否定文字クラスを利用する場合は改行にもマッチする点に注意します。

文字クラス

"[<文字群>]" で指定された文字のうちのいずれかにマッチします（例： [abcd] (= a～d のいずれか1文字)）。角括弧内では「 "-"(ハイフン) 」がメタ文字になります。 "-"(ハイフン) を利用して文字範囲を指定することができます（例： [a-d] (= a～d のいずれか1文字)）。 "-"(ハイフン) を文字として利用したい場合、最初に書く必要があります（例： [-a-z] (= a～zおよび"-"のいずれか1文字)）。また、通常の正規表現構文中ではメタ文字となる "."(ドット)、 "*"(アスタリスク) "?"(クエスチョン) "+"(プラス) は、文字クラス内では単純文字として扱われるのでエスケープ不要です（例： [.*?+]）。

"[^<文字群>]" のように "^"(ハット) を先頭に付けると「指定された文字を含まない任意の1文字」にマッチします（例： [^a-z] (= a～z 以外の任意の1文字)）。

文字クラスの略記

文字クラスのうち代表的なものには略記があります。

略記	説明
\d	数字。一般的には `[0-9]` と同じ。
\D	数字以外。一般的には `[^0-9]` と同じ。
\w	単語の一部とみなせる文字。一般的には `[a-zA-Z0-9_]` と同じ。 Unicodeサポートする場合、文字数字すべてを表現する場合もある。
\W	単語の一部ではない文字。一般的には `[^\w]` と同じ。
\s	空白文字。一般的には `[ \f\n\r\r\t\v]` と同じ。
\S	空白文字以外。一般的には `[^\s]` と同じ。

Unicodeプロパティ

"\p{<属性>}" は「指定された Unicode属性を持つ文字」にマッチします（例： \p{Letter} (= 文字とみなせるもの)）。逆に "\P{<属性>}" は「指定された Unicode属性を持たない文字」にマッチします（例： \P{Letter} (= 文字とみなせないもの)）。

そもそも Unicode文字にはプロパティやスクリプト、ブロックといった属性情報が各Unicodeコードポイントに対して設定されています。プロパティは「一般カテゴリ（General Category）」とも呼ばれたりするもので文字(Letter)、記号(Mark)、数字(Number) といった「文字の大まかな分類」を定義しています。スクリプトはラテン文字(Latin)、ギリシャ文字（Greek）、キリル文字（Cyrillic）といった「言語としての分類」を定義しています。日本語の場合、ひらがな(Hiragana)、カタカナ(Katakana)、漢字(Han) といった分類になっています。ブロックはスクリプトと同様にUnicodeコードポイントの範囲を示しますが文字が存在しない範囲も含めた範囲になっています。

一般カテゴリ (General Category)

一般カテゴリは「大分類」と「小分類」の2段階で分類されます。その分類内容は以下の通りです。正規表現では「大分類」か「値」を利用します（例： \p{Letter}、 \p{Lu} ）。

大分類	小分類	値	説明
Letter	Uppercase	Lu	大文字。
	Lowercase	Ll	小文字。
	Titlecase	Lt	単語の冒頭で使われる文字。
	Modifier	Lm	特殊用途の文字風記号。
	Other	Lo	大文字や小文字の区別のない文字。修飾子でもない文字（ヘブライ語、チベット語、日本語など）。
Mark	Nonspacing	Mn	アクセント、特定の「母音記号」、声調記号など他の文字に変更を加える文字。
	Spacing Combining	Mc	それ自体が文字幅を持つ変更用文字（主として、ベンガル語、タミル語、クメール語などで使われる母音記号）。
	Enclosing	Me	他の文字を囲む円、正方形、ひし形などの記号。
Number	Decimal Digit	Nd	さまざまな書記系における0から9までの数字（中国語、日本語、韓国語は含まない）。
	Letter	Nl	主としてローマ数字。
	Other	No	上付き数字、符号としての数字、数値でないが数をあらわす文字（中国語、日本語、韓国語は含まない）。
Punctuation	Connector	Pc	アンダースコアなど言語学的な特別な意味を持つ句読点。
	Dash	Pd	あらゆる種類のハイフンとダッシュ。
	Open	Ps	（、「、《などの開き括弧。
	Close	Pe	）、」、》などの閉じ括弧。
	Initial Quote	Pi	«、“、‹ などの開きクォート。
	Final Quote	Pf	»、”、› などの閉じクォート。
	Other	Po	＊、？、！、＆、・などその他すべての句読点や括弧など。
Symbol	Math	Sm	＋、÷、≦ などの数学記号。
	Currency	Sc	$、€、￥、￠などの通貨記号。
	Modifier	Sk	^、`、¨、´ などのアクセント記号。
	Other	So	©、®、⇨ などのその他特殊記号、罫線、展示、文字として扱われない漢字など。
Separator	Space	Zs	さまざまなスペース記号。
	Line	Zl	行区切り子文字。（U+2028）
	Paragraph	Zp	段落区切り子文字。（U+2029）
Other	Control	Cc	[TAB]、[CR]、[LF]など ASCII と Latin-1 の制御文字。
	Format	Cf	基本的な整形情報を示すための表示されない文字。
	Private Use	Co	私的に使うための文字を格納するために確保されたコードポイント。
	Not Assigned	Cn	文字が割り当てられていないコードポイント。

上記の表で示された具体的なUnicode文字がどのようなものかは、以下のサイトで検索ができます。

Unicode Character Categories

スクリプト (Script)

スクリプトでは「書記系」を指定して検索できます。指定できる値の一部を以下に載せます。書記系指定する場合も一般カテゴリと同様に値を指定します（例： \p{Hira}、\p{Hani} ）。

値	説明
Hira	ひらがな。
Kana	カタカナ。
Hani	漢字。
Latn	ローマ字。
Hebr	ヘブライ文字。
Cyrl	キリル文字。

上記の表で示された具体的なUnicode文字がどのようなものかは、以下のサイトで検索ができます。

Unicode Character Categories

ブロック (Block)

スクリプトに似ていますが、ブロックはUnicodeコードポイントの範囲を指定することができます。以下に指定できるブロックの一部を載せます。スクリプトと違って範囲指定なので文字が割り当たっていない場合があったり、ブロックに無関係の文字が割り当たっていることがあります。指定方法は一般カテゴリと同様でブロック名を利用して指定します（例：\p{Hiragana}、\p{Katakana} ）。

範囲	値	説明
U+3040 - U+309F	Hiragana	ひらがな。
U+30A0 - U+30FF	Katakana	カタカナ。
U+0000 - U+007F	Basic Latin	ローマ字。
U+0590 - U+05FF	Hebrew	ヘブライ文字。
U+0400 - U+04FF	Cyrillic	キリル文字。

上記の表で示された具体的なUnicode文字がどのようなものかは、以下のサイトで検索ができます。

Unicode Character Blocks

キャプチャ

"()"(丸括弧) を利用すると丸括弧で囲まれた範囲で "文字列" のカタマリを作れます。以下ではこのグループ化された「文字列のカタマリ」の使い方について見ていきます。

グループ化して後方参照

"(…)" でグループ化された「文字列のカタマリ」は一時的に保存（キャプチャ）され、"\1" "\2" ... といった指定で後からキャプチャした文字列を参照して検索文字として再利用することができます。

// 対象文字列
abc-def-fed-cba

// 正規表現
/(\w)-\1/g

// 検索結果
abc-def-fed-cba

グループ化のみ

"(?:…)" を利用すると一時的な保存（キャプチャ）を行わずにグループ化ができます。キャプチャしないため速度がはやくなり、キャプチャしないので後方参照の番号を変えなくて済むようになります。

// 対象文字列
username@sample.company.com

// 正規表現
/(?:.*)@(.*\.com)/g

// 検索結果
username@sample.company.com
// 0: username@sample.company.com
// 1: sample.company.com

名前付きでグループ化して後方参照

"(?<name>…)" を利用すると名前付きで一時的な保存（キャプチャ）が行えます。名前付きでキャプチャした文字列は \k<name> で呼び出せます。

// 対象文字列
username@sample.company.com

// 正規表現
/(?<name>.*)@(?<domain>.*\.com)/g

// 検索結果
username@sample.company.com
// 0: username@sample.company.com
// 1: username
// 2: sample.company.com
// groups: {
//   name:   username
//   domain: sample.company.com
// }

アトミックグループ

"(?>…)" を利用すると括弧内の部分式がマッチした際、バックトラックするための分岐を捨ててマッチした文字列を固定化（アトミック、変更不可）します。

// 対象文字列
Hello World !

// 正規表現1
/.*!/g

// 検索結果1 (= 正規表現1でマッチする文字列)
Hello World !

// 正規表現2
/(?>.*)!/g

// 検索結果2 (= 正規表現2でマッチする文字列)
Hello World !

上記の例のように正規表現1では "Hello World !" 全文にマッチしますが、アトミックグループを利用した正規表現2では一切マッチしません。

そもそも、正規表現の検索動作は欲張りに動きます。上記の正規表現1の例だと以下のような動作をします。

.* でマッチできる限りマッチします（= .* で Hello World ! にマッチする）。
行末までいってしまうと行き過ぎなので、1文字ずつ戻って ! を探します（= バックトラック）。
幸いにも1文字戻ると .*! が成り立つので、結果として Hello World ! を返します。

上記の正規表現2の例のようにアトミックグループを利用すると、 .* でマッチした後、バックトラックするための情報をすべて捨ててしまうので戻ることができず、文字列マッチが失敗して終わります。

選択

"…|…|..." を利用すると「指定された文字列のいずれか」といった条件分岐ができます。正規表現中の一部で分岐を行いたい場合、"(…|…|...)" のようにグループ化を併用することで部分的に分岐が利用できます。

// 対象文字列
This is a pen.
This or that.

// 正規表現
/this is|or that/ig

// 検索結果
This is a pen.
This or that.

上記の通り、グループ化を利用しない場合は正規表現全体に対して分岐処理が行われます（= this is または or that にマッチする）。もし "This is that" または "This or that" にマッチさせたいのであれば this (is|or) that のように指定します。

最大量指定子

* 、 + 、 ? 、 {num, num}(範囲指定) を利用すると直前の対象（文字、文字クラスまたはグループ）を繰り返し、欲張りなマッチを行うことができます。欲張りなマッチではできるだけ広くマッチするような検索を行います。

* : 0回以上の繰り返し
+ : 1回以上の繰り返し
? : 0回または1回の繰り返し
{min, max} : min回以上、max回以下の繰り返し

// 対象文字列
The name "McDonald's" is said "makudonarudo" in Japanese.

// 正規表現
/".*"/g

// 検索結果
The name "McDonald's" is said "makudonarudo" in Japanese.

最小量指定子

*? 、 +? 、 ?? 、 {num, num}?(範囲指定) を利用すると直前の対象（文字、文字クラスまたはグループ）を繰り返し、控えめなマッチを行うことができます。控えめなマッチではできるだけマッチする文字列が少なくなるような検索を行います。

// 対象文字列
The name "McDonald's" is said "makudonarudo" in Japanese.

// 正規表現
/".*?"/g

// 検索結果
The name "McDonald's" is said "makudonarudo" in Japanese.

絶対最大量指定子

*+ 、 ++ 、 ?+ 、 {num, num}(範囲指定) を利用すると直前の対象（文字、文字クラスまたはグループ）を繰り返し、固定化しながら欲張りなマッチを行います。絶対最大量指定子は基本的に最大量指定子と同じ動作をしますが、一度マッチした文字列に対してはバックトラックを行いません（アトミックグループと同じ動作）。

.*+ は (?>.*) と同じ結果になります。つまり、絶対最大量指定子は繰り返しのあるアトミックグループの糖衣構文になります。

// 対象文字列
The name "McDonald's" is said "makudonarudo" in Japanese.

// 正規表現
/".*+"/g

// 検索結果(= マッチしない)
The name "McDonald's" is said "makudonarudo" in Japanese.

位置

正規表現には「位置」にマッチするものがあります。「位置」にマッチするので幅はありません。

行頭・行末

"^"(ハット) は行頭に、 "$"(ドル記号) は行末の位置にマッチします。

// 対象文字列
He threw three free throws
She sees cheese

// 正規表現1
/^he/ig

// 検索結果1(= 行頭にある he にマッチする)
He threw three free throws
She sees cheese

// 正規表現2
/cheese$/ig

// 検索結果2(= 行末にある cheese にマッチする)
He threw three free throws
She sees cheese

単語の境界

\b は単語の境界位置にマッチします。

// 対象文字列
He threw three free throws
She sees cheese

// 正規表現
/e\b/g

// 検索結果(= "e"で終わる単語にマッチする)
He threw three free throws
She sees cheese

後先読み

前後に指定された文字列があるかどうかで位置を特定するアンカーになります。後先読みは「後読み」「先読み」と「肯定」「否定」の組み合わせで4種類存在します。

種類	指定子	説明
肯定先読み	`(?=…)`	見ている位置より先（右側）に指定した条件の文字列があるような位置。
否定先読み	`(?!…)`	見ている位置より先（右側）に指定した条件の文字列が存在しないような位置。
肯定後読み	`(?<=…)`	見ている位置より手前（左側）に指定した条件の文字列があるような位置。
否定後読み	`(?<!…)`	見ている位置より手前（左側）に指定した条件の文字列が存在しないような位置。

// 対象文字列
He threw three free throws
She sees cheese

// 正規表現1
/thr(?=ee)/g

// 検索結果1(= three の thr にマッチする)
He threw three free throws
She sees cheese

// 正規表現2
/(?<=ch)ee(?=se)/g

// 検索結果2(= cheese の ee にマッチする)
He threw three free throws
She sees cheese

オプション

`g` グローバル

グローバル検索を行います。テキスト全体に対して繰り返し一致する文字列を探します。

`i` 大文字小文字を区別しない

大文字小文字を区別しない検索を行います。

`x` フリーフォーマット

正規表現を複数行に渡って記述できるようにします。このモードでは文字クラス以外の空白は無視されます。 # から改行までの間の文字列はコメントとみなされます。

$text =~ {
  \b
  # URLを$1にキャプチャする
  (
    http://hostname
    (
      /path
    )?
  )
}{<a href="$1">$1</a>}gix;

`s` 単一行モード（= ドット全マッチモード）

"."(ドット) の動作を変更します。通常モードでは "."(ドット) は改行にマッチしませんが、単一行モードでは改行にもマッチするようになります。

`m` 複数行モード (= 拡張行アンカーマッチモード）

"^"(ハット) と "$"(ドル記号) の動作を変更します。通常モードでは与えられた文字列に対する先頭または末尾のみにしかマッチしません（文字列中に含まれる改行にはマッチしない）が、複数行モードでは文字列中に含まれる改行にもマッチするようになります。

今回は「一般的な正規表現」についてまとめました。参考になったでしょうか？本記事がお役に立っていると嬉しいです！！

ECMAScript 2018 (ES9) まとめ

今回は「ECMAScript2018 (ES9)」についてまとめます。

今回の大きな修正は「正規表現」です。正規表現に新たなフラグや機能が追加されました。

文字列
- テンプレートリテラル
正規表現
式と演算子
対応状況

文字列

テンプレートリテラル

テンプレートリテラルが抱えていた制約を緩和する機能が追加されました。

何が問題だったか

LaTeXコマンドには「¥unicode」や「¥xerxes」といったコマンドがあるそうです。一方で、ECMAScriptでは「¥u」はユニコードを示す特殊文字、「¥x」は16進数を示す特殊文字となっています。その結果、「¥unicode」や「¥xerxes」をテンプレートリテラルで利用すると、後に続く文字列が想定とは異なるためシンタックスエラーとなって落ちてしまいます。

var txt = `\unicode`    // SyntaxError: Invalid Unicode escape sequence

どのように解決されたのか

ECMAScript2018 からは「"タグ付き" テンプレートリテラル」の場合に限りシンタックスエラーにはせず、undefined が戻るようになります。もともとの文字列はタグ関数において .raw というプロパティにアクセスすることで取り出せます。タグを付けない通常通りのテンプレートリテラルを使う場合、引き続きシンタックスエラーになります。

function tag(strs) {
  console.dir(strs);
}

tag`\unicode`;
// 0: undefined
// raw: ["\unicode"]

`\unicode`;
// SyntaxError: Invalid Unicode escape sequence

「タグ付きテンプレートリテラル」とは、「"タグ関数"を利用したテンプレートリテラル」です。この「タグ関数」を利用すると、テンプレートリテラルの出力内容を変更することができます。参考までにサンプルを以下に記載します。

function tag(strings, ...values) {
  console.dir(strings);
  // Array(3)
  //   0: "Hello "
  //   1: " World "
  //   2: ""
  //   length: 3
  //   raw: (3) ["Hello ", " World ", ""]

  console.dir(values);
  // Array(2)
  //   0: 8
  //   1: 15
  //   length: 2

  return "foo bar !";
}

var a = 5;
var b = 3;
tag`Hello ${a + b} World ${a * b}`;
// "foo bar !"

正規表現

s フラグ

「単一行モード（single line mode）」での検索が行えるようになります。単一行モードで検索すると "."(ピリオド) の意味が「改行文字を含めたすべての文字に一致する」よう変更されます。

var re1 = /foo.bar/s;
var re2 = /foo.bar/;

re1.test("foo\rbar");    // true
re2.test("foo\rbar");    // false

u フラグ

「Unicode文字」には「Unicode文字プロパティ」という属性情報が存在します。この「Unicode文字プロパティ」にはその文字がそもそも「文字」なのか「記号」なのかといった情報（General Category）や、「ラテン文字」「ひらがな」「カタカタ」「漢字」であるかといった情報（Script）などを持っています。

ECMAScript2018 で追加された u フラグを利用すると、この「Unicode文字プロパティ」に対してマッチングをかけることができるようになります。指定は \p{<Unicode文字プロパティ>} (肯定ケース) または \P{<Unicode文字プロパティ>} (否定ケース) で行います。以下に簡単なサンプルを記載します。

// 肯定ケース
/^\p{scx=Hiragana}+$/u.test("ひらがな")   // true
/^\p{scx=Katakana}+$/u.test("カタカナ")   // true
/^\p{scx=Han}+$/u.test("漢字")            // true

// 否定ケース
/^\P{scx=Hiragana}+$/u.test("ひらがな")   // false
/^\P{scx=Katakana}+$/u.test("カタカナ")   // false
/^\P{scx=Han}+$/u.test("漢字")            // false

参考記事

TES Blog - Unicodeの文字プロパティを指定した正規表現をみてみる（ECMAScript2018）

名前付きキャプチャ

正規表現は "()"(丸括弧) を利用するとキャプチャと呼ばれる機能が使えます。キャプチャは "()"(丸括弧) で囲まれた条件にマッチした文字列を後から再利用することができる機能です。通常は "("(開き丸括弧) の現れる順に番号が振られ、再利用する際はその番号を利用して一致する文字列を呼び出します。

/(\d{4})-(\d{2})-(\d{2})/.exec("2018-10-21");
// (4) ["2018-10-21", "2018", "10", "21", index: 0, input: "2018-10-21", groups: undefined]
//   0: "2018-10-21"    ←マッチした全量
//   1: "2018"          ←1番目のキャプチャ
//   2: "10"            ←2番目のキャプチャ
//   3: "21"            ←3番目のキャプチャ
//   groups: undefined
//   index: 0
//   input: "2018-10-21"
//   length: 4

現れた順に番号を振る既存の方法でもやりたいことは実現できるのですが、実装するうえでは該当する番号が何を示しているのかわかりづらい状態になってしまいます。そこで、最近の正規表現には「名前付きキャプチャグループ」というものが追加されているので、JavaScriptにも取り込もうというのが今回の追加内容です。

基本

名前付きキャプチャグループは「(?<name> ...)」で表現します。一致した結果は .groups 配下にオブジェクトが生成されます。

/(?<year>\d{4})-(?<month>\d{2})-(?<day>\d{2})/.exec("2018-10-21");
// (4) ["2018-10-21", "2018", "10", "21", index: 0, input: "2018-10-21", groups: {…}]
//   0: "2018-10-21"
//   1: "2018"
//   2: "10"
//   3: "21"
//   groups:
//     day: "21"
//     month: "10"
//     year: "2018"
//   index: 0
//   input: "2018-10-21"
//   length: 4

名前付きキャプチャを使っていきなりマッチする文字列を取得するには以下のような記述もできます。

var {groups : {year, month, day}} = /(?<year>\d{4})-(?<month>\d{2})-(?<day>\d{2})/.exec("2018-10-21");
console.log(`${year}/${month}/${day}`);   // 2018/10/21

後方参照

名前付きキャプチャで一致した文字列をその正規表現中で再利用させることができます。同一正規表現内で再利用する場合、 ¥k<name> で指定します。

var re = /(?<key1>\d{2})-(?<key2>\d{2})-\k<key1>-\k<key2>/;

re.test("00-11-00-11");  // true
re.test("00-11-00-12");  // false
re.test("00-11-01-11");  // false

置換

名前付きキャプチャが利用できるようになることで、名前付きキャプチャを使った文字列置換（ String.prototype.replace() ）もできるようになります。文字列置換で再利用する場合、 $<name> で指定します。

var name = "Tanaka Minoru";
name.replace(/(?<last>\w+)\s(?<first>\w+)/, "$<first> $<last>");    // "Minoru Tanaka"

後読み

正規表現には「先読み」と「後読み」（あわせて「先後読み」）と呼ばれる機能があります。「先読み」は「文字列の先を確認して正規表現がマッチするか調べる」もので、「後読み」は「文字列の手前を確認して正規表現がマッチするか調べる」ものです。これに加えて「先後読み」には「肯定」と「否定」があるので、以下の4パターンが存在します。

種類	指定方法
肯定先読み	`(?=pattern)`
否定先読み	`(?!pattern)`
肯定後読み	`(?<=pattern)`
否定後読み	`(?<!pattern)`

JavaScriptの正規表現にはもともと「先読み」しか存在していませんでした。これに対して、ECMAScript2018で「後読み」が追加されました。

// 肯定後読み
/(?<=Tanaka)Minoru/.exec("TanakaMinoru");       // ["Minoru", index: 6, input: "TanakaMinoru", groups: undefined]
/(?<=Tanaka)Minoru/.exec("SuzukiMinoru");       // null

// 否定後読み
/(?<!Tanaka)Minoru/.exec("TanakaMinoru");       // null
/(?<!Tanaka)Minoru/.exec("SuzukiMinoru");       // ["Minoru", index: 6, input: "SuzukiMinoru", groups: undefined]

式と演算子

残余プロパティ / 分割プロパティ

ECMAScript2015 (ES6) で追加された「スプレッド演算子（ ... ）」がオブジェクトにも適用できるようになりました。適用できる箇所はオブジェクトから展開して代入する箇所（残余プロパティ）とオブジェクトへ展開して与える箇所（分割プロパティ）です。

// 残余プロパティ
var {x, y, ...z} = {x: 1, y: 2, a: 3, b: 4, c: 5 };
x   // 1
y   // 2
z   // {a: 3, b: 4, c: 5}

// 分割プロパティ
var n = {x, y, ...z};
n   // {x: 1, y: 2, a: 3, b: 4, c: 5}

Promise.prototype.finally()

明示的な finaly() が追加されました。これで非同期処理 ( Promise ) において try - catch - fainally が実現できるようになります。ちなみに、 finally() で例外が発生した場合、再度 Promise が生成されるようです。

(new Promise((resolve, reject) => {
  window.setTimeout(() => { reject(); }, 1000);
})).then((data) => {
  console.log("then");
}).catch((err) => {
  console.log("catch");
}).finally(() => {
  console.log("finally");
});
// catch
// finally

非同期イテレータ

「非同期イテレータ」「非同期ジェネレータ」が利用できるようになり、これに伴って for - await - of 構文が新しくできました。

「非同期イテレータ」は「同期イテレータ」と同じように .next() の戻り値が {value, done} となるようなイテレータです。ただ、これ単体だと使いづらく…「非同期ジェネレータ」を使った方が分かりやすいです。「非同期ジェネレータ」は yield の戻り値が「非同期イテレータ」となっています。

// 指定された値を1秒後に戻す
var remoteProcess1 = function (value) {
  return new Promise((resolve, reject) => {
    setTimeout(() => { resolve(value); }, 1000);
  });
};

// 1秒おきに文字を取得してくる
var asyncIterator1 = async function* () {
  yield await remoteProcess1("a");
  yield await remoteProcess1("b");
  yield await remoteProcess1("c");
};

// 単純な非同期イテレータのサンプル
var aitr = asyncIterator1();
aitr.next().then(({ value, done }) => {
  console.log(value);
});
// a     ←イテレータを1度しか実行してないので

さて、上記の「非同期イテレータ」「非同期ジェネレータ」をさらに使いやすくできるのが for - await - of 構文です。非同期処理の応答を待ちながらループを回すことができます。

// 指定された値を1秒後に戻す
var remoteProcess1 = function (value) {
  return new Promise((resolve, reject) => {
    setTimeout(() => { resolve(value); }, 1000);
  });
};

// 1秒おきに文字を取得してくる
var asyncIterator1 = async function* () {
  yield await remoteProcess1("a");
  yield await remoteProcess1("b");
  yield await remoteProcess1("c");
};

// for-await-of 構文を利用したサンプル
var main = async function () {
  for await (var val of asyncIterator1()) {
    console.log(val);
  }
};
main();
// a
// b
// c

対応状況

2018年10月21日現在。

コンパイラ		ブラウザ					ランタイム
Babel 7	Closure 2018.09	IE 11	Edge 18	Firefox 62	Chrome 69	Safari 12	Node.js 8
△	△	×	△	△	○	△	△

Babel は「後方参照」以外使えます。 Closureコンパイラは正規表現周りが全滅で、その他は使えるようです。ブラウザだとChrome以外はまだ実装中といったステータス。 Nodeもどちらかというと実装中といったステータス。全体的にまだまだな印象です。

今回は「ECMAScript2018 (ES9)」についてまとめました。参考になったでしょうか？本記事がお役に立っていると嬉しいです！！

参考記事

ECMAScript 2017 (ES8) まとめ

今回は「ECMAScript2017 (ES8)」についてまとめます。

Object
- Object.values() / Object.entries()
- Object.getOwnPropertyDescriptors()
String
- String.prototype.padStart() / String.prototype.padEnd()
Function
- 引数末尾のカンマ
- async / await キーワード
SharedArrayBuffer と Atomics
対応状況

Object

Object.values() / Object.entries()

オブジェクトに存在するキーを取り出す Object.keys() に対応するメソッドとして、値を取り出す Object.values() とキーバリューペアを取り出す Object.entries() の2メソッドが追加されました。引数に与えらられたオブジェクトが所有するキーを取り出す場合は Object.keys() 、値を取り出す場合は Object.values() 、キーバリューペア配列を取り出す場合は Object.entries() を利用することになります。

構文

Object.values(obj)

オブジェクトを引数に取り、指定されたオブジェクトに存在する値を配列として取得します。

Object.entries(obj)

オブジェクトを引数に取り、指定されたオブジェクトに存在するキーと値の組み合わせを [キー, 値] の形で配列として取得します。

サンプルコード

var obj = { a: 1, b: 2, c: 3 };

// キー一覧を取得
console.log(Object.keys(obj));      // -> ["a", "b", "c"]

// 値一覧を取得
console.log(Object.values(obj));    // -> [1, 2, 3]

// キーバリューペア配列を取得
console.log(Object.entries(obj));   // -> [["a", 1], ["b", 2], ["c", 3]]

Object.getOwnPropertyDescriptors()

そもそもオブジェクトのプロパティは「データ記述子」と「アクセサ記述子」の2種類が存在します。各プロパティはどちらの記述子として定義されているか「Property Descripotor」に保持しています。その設定内容はそれぞれ以下の通りです。

データ記述子

value
writable
enumerable
configurable

アクセサ記述子

上述の「Property Descriptor」は ES5 で追加された Object.defineProperty() で設定でき、Object.getPropertyDescriptor() で確認できます。 ECMAScript2017 (ES8) で追加された Object.getOwnPropertyDescriptors() はこの「Property Descriptor」をまとめて取得できるメソッドです。

構文

Object.getOwnPropertyDescriptors(obj)

オブジェクトを引数に取り、そのオブジェクトに存在する一連のプロパティのプロパティディスクリプタを取得します。

サンプルコード

var obj = { a: 1, b: 2 };

console.log(Object.getOwnPropertyDescriptors(obj));
// {
//   "a": {
//     "value": 1,
//     "writable": true,
//     "enumerable": true,
//     "configurable": true
//   },
//   "b": {
//     "value": 2,
//     "writable": true,
//     "enumerable": true,
//     "configurable": true
//   }
// }

String

String.prototype.padStart() / String.prototype.padEnd()

ESMAScript2017 (ES8) から文字列に対するパディングが標準メソッドとして追加されました。固定文字列長になるよう指定文字で空白を埋めてくれるメソッドです。

構文

str.padStart( length [, chars] )

str で指定された文字列が右寄せで length の長さになるよう chars で余った左側を埋めます。

str.padEnd( length [, chars] )

str で指定された文字列が左寄せで length の長さになるよう chars で余った右側を埋めます。

サンプルコード

"abc".padStart(10);         // "       abc"
"abc".padStart(6,"123465"); // "123abc"
"abc".padStart(8, "0");     // "00000abc"
"abc".padStart(1);          // "abc"

"abc".padEnd(10);           // "abc       "
"abc".padEnd(6,"123465");   // "abc123"
"abc".padEnd(8, "0");       // "abc00000"
"abc".padEnd(1);            // "abc"

Function

引数末尾のカンマ

Git や svn などのソースコード管理を利用しているとき、関数の定義や利用においてパラメータを末尾に1つ追加すると、1つ手前のパラメータのログにカンマだけ追加した意味のないログが残ってしまうことがあります。 ECMAScript2017 (ES8) ではそんな意味のないログを残さなくて済むよう、関数の末尾の引数に対してカンマを残せる仕様に変わりました。

サンプルコード

// 関数定義
var some = function (
               param1,
               param2,
               param3,  // <- カンマが残せる
           ) { ... };

// 関数利用
some(
  arg1,
  arg2,
  arg3,  // <- カンマが残せる
);

async / await キーワード

Promise を使った非同期処理に対して新しいシンタックス（構文）が記述できるようになりました。 async function と await 式 です。

async function は await 式 を含むことができます。また、この async function 自体は Promise でラップされており、関数の戻り値は Promise.resolve が呼び出されたものと同じになります。つまり、関数の実行結果に対して Promise.then() や Promise.catch() が利用できます（以下のサンプルコード参照）。

async function に含められる await 式 は「Promise を戻り値とする関数」を実行する式です。 async function 中で await 式 が呼び出されると、その await 式 ( Promise の実行 ) が完了するまで以降の処理を待ちます。

サンプルコード

var remoteProcess1 = function () {
  return new Promise((resolve, reject) => {
    setTimeout(() => {
      resolve("callbacked.");
    }, 3000);
  });
};

var serializeProcess1 = async function () {
  var data;
  try {
    data = await remoteProcess1();
    console.log(data);  // "callbacked."
    return "complete!";
  } catch (err) {
    console.log(err);
  }
};

serializeProcess1().then((data) => {
  console.log(data);    // "complete!"
});

SharedArrayBuffer と Atomics

Worker などの非同期処理を実行する際、同じ場所のデータを読み書きしたいケースがあると思います。そんな時に使えるのが SharedArrayBuffer と呼ばれるデータです。そしてこの SharedArrayBuffer を操作するためのユーテリティ群が Atomics です。

SahredArrayBuffer として利用可能な TypedArray は以下の通りです。

Int8Array
Uint8Array
Int16Array
Uint16Array
Int32Array
Uint32Array

簡単なサンプルコードを以下に記載します…が、脆弱性の問題があるようで、2018年10月時点で共有メモリ機能（SharedArrayBuffer および Atomics）は Chrome 以外で使えないようです。 Chrome で使えたからと言って脆弱性がある限りはあまり使わない方が良いとは思いますが…お試しするには Chrome になります。

var sab = new SharedArrayBuffer(1024);
var ta = new Uint8Array(sab);

Atomics.store(ta, 0, 5);            // [5]
Atomics.add(ta, 0, 8);              // [13] <- 5 + 8
Atomics.sub(ta, 0, 1);              // [12] <- 13 - 1
var val = Atomics.load(ta, 0);      // val  <- 12
console.log(val);                   // 12

対応状況

2018年10月現在、Babel や Closure コンパイラで async/await など一部機能が使えない状況です。共有メモリ（SharedArrayBuffer および Atomics）が Chrome 以外の主要ブラウザで使えないのを除いて、その他の機能はブラウザでもランタイムでも基本的に使えます。

コンパイラ		ブラウザ					ランタイム
Babel 7	Closure 2018.09	IE 11	Edge 18	Firefox 62	Chrome 69	Safari 12	Node.js 8
△	△	×	△	△	○	△	△

今回は「ECMAScript2017 (ES8)」についてまとめました。参考になったでしょうか？本記事がお役に立っていると嬉しいです！！

参考記事

ECMAScript 2016 (ES7) まとめ

今回は「ECMAScript2016 (ES7)」についてまとめます。

ECMAScript 2016 (ES7) ではあまり機能追加されず、以下の2点だけ追加されたようです。といっても、どちらも利用シーンは多そうな機能なのでぜひ覚えておきたいものです。

Array.prototype.includes()
指数演算子
対応状況

Array.prototype.includes()

今まで配列要素に指定した要素が含まれているかどうかを調べようとすると .indexOf() の戻り値が 0以上であることを確認していました。これだとコードで意味が分かりづらいので .includes() で読みやすくしようといった流れです。

構文

arr.includes(search [, fromIndex])

配列arr 中に指定された要素 search が含まれている場合、 true を返します。それ以外の場合、 false を返します。 fromIndex を指定した場合、そのインデックス以降の要素に対してマッチする要素があるかどうかを返します。

サンプルコード

var arr = ["a", "b", "c"];
console.log(arr.includes("b"));  // -> true
console.log(arr.includes("d"));  // -> false

arr[arr.length] = NaN
console.log(arr.includes(NaN));  // -> true

指数演算子

一般的な言語には「指数演算」の演算子が定義されていますが、なぜいか JavaScript には存在しませんでした。（一応、 Math.pow() はありましたが、演算子（オペレーター）としては存在しませんでした。そこまで使われる言語ではなかった？？） ECMAScript2016 (ES7) から ** 演算子 で指数計算ができるようになりました。あわせて指数演算の算術演算を伴う代入演算（ **= ）もできるようになっているのはポイントです。

構文

a ** b

上記の計算であれば「a の b 乗」を計算できます。 a が底で、b が指数です。

サンプルコード

console.log(arr.includes("d"));  // -> false
console.log(2 ** 4);             // -> 16

var a = 2, b = 8;
a **= b;                         // a = a ** b
console.log(a);                  // -> 256

対応状況

2018年10月現在で利用できるのは IE11 以外のブラウザ、Node.js は ver 8 以上で使えるようです。基本的にはどの環境でも使えると思っていい状況になっています。

コンパイラ		ブラウザ					ランタイム
Babel 7	Closure 2018.09	IE 11	Edge 18	Firefox 62	Chrome 69	Safari 12	Node.js 8
OK	OK	NG	OK	OK	OK	OK	OK

今回は「ECMAScript2016 (ES7)」についてまとめました。参考になったでしょうか？本記事がお役に立っていると嬉しいです！！

参考記事

Excel VBA で Globファイル指定を利用する方法

今回は「ExcelVBA で使える Glob ユーテリティ」についてまとめます。

VBScriptにありそうでなかった Glob ユーテリティを作成したので、その解説と使い方についてまとめておきます。このクラスを利用すると、Glob形式で指定したフォルダ配下のファイルや特定文字列を含んだファイルの絶対パスの一覧を取得が簡単にできます。

Globとは
使い方
- 利用までの準備
- 指定方法の例
ソースコード

Globとは

ファイル検索などで利用される、ワイルドカードなどを使ったファイル名の指定方法です。

拡張子が「xlsx」であれば「*.xlsx」といった指定で検索できます。任意の深さのフォルダであれば「**」を使います。例えば「C:¥¥testcase」配下にある任意深さの「xlsx」ファイルであれば「C:¥¥testcase¥**¥*.xlsx」のように指定します。

使い方

ここでは「利用までの準備」と「指定方法の例」の2つについて解説します。

利用までの準備

以下の手順に記載はありませんが、内部的に .NET Framework 3.5 を利用しています。 Windows 10 では標準で入っていないので .NET Framework 3.5 を有効にしてからご利用ください。

以下のリンクからクラスファイルをダウンロード

GitHub - garafu/vb-glob
VBAのエディタでインポート
任意の場所で利用
```
Sub Main()
    Dim g, list, item
    Set g = New Glob
    Set list = g.Search("D:\Work\Projects\vbscript\**\[a-z]+\*.vbs")
    For Each item In list
        Debug.Print item
    Next
End Sub
```
Glob はクラスなので New して Set してください。唯一利用できるメソッドが Search(path as string) です。指定された Globパスに合致する絶対パス一覧を取得します。戻り値は .NET Framework の ArrayList になっているため、Set で受け取ってください。

指定方法の例

以下には使いそうなGlob形式パス指定の具体例を載せます。

「C:\testcase」直下にある「.xlsx」ファイルを探す

C:\testcase\*.xlsx
「C:\testcase」直下にある「.xlsx」ないし「.xls」ファイルを探す

C:\testcase\*.xls(x)?
「C:\testcase」配下にある「.xlsx」ないし「.xls」ファイルを再帰的に探す

C:\testcase\**\*.xls(x)?

ソースコード

ソースコードは GitHub 上に公開しています。何かあれば Issues へご連絡ください。

GitHub - garafu / vb-glob

今回は Excel VBA で Globパスを利用するユーテリティについてまとめました。参考になったでしょうか？本記事がお役に立っていると嬉しいです！！

VBScript で Access を操作する方法

今回は「VBScriptでAccessを操作する方法」についてまとめます。

アプリケーションの起動/終了
データベースへ接続/切断
テーブルの操作
レコードの操作

アプリケーションの起動/終了

インスタンス生成することで起動し、Quit を実行することで終了できる。

Sub Main()
  Dim objAccess : Set objAccess = CreateObject("Access.Application")
  objAccess.Visible = True
  
  ' 何か処理…
  
  objAccess.Quit
  Set objAccess = Nothing
End Sub

Main

データベースへ接続/切断

接続文字列 strConnection に含まれるファイルパス strFilePath は絶対パスになるよう構成する。

VBScriptなので接続文字列を組み立てているが、Access VBA を利用するのであれば CurrentProject.Connection に接続文字列があるので、これを利用すると簡単。

Sub Main()
  Dim objAccess, strFilePath, strConnection, objConnection, objRecordset, strQuery

  ' Accessオブジェクト生成
  Set objAccess = CreateObject("Access.Application")
  objAccess.Visible = True

  ' DB接続文字列
  strFilePath = GetCurrentDirectory() & "\Database1.accdb"
  strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & strFilePath & ";"

  ' 接続
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open strConnection
  
  ' DB操作…
  
  ' 切断
  objConnection.Close

  objAccess.Quit
  Set objConnection = Nothing
  Set objAccess = Nothing
End Sub

Function GetCurrentDirectory()
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

参考記事

テーブルの操作

テーブル作成

ADODB.Command を利用して SQL によるテーブル作成を行う。利用できるデータ型については下の表を参照。

Sub Main()
  Dim objAccess, strFilePath, strConnection, objConnection, objCommand
  Set objAccess = CreateObject("Access.Application")
  objAccess.Visible = False

  ' DB接続文字列
  strFilePath = GetCurrentDirectory() & "\Database1.accdb"
  strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & strFilePath & ";"

  ' 接続
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open strConnection

  ' クエリ実行
  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = "CREATE TABLE [T_COMPANY] (" & _ 
                           "  [ID]            COUNTER," & _ 
                           "  [DISPLAY_NAME]  TEXT(128) NOT NULL," & _ 
                           "  [REGIST_DATE]   DATE," & _ 
                           "  PRIMARY KEY([ID], [DISPLAY_NAME])" & _ 
                           ");"
  objCommand.Execute

  ' 切断
  objConnection.Close

  objAccess.Quit
  Set objCommand = Nothing
  Set objConnection = Nothing
  Set objAccess = Nothing
End Sub

Function GetCurrentDirectory()
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

データ型		内部設定
論理名	物理名	DataTypeEnum	Size
テキスト型	TEXT	adVarWChar	536870910
メモ型	LONGTEXT	adVarWChar	536870910
数値型（バイト型）	BYTE	adUnsignedTinyInt	1
数値型（整数型）	SHORT	adSmallInt	2
数値型（長整数型）	LONG	adInteger	4
数値型（単精度浮動小数点型）	SINGLE	adSingle	4
数値型（倍精度浮動小数点型）	DOUBLE	adDouble	8
日付/時刻型	DATETIME	adDate	8
通貨型	CURRENCY	adCurrency	8
オートナンバー型	COUNTER	adInteger	4
Yes/No型	BIT	adBoolean	2

テーブル削除

テーブル作成同様 ADODB.Command を利用してクエリで削除する。

Sub Main()
  Dim objAccess, strFilePath, strConnection, objConnection, objCommand
  Set objAccess = CreateObject("Access.Application")
  objAccess.Visible = False

  ' DB接続文字列
  strFilePath = GetCurrentDirectory() & "\Database1.accdb"
  strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & strFilePath & ";"

  ' 接続
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open strConnection

  ' クエリ実行
  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = "DROP TABLE [T_COMPANY]"
  objCommand.Execute

  ' 切断
  objConnection.Close

  objAccess.Quit
  Set objCommand = Nothing
  Set objConnection = Nothing
  Set objAccess = Nothing
End Sub

Function GetCurrentDirectory()
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

インデックス作成

Sub Main()
  Dim objAccess, strFilePath, strConnection, objConnection, objCommand

  ' Accessオブジェクト生成
  Set objAccess = CreateObject("Access.Application")
  objAccess.Visible = False

  ' DB接続文字列
  strFilePath = GetCurrentDirectory() & "\Database1.accdb"
  strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & strFilePath & ";"

  ' 接続
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open strConnection

  ' クエリ実行
  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = "CREATE TABLE [T_COMPANY] (" & _ 
                           "  [ID]            COUNTER," & _ 
                           "  [DISPLAY_NAME]  TEXT(128) NOT NULL," & _ 
                           "  [REGIST_DATE]   DATE," & _ 
                           "  PRIMARY KEY([ID])" & _ 
                           ");"
  objCommand.Execute

  objCommand.CommandText = "CREATE INDEX [IX_COMPANY] ON [T_COMPANY] (" & _
                           "  [DISPLAY_NAME] ASC" & _
                           ")"
  objCommand.Execute

  ' 切断
  objConnection.Close

  objAccess.Quit
  Set objCommand = Nothing
  Set objConnection = Nothing
  Set objAccess = Nothing
End Sub

Function GetCurrentDirectory()
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

参考記事

レコードの操作

データ選択（SELECT）

パラメタライズドクエリを実行してデータ取得し、表示するサンプル。

パラメタライズドクエリは PARAMETERS ステートメント を最初に宣言することで利用できる。変数名は "[]" (角括弧) で囲んで指定する。変数の具体的な値は PARAMETERS ステートメント で宣言されたパラメータ順に Command.Parameters へ設定する。（＝ PARAMETERS ステートメント を宣言していれば、実行するクエリの順序は無視してよい。）

取得された Recordset は Do ... Loop で EOF になるまで Recordset.MoveNext で順に取り出して利用する。 Recordset 内のカーソルを移動するメソッドは MoveFirst, MoveLast, MoveNext, MovePrevious がある。

Sub Main()
  Dim objAccess, strFilePath, strConnection, objConnection, objRecordset

  ' Accessオブジェクト生成
  Set objAccess = CreateObject("Access.Application")
  objAccess.Visible = False

  ' DB接続文字列
  strFilePath = GetCurrentDirectory() & "\Database1.accdb"
  strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & strFilePath & ";"

  ' 接続
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open strConnection

  ' クエリ作成
  Dim strParameters, strQuery
  strParameters = "PARAMETERS [UserName] TEXT, [Gender] BYTE; "
  strQuery = "SELECT * FROM T_MEMBER" & _
             " WHERE DISPLAY_NAME = [UserName]" & _
             "   AND GENDER = [Gender];"

  ' クエリ実行
  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = strParameters & strQuery
  objCommand.CommandType = 1    ' adCmdText = 1
  objCommand.Parameters(0) = "tanaka"
  objCommand.Parameters(1) = 1
  Set objRecordset = objCommand.Execute()

  Do While Not objRecordset.EOF
    wscript.echo objRecordset("ID") & ", " & objRecordset("DISPLAY_NAME")
    objRecordset.MoveNext
  Loop

  ' 切断
  objConnection.Close

  objAccess.Quit
  Set objRecordset = Nothing
  Set objConnection = Nothing
  Set objAccess = Nothing
End Sub

Function GetCurrentDirectory()
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

参考記事

データ追加（INSERT）

INSERT ステートメント で挿入することもできるが、投入量が多い場合バッファ処理される Recordset を利用した以下の INSERT が速い。

Recordset.AddNew を行うとカーソルが新しいレコードとなるため、そのまま投入したいデータを設定する。一通りデータ投入が終わったタイミングで Recordset.Update を実行することで更新される。

INSERT クエリで実行したい場合、上記「データ選択」で行った ADODB.Command を利用した方法で投入できる。こちらの方法の場合、毎回 Command.Execute を実行する必要がある。

Sub Main()
  Dim objAccess, strFilePath, strConnection, objConnection, objCommand, objRecordset

  ' Accessオブジェクト生成
  Set objAccess = CreateObject("Access.Application")
  objAccess.Visible = False

  ' DB接続文字列
  strFilePath = GetCurrentDirectory() & "\Database1.accdb"
  strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & strFilePath & ";"

  ' 接続
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open strConnection

  ' クエリを使ったデータ投入
  Dim strParameters, strQuery
  strParameters = "PARAMETERS [DisplayName] TEXT, [Gender] BYTE, [LoginDate] DATE;"
  strQuery = "INSERT INTO T_USER (" & _
             " DISPLAY_NAME, GENDER, LOGIN_DATE " & _
             ") VALUES (" & _
             " [DisplayName], [Gender], [LoginDate] " & _
             ");"
  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = strParameters & strQuery

  objCommand.Parameters(0) = "mukai with query"
  objCommand.Parameters(1) = 1
  objCommand.Parameters(2) = "2018/9/30"
  objCommand.Execute

  objCommand.Parameters(0) = "furuya with query"
  objCommand.Parameters(1) = 2
  objCommand.Parameters(2) = "2018/3/1"
  objCommand.Execute

  ' Recordsetを使ったデータ投入
  Const adOpenStatic = 3        ' https://msdn.microsoft.com/ja-jp/library/cc389787.aspx
  Const adLockOptimistic = 3    ' https://msdn.microsoft.com/ja-jp/library/cc389829.aspx
  Const adCmdTable = 2          ' https://msdn.microsoft.com/ja-jp/library/cc389765.aspx
  Set objRecordset = CreateObject("ADODB.Recordset")
  objRecordset.Open "T_USER", objConnection, adOpenStatic, adLockOptimistic, adCmdTable

  objRecordset.AddNew
  objRecordset("DISPLAY_NAME") = "mukai with recordset"
  objRecordset("GENDER") = 1
  objRecordset("LOGIN_DATE") = "2018/9/30"

  objRecordset.AddNew
  objRecordset("DISPLAY_NAME") = "furuya with recordset"
  objRecordset("GENDER") = 2
  objRecordset("LOGIN_DATE") = "2018/3/1"

  objRecordset.Update

  ' 切断
  objConnection.Close

  objAccess.Quit
  Set objRecordset = Nothing
  Set objConnection = Nothing
  Set objAccess = Nothing
End Sub

Function GetCurrentDirectory()
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

参考記事

データ更新（UPDATE）

クエリを使った更新を行う場合、WHERE 句で指定するカラム名を テーブル名.カラム名 という指定をした方が良い。 ID はテーブル名もあわせて指定しないと条件指定が有効に働かず全量更新されてしまう。他のカラムはテーブル名指定しなくても有効に条件指定が効く。

Recordsetを使った更新を行う場合、Find で対象を検索して削除する。検索して見つからなかった場合、カーソルが末端に行く（ Recordset.EOF ) ので、正しく検索できたかは Recordset.EOF で確認する。連続操作する場合、検索開始位置を最初の場所（ Recordset.MoveFirst ）へ移動しないと正しく検索できない懸念があるので注意。

Sub Main()
  Dim objAccess, strFilePath, strConnection, objConnection, objCommand, objRecordset

  ' Accessオブジェクト生成
  Set objAccess = CreateObject("Access.Application")
  objAccess.Visible = False

  ' DB接続文字列
  strFilePath = GetCurrentDirectory() & "\Database1.accdb"
  strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & strFilePath & ";"

  ' 接続
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open strConnection

  ' クエリを使ったデータ更新
  Dim strParameters, strQuery
  strParameters = "PARAMETERS [Id] LONG, [DisplayName] TEXT;"
  strQuery = "UPDATE T_USER" & _
             "   SET T_USER.DISPLAY_NAME=[DisplayName]" & _
             " WHERE T_USER.ID=[Id];"

  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = strParameters & strQuery
  objCommand.Parameters(0) = 1
  objCommand.Parameters(1) = "ほげほげ"
  objCommand.Execute

  ' Recordsetを使ったデータ更新
  Const adOpenStatic = 3        ' https://msdn.microsoft.com/ja-jp/library/cc389787.aspx
  Const adLockOptimistic = 3    ' https://msdn.microsoft.com/ja-jp/library/cc389829.aspx
  Const adCmdTable = 2          ' https://msdn.microsoft.com/ja-jp/library/cc389765.aspx
  Set objRecordset = CreateObject("ADODB.Recordset")
  objRecordset.Open "T_USER", objConnection, adOpenStatic, adLockOptimistic, adCmdTable
  objRecordset.Find "ID=2"
  If Not objRecordset.EOF Then
    objRecordset("DISPLAY_NAME") = "ほげ２"
    objRecordset.Update
  End If

  ' 切断
  objConnection.Close

  objAccess.Quit
  Set objRecordset = Nothing
  Set objConnection = Nothing
  Set objAccess = Nothing
End Sub

Function GetCurrentDirectory()
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

参考記事

データ削除（DELETE）

基本的に注意すべき箇所は UPDATE と同じ。

Sub Main()
  Dim objAccess, strFilePath, strConnection, objConnection, objCommand, objRecordset

  ' Accessオブジェクト生成
  Set objAccess = CreateObject("Access.Application")
  objAccess.Visible = False

  ' DB接続文字列
  strFilePath = GetCurrentDirectory() & "\Database1.accdb"
  strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & strFilePath & ";"

  ' 接続
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open strConnection

  ' クエリを使ったデータ削除
  Dim strParameters, strQuery
  strParameters = "PARAMETERS [Id] LONG;"
  strQuery = "DELETE FROM T_USER" & _
             " WHERE T_USER.ID=[Id];"

  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = strParameters & strQuery
  objCommand.Parameters(0) = 3
  objCommand.Execute

  ' Recordsetを使ったデータ削除
  Const adOpenStatic = 3        ' https://msdn.microsoft.com/ja-jp/library/cc389787.aspx
  Const adLockOptimistic = 3    ' https://msdn.microsoft.com/ja-jp/library/cc389829.aspx
  Const adCmdTable = 2          ' https://msdn.microsoft.com/ja-jp/library/cc389765.aspx
  Set objRecordset = CreateObject("ADODB.Recordset")
  objRecordset.Open "T_USER", objConnection, adOpenStatic, adLockOptimistic, adCmdTable
  objRecordset.Find "ID=2"
  If Not objRecordset.EOF Then
    objRecordset.Delete
  End If

  ' 切断
  objConnection.Close

  objAccess.Quit
  Set objRecordset = Nothing
  Set objConnection = Nothing
  Set objAccess = Nothing
End Sub

Function GetCurrentDirectory()
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

参考記事

MSDN - Delete メソッド (ADO Recordset)

今回は「VBScript で Access を操作する方法」についてまとめました。参考になったでしょうか？本記事がお役に立っていると嬉しいです！！

VBScript で Excel を操作する方法

今回は「VBScriptでExcelを操作する方法」についてまとめます。

Excel や Access でもスクリプトが書けますが、Officeアプリ上のVBは「VBA」と呼ぶようです。今回のまとめは「VBScript」なので、アプリケーションの起動など出だし部分は「VBA」と若干異なる箇所があります。

アプリケーションの起動/終了
ブックの操作
シートの操作
セルの操作

アプリケーションの起動/終了

CreateObject でインスタンス生成すればアプリケーションは起動する。ただし Visible = True にしないと画面自体は表示されない。たま、 ScreenUpdating をスクリプト処理中 OFF となるよう指定しておくと画面描画されなくなるのでスクリプト処理が高速化する。

' Mainサブルーチン
Sub Main ()
  On Error Resume Next

  ' Excelアプリケーションのインスタンス生成
  Dim objXls : Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub

  ' Excelの表示
  objXls.Visible = True
  objXls.ScreenUpdating = False

  '
  ' いろいろ処理する…
  '

  ' Excelの終了
  objXls.ScreenUpdating = True
  objXls.Quit

  ' インスタンスの破棄
  Set objXls = Nothing
End Sub

' Mainサブルーチンの実行
Main

参考

MSDN - Application object

ブックの操作

新規ブック作成

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = True

  ' Workbookを新規作成
  Set objWorkbook = objXls.Workbooks.Add()

  ' …いろいろ処理する…

  ' Workbookを閉じる
  objWorkbook.Close

  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Main

ブックを開く/閉じる

開きたい Excel ファイルは絶対パスで指定してあげる。

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = True

  ' Workbookを開く
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")

  ' …いろいろ処理する…

  ' Workbookを閉じる
  objWorkbook.Close

  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

ブックを保存する

上書き保存

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = True

  ' Workbookを開く
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")

  ' …いろいろ処理する…

  ' Workbookを保存
  objWorkbook.Save

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next

  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

名前を付けて保存

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = True

  ' Workbookを開く
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")

  ' …いろいろ処理する…

  ' Workbookを保存
  objWorkbook.SaveAs(GetCurrentDirectory() & "\test2.xlsx")

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

参考

シートの操作

シート名一覧の取得

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook, objSheet
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")
  objXls.Visible = False

  ' シート名一覧を取得する
  For i = 1 To objWorkbook.Sheets.Count
    Set objSheet = objWorkbook.Sheets(i)
    If objSheet.Visible Then
      wscript.echo objSheet.Name
    End If
  Next

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

シート名を指定してアクティブにする

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook, objSheet
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")
  objXls.Visible = True

  ' シート名を名称で指定して取得。1から始まるインデックスで指定もできる。
  Set objSheet = objXls.Sheets("Sheet4")

  ' アクティブシートに設定
  objSheet.Activate

  ' …いろいろ処理する…

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

シートを追加/削除

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook, objSheet1, objSheet2
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = True
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")

  ' 先頭に新規シートを追加
  Set objSheet1 = objXls.Sheets.Add(objXls.Sheets(1)) 

  ' 末尾に新規シートを追加
  Set objSheet2 = objXls.Sheets.Add( ,objXls.Sheets(objXls.Sheets.Count)) 

  ' シート名を指定して削除。
  objXls.DisplayAlerts = False      ' データがあるとアラート表示されるので一時的に消す。
  objXls.Sheets("Sheet1").Delete
  objXls.DisplayAlerts = True

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

シート名を変更

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook, objSheet1, objSheet2
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = True
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")

  ' "Sheet1" を "シートx" に変更
  objWorkbook.Sheets("Sheet1").Name = "シートx"

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

セルの操作

データのあるセル範囲を取得

データのあるセルは Worksheet.UsedRange で取得きる。取得された Range にオフセットがある場合、オフセットセル数は Range.Row および Range.Column がオフセットになる。

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook, objSheet, objRange, intR, intC
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = False
  objXls.ScreenUpdating = False
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")
  Set objSheet = objWorkbook.Sheets("Sheet1")

  ' データのある範囲を取得
  Set objRange = objSheet.UsedRange

  ' データ範囲を表示
  For intR = 1 To objRange.Rows.Count
    For intC = 1 To objRange.Columns.Count
      wscript.echo _ 
        "[" & objRange.Row + intR - 1 & ","  & objRange.Column + intC - 1 & "]" & _
        objRange(intR, intC).Text
    Next
  Next

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

セルの値を取得

Range.Value でも値は取れるがシリアル値になる。日付やパーセンテージは表示されている値で取得したほうが良いので Range.Text で値を取得する。

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook, objSheet, objRange
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = False
  objXls.ScreenUpdating = False
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")
  Set objSheet = objWorkbook.Sheets("Sheet1")

  ' データ取得範囲を指定
  Set objRange = objSheet.Range("A1:E2")

  ' データを表示
  For intR = 1 To objRange.Rows.Count
    For intC = 1 To objRange.Columns.Count
      wscript.echo _ 
        "[" & objRange.Row + intR - 1 & ","  & objRange.Column + intC - 1 & "]" & _
        objRange(intR, intC).Text
    Next
  Next

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

セルに値を書き込む

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook, objSheet, objRange
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = True
  objXls.ScreenUpdating = True
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")
  Set objSheet = objWorkbook.Sheets("Sheet1")

  ' 標準
  objSheet.Cells(1,1).Value = "あ"
  objSheet.Cells(1,1).NumberFormatLocal = "G/標準"

  ' 文字列
  objSheet.Cells(1,2).Value = "い"
  objSheet.Cells(1,2).NumberFormatLocal = "@"

  ' 数値
  objSheet.Cells(1,3).Value = "100.123"
  objSheet.Cells(1,3).NumberFormatLocal = "0_);[赤](0)"

  ' 日付
  objSheet.Cells(1,4).Value = "2018/9/1"
  objSheet.Cells(1,4).NumberFormatLocal = "yyyy/mm/dd"

  ' 時刻
  objSheet.Cells(1,5).Value = "20:00"
  objSheet.Cells(1,5).NumberFormatLocal = "hh:mm"

  ' パーセンテージ
  objSheet.Cells(1,6).Value = "60%"
  objSheet.Cells(1,6).NumberFormatLocal = "0%"

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

参考

セルの書式を設定

罫線の線種や太さを示す定数が VBScript 上では使えないので直接値を指定する。 Excel VBA などでは定数が使えるので定数を使うと簡単。

Sub Main ()
  On Error Resume Next

  Dim objXls, objWorkbook, objSheet, objCell
  Set objXls = CreateObject("Excel.Application")
  If Not objXls Then Exit Sub
  objXls.Visible = True
  objXls.ScreenUpdating = False
  Set objWorkbook = objXls.Workbooks.Open(GetCurrentDirectory() & "\test.xlsx")
  Set objSheet = objWorkbook.Sheets("Sheet1")
  Set objCell = objSheet.Range("B3")
  objCell.Value = "ほげほげほげお"

  ' 文字
  objCell.Font.Name = "メイリオ"                      ' フォント
  objCell.Font.Color = RGB(256, 0, 0)     ' 文字色
  objCell.Font.Size = 12                  ' サイズ
  objCell.Font.Italic = True                            ' イタリック
  objCell.Font.Bold = True                                ' 太字

  ' 背景
  objCell.Interior.Color = RGB(192, 192, 192)

  ' 罫線
  objCell.Borders.LineStyle = 1           ' 線種
  objCell.Borders.Weight = 1              ' 太さ
  objCell.Borders.Color = RGB(0, 0, 128)  ' 色

  objWorkbook.Close
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub

Function GetCurrentDirectory()
  On Error Resume Next
  Dim objShell : Set objShell = CreateObject("WScript.Shell")
  GetCurrentDirectory = objShell.CurrentDirectory
End Function

Main

参考

今回は「VBScript で Excel を操作する方法」についてまとめました。参考になったでしょうか？本記事がお役に立っていると嬉しいです！！

C# & JavaScript

単一文字

ドット

文字クラス

文字クラスの略記

Unicodeプロパティ

キャプチャ

グループ化して後方参照

グループ化のみ

名前付きでグループ化して後方参照

アトミックグループ

選択

最大量指定子

最小量指定子

絶対最大量指定子

位置

行頭・行末

単語の境界

後先読み

オプション

g グローバル

i 大文字小文字を区別しない

x フリーフォーマット

s 単一行モード（= ドット全マッチモード）

m 複数行モード (= 拡張行アンカーマッチモード）

文字列

テンプレートリテラル

正規表現

s フラグ

u フラグ

名前付きキャプチャ

後読み

式と演算子

残余プロパティ / 分割プロパティ

Promise.prototype.finally()

非同期イテレータ

対応状況

Object

Object.values() / Object.entries()

構文

サンプルコード

Object.getOwnPropertyDescriptors()

構文

サンプルコード

String

String.prototype.padStart() / String.prototype.padEnd()

構文

サンプルコード

Function

引数末尾のカンマ

サンプルコード

async / await キーワード

SharedArrayBuffer と Atomics

対応状況

Array.prototype.includes()

構文

サンプルコード

指数演算子

構文

サンプルコード

対応状況

Globとは

使い方

利用までの準備

指定方法の例

ソースコード

アプリケーションの起動/終了

データベースへ接続/切断

テーブルの操作

テーブル作成

テーブル削除

インデックス作成

レコードの操作

データ選択（SELECT）

データ追加（INSERT）

データ更新（UPDATE）

データ削除（DELETE）

アプリケーションの起動/終了

ブックの操作

新規ブック作成

`g` グローバル

`i` 大文字小文字を区別しない

`x` フリーフォーマット

`s` 単一行モード（= ドット全マッチモード）

`m` 複数行モード (= 拡張行アンカーマッチモード）