VBSメモ

(for Internet Explorer)

Function IsDate( Value as Date or string ) as boolean

Value に指定した値が、Date 型か、日付として有効な文字列かどうかを返します。

Function IsNumeric( Value as integer or string ) as boolean

Value に指定した値が、整数型か、浮動小数型か、数字からなる文字列かどうかを返します。

IsNumeric( 1 ) = True
IsNumeric( 1.2 ) = True
IsNumeric( "1" ) = True
IsNumeric( "1,000" ) = True

は、ありません。

列挙型, Enum (VBScript)

VBScript には、列挙型がないので、下記のようにするとよいでしょう。

'-------------------------------------------------------------------------
' ### <<<< [SampleEnum] >>>>
'-------------------------------------------------------------------------
Class SampleEnumClass
Public Foo
Public Bar

Private Sub Class_Initialize()
Foo = 1
Bar = 2
End Sub

Public Function Str( EnumValue )
Select Case EnumValue
Case Foo : Str = "Foo"
Case Bar : Str = "Bar"
End Select
End Function
End Class

Dim SampleEnum : Set SampleEnum = new SampleEnumClass

variable = SampleEnum.Foo
WScript.Echo SampleEnum.Str( variable )

Set ns = SampleEnum '// Copy name space
variable = ns.Foo
WScript.Echo ns.Str( variable )

SampleEnum 名前空間にある Foo というシンボル

= -1 （全ビット１）

全ビット論理積

全ビット論理和

引数に Boolean を指定すると、機能追加により引数が増えてしまうことが多いので、

を使うことをお勧めします。

ビットが１かどうか

ビットが０かどうか

not(Flags and 4) ではありません

Option Explicit

Class Book
Public Title ' メンバ変数
Public Price ' メンバ変数
End Class

main

Sub main
Dim book,dic,key,keys
Set book = New Book
book.Title = "Book Title"
book.Price = 400

Set dic = CreateObject( "Scripting.Dictionary" )

dic.Add "key1", book
MsgBox dic.Item("key1").Title
If dic.Exists("key1") Then MsgBox "!"

For Each key in dic.Keys '// or dic.Items
WScript.Echo key & " " & dic.Item(key).Price
Next

dic.Remove "key1"
dic.RemoveAll
End Sub

文字列（Key）から、数値やオブジェクトなど（Item）を高速に引き出します。

Scripting.Dictionary

Key は重複できません。
Key は、文字列、または、整数値、または ""

要素をデバッガでウォッチするときは、Keys, Items プロパティを参照します。

Set dic = CreateObject( "Scripting.Dictionary" )

Const c_NotCaseSensitive = 1
Set dic = CreateObject( "Scripting.Dictionary" )
dic.CompareMode = c_NotCaseSensitive

Key の大文字小文字を区別しない

Sub Dictionary::Add( Key as string, Item as variant )

要素を追加します。

すでに Key がある時は、エラー 0x1C9 になります。

すでに Key があるかどうかに関わらず設定するときは、

Property Get Dictionary::Count() as integer

Function Dictionary::Keys() as array of string

Dictionary の中にある要素のうち、キーを集めた配列を返す

For Each key in dic.Keys
WScript.Echo key & " " & dic.Item(key)
Next

次のようにすれば、Key と Item の両方を参照できます。

Function Dictionary::Items() as array of variant

Dictionary の中にある要素のうち、アイテムを集めたコレクションを返す

Default Property Get Dictionary::Item( Key as string ) as variant

引数 key をキーとした item を返します。

dic.Item("key1") = 1
Set dic.Item("key2") = New Class

ただし、次のようにしても、item は変更できません

item = dic.Item("key1")
item = 1
item <> dic.Item("key1")

登録されていないときは、新規に登録します。

返した item は参照返しなので、下記のように設定することができます。

dic("key1") = 1 '// dic.Item("key1") = 1

Item はデフォルト・プロパティです。 .Item を省略できます。

登録したくないときは Exists で調べるか、

を使用してください。

キーが登録済みのときにエラーにするときは、

を使ってください。

Function Dictionary::Exists( Key as string ) as boolean

指定したキーに対応する要素が入っているかどうかを返します。

キーが存在しないときに自動的にキーを追加しない辞書

Property Dictionary::CompareMode as integer

キーの種類。同じキーとして扱う条件。

バイナリ比較、大文字小文字を区別

文字列比較、大文字小文字を区別しない

他にもあります

Const NotCaseSensitive = 1
Dim dic : Set dic = CreateObject( "Scripting.Dictionary" )
dic.CompareMode = NotCaseSensitive

すでにデータが入っているときは、エラーになります。

Sub Dictionary::Remove( Key as string )

登録されていないキーが指定されたら、エラーになります。

Sub Dictionary::RemoveAll()

Set re = CreateObject( "VBScript.RegExp" )

re.Pattern = "^aaa.*bbb.c"
WScript.echo re.Test( "aaaxxxbbbyc" )

テストされる
文字列

Function RegExp::Execute( s as string ) as Matches

正規表現にマッチするかどうかテストし、マッチしたものを返します。

テストされる文字列

マッチしたもの

に検索条件を設定してから呼び出してください。

Set re = CreateObject( "VBScript.RegExp" )

re.Pattern = "a.b"
re.Global = True
Set matches = re.Execute( "raxbmacb" )

WScript.echo "Match count = " & matches.Count
For Each match In matches
WScript.echo "FirstIndex = " & match.FirstIndex & _
", Length = " & match.Length & ", Value = " & match.Value
Next

Match count = 2
FirstIndex = 1, Length = 3, Value = axb
FirstIndex = 5, Length = 3, Value = acb

正規表現 = "a.b", テストされる文字列 = "raxbmacb", 複数検索する

RegExp::Global = False のときは、Matches::Count は 0 か 1 のどちらかになります。

FirstIndex は、0 = １文字目です。

マッチした位置、最初=0、2バイト文字も 1 でカウント

マッチした文字列の文字数、2バイト文字も 1 でカウント

マッチした文字列

でテストした結果です。

Set re = CreateObject("VBScript.RegExp")

re.Pattern = "<DIV .*>"
re.Global = True
Set matches = re.Execute( text )

For Each match In matches
attr = sscanf( match.Value, "id=""%s""" )
text = Left( text, match.FirstIndex ) +_
"<DIV id="""+ attr +""" plus=""add"">" +_
Mid( text, match.FirstIndex + match.Length + 1 )
Next

任意の id属性（ワイルドカード）を持つ DIVタグに、plus 属性を加える

Matches オブジェクトのプロパティ

Index + 1 番目のマッチした内容。 Index >= 0

String .SubMatches(n)

( ) で区切られた Pattern のそれぞれのマッチした
文字列。 n>=0。要素数は、.SubMatches.Count。

TypeName は、"IMatch2" です。

Function RegExp::Test( s as string ) as Boolean

正規表現にマッチするかどうかテストし、1つでもマッチしたかどうかを返します。

テストされる文字列

マッチした文字列があるかどうか

Set re = CreateObject("VBScript.RegExp")

re.Pattern = "^aaa.*bbb.c"
WScript.echo re.Test("aaaxxxbbbyc")

に検索条件を設定してから呼び出してください。

（もし 0 なら False)

引数 s の一部にヒットしたときでも、True を返します。
Me.Pattern の先頭に "^"、末尾に "$" を付けると、引数 s の一部にヒットした
ときは、False を返します。

Function RegExp::Replace( s as string, to as string ) as string

正規表現を使って、文字列の一部を置換します。

入力文字列（置き換える前の文字列を含む文字列）

置き換えた後の文字列

Set re = CreateObject( "VBScript.RegExp" )

re.Pattern = "a.b"
re.Global = True
WScript.echo re.Replace( "raxbmacb", "---" )

出力文字列（置き換えた後の文字列を含む文字列）

に設定してから呼び

Set re = CreateObject( "VBScript.RegExp" )
re.Pattern = "%([0-9]+)"
WScript.echo re.Replace( "%123", "$1" )
re.Global = True
WScript.echo re.Replace( "%123 %456", "<$1>" )

注意： $1 は、他の正規表現
ライブラリで指定する ${1}
と同じ意味ですが、${1} と
指定できません。

→ 正規表現を使った置換

置き換える前の文字列（検索条件）を

出してください。

Dim RegExp::MultiLine as boolean

Pattern に、行頭 "^"、行末 "$" が使えるようにします。

Set re = CreateObject("VBScript.RegExp")

re.Pattern = "A.*"+vbCR+"?"+vbLF+"^D"
re.MultiLine = True
Set matches = re.Execute( "ABC"+ vbCRLF +"DEF"+ vbCRLF )

echo "Match count = " & matches.Count
For Each match In matches
echo "FirstIndex = " & match.FirstIndex & _
", Length = " & match.Length & ", Value = " & match.Value
Next

"ABC"+ vbCRLF +"DEF"+ vbCRLF に対して、"A.*"+vbCR+"?"+vbLF+"^D" がマッチするには、
MultiLine を True にする必要があります。 "^" がない "A.*"+vbCR+"?"+vbLF+"D" にマッチ
するには、MultiLine は False でも構いません。

改行文字は、任意の文字 "." や、行頭 "^" や、行末"$" にマッチしないので、 vbCR+"?"+vbLF
を指定する必要があります。これは、MultiLine の値がどちらでも、違いはありません。

Match count = 1
FirstIndex = 0, Length = 6, Value = ABC
D

${ } 変数から ${ } 関数へ

剰余。あまり。 9 Mod 4 = 1, -9 Mod 4 = -1

16進数の 1F （10進数の値は 31）
&h8000 ～ &hFFFF と、&h80000000 ～ &hFFFFFFFF は、マイナス
-32767～+32767 は、Integer です。 -32768 は Long です。

Const Err_TestSkip = 2

定数。参照する場所より上に記述する必要がある
Execute されるコードには再度記述が必要

→ クラスの定数

論理和、1 にするビット演算

商（割った結果を整数にする）。四捨五入あり

If は、0以外で真になります

CInt(1.9) = 2, Int(1.9) = 1, Fix(1.9) = 1
CInt(1.9) = -2, Int(-1.9) = -2, Fix(-1.9) = -1

0 にするビット演算

16進数 &h8000 ～ &hFFFF の正の値を取得するとき。

… VBScript では下記 CLng

引数は、文字列であること。 " " で囲まないと NG

n ビット左シフト

n ビット右シフト。 \ は商（上記）。四捨五入に注意。