vbslib

(for Internet Explorer)

Function StrCompOption( Opt as integer ) as integer

の Option 引数に指定する値を返します。

vbBinaryCompare (=0)

大文字小文字は区別しない

大文字小文字は区別する

いろいろな関数の Opt 引数が、StrCompOption の Opt 引数と同じ意味を持つことが
よくあります。

Dim c : Set c = g_VBS_Lib
If StrCompLastOf( "ABC", "BC", c.CaseSensitive ) = 0 Then ...

Dim c : Set c = g_VBS_Lib
If StrComp( "ABC", "BC", StrCompOption( c.CaseSensitive ) ) = 0 Then ...

→ T_Str.vbs # [T_StrComp]

Function StrCompHeadOf( Str as string, HeadStr as string, Opt as integer ) as integer

文字列の先頭を比較します。

比較される文字列

Str の先頭と比較する文字列

LastStr 引数の値

Str の先頭 = HeadStr なら、0

0以外(=異なる)、負の値

→ T_Str.vbs # [T_StrComp]

Function StrCompLastOf( Str as string, LastStr as string, Opt as integer ) as integer

文字列の末尾を比較します。

比較される文字列

Str の末尾と比較する文字列

LastStr 引数の値

Str の末尾 = LastStr なら、0

0以外(=異なる)、正の値

Function AddIfNotExist( WholeStr as string, AddStr as string, Separator as string,
Opt ) as string

WholeStr に AddStr が含まれていなければ、先頭に AddStr を追加したものを返します。

追加する文字列

文字列の列挙を区切る文字列

AddStr＋Separator＋WholeStr、または、WholeStr

Assert AddIfNotExist( "ABC;DEF", "XYZ", ";", Empty ) = "XYZ;ABC;DEF"
Assert AddIfNotExist( "ABC,XYZ", "XYZ", ",", Empty ) = "ABC;XYZ"
Assert AddIfNotExist( "", "XYZ", ";", Empty ) = "XYZ;"

set_ "PATH", AddIfNotExist( env("%PATH%"), _
GetFullPath( "..\bin", Empty ), ";", Empty )

→ T_Str.vbs # [T_AddIfNotExist]

に "..\bin" フォルダーのフル・パスを追加する

" " で囲まれた部分を取り出す。

Function MeltQuot( Line as string, in_out_Start as integer ) as string

i = 1
Do
s = MeltQuot( line, i )
If not IsEmpty( s ) Then （s を使った処理）
If i = 0 Then Exit Do
Loop

（入力）取り出しを開始する文字の位置、（出力）次に取り出す～

" " で囲まれた部分文字列。Empty=項目に値が無い

→ T_Str.vbs # [T_MeltQuot]

Function sscanf( String, Format )

文字列の途中を取り出します。

取り出す部分を指定する文字列。 "%d" または "%s" を含む

取り出した文字列、または、数値

Assert sscanf( "ABC123DEF", "ABC%dDEF" ) = 123

数値を取り出すときは、%d を使います。

文字列を取り出すときは、%s を使います。

Assert sscanf( "===[ABC]===", "[%s]" ) = "ABC"

→ T_Str.vbs # [T_sscanf]

Assert sscanf( "===[123] [456]===", "[%s]" ) = "123"
Assert sscanf( "===[ [ 123 ] ]===", "[%s]" ) = " [ 123 "

複数にマッチする場合、最も左にあるものとマッチします

%d, %s 以外の部分がマッチしないときは、エラーになります。

Function ScanFromTemplate( ScanString as string, TemplateString as string,
KeywordArray as array of string, Option_ as Empty ) as dictionary of string

文字列の途中を複数取り出します。

取り出す文字列を含む文字列

取り出す部分を指定する文字列

TemplateString に書かれた取り出す部分の文字列の配列

→ T_Str.vbs # [T_ScanFromTemplate]

Empty または g_VBSLib.WithDollarVariable

Set out = ScanFromTemplate(_
"ab12cde34xyz",_
"b${First}cde${Second}xy",_
Array( "${First}", "${Second}" ), Empty )
Assert out("${First}") = "12"
Assert out("${Second}") = "34"

KeywordArray 配列の要素は、TemplateString の中に含まれる順番に指定してください。

KeywordArray 配列の要素は、${ } や % % で囲んだ形式である必要はありません。
${ 文字を指定するときに $\{ を指定したときは、Option_ に g_VBSLib.WithDollarVariable
を指定してください。

取り出した文字列の辞書

ScanString が TemplateString にマッチしないときは、エラーになります。

Sub ScanMultipleFromTemplate( ScanString as string, TemplateString as string,
Keywords as array of string, Option_ as Empty,
out_Scaned as array of dictionary of string )

文字列からテンプレートを複数回適用してテンプレートの変数部分を取り出します。

取り出す文字列を含む文字列

取り出す部分を指定する文字列

TemplateString に書かれた取り出す部分の文字列の配列

Empty を指定してください

ScanFromTemplate _
" [1,2] [3,4] ",_
"[${A},${B}]",_
Array( "${A}", "${B}" ), out '//(out) out
Assert out(0)("${A}") = "1"
Assert out(0)("${B}") = "2"
Assert out(1)("${A}") = "3"
Assert out(1)("${B}") = "4"

取り出した文字列の辞書の配列

T_ScanMultipleFromTemplate

テンプレートを１回適用する場合

KeywordArray に配列ではない文字列を指定した場合、out_Scaned には辞書ではない
配列が出力されます。

ScanFromTemplate _
" [1] [2] ",_
"[#]", "#", out '//(out) out
Assert out(0) = "1"
Assert out(1) = "2"

Function InStrEx( WholeString as string, Keyword as string, StartIndex as integer,
Opt as integer ) as integer

オプションを指定して文字列を検索します。

検索対象になる文字列

検索するキーワード。複数指定するときは配列型で

検索を開始する位置。先頭=1。全体を検索（先頭または末尾）=0

下記のフラグ、または Empty

見つかった文字列の先頭の位置。 0=見つからなかった

単語全体にマッチする文字列を検索します

Set c = g_VBS_Lib
Assert InStrEx( "answer ans", "ans", 1, c.WholeWord or c.CaseSensitive ) = 8

下記のフラグを複数指定するときは、or で接続してください。
なお、c は、g_VBS_Lib の返り値です。

英語の単語全体にマッチする文字列を検索します。
このフラグを指定しなければ、単語の一部にキーワードを含む単語も
検索にヒットします。

大文字、小文字を区別します。
このフラグを指定しなければ、大文字、小文字が異なる文字列も
検索にヒットします。

前方（左上方向）に向かって検索します。
このフラグを指定しなければ、後方（右下方向）に向かって検索します。

返り値を、見つかった文字列の末尾の次の位置にします。

検索キーワードが行頭にある場所を検索します。

検索キーワードが行末にある場所を検索します。

T_InStrExLineHeadTail

指定したキーワードのどれか最初にマッチした文字列を検索します

pos = InStrEx( text, Array( "{{", "}}", "＝" ), pos, Empty )

Array( "{{", "}}", "＝" )

Function InStrLast( WholeString as string, Keyword as string ) as integer

文字列を検索して、最初に見つかったキーワードの末尾の次の位置を返します。

検索対象になる文字列

検索するキーワード

キーワードの末尾の次の位置、見つからない=0

→ T_Str.vbs # [T_InStrLast]

InStrLast( "ABCDEF", "CD" ) = 5 '// E の位置

Function IsWholeWord( WholeString as string, StartIndex as integer, SubWordLen as integer )
as integer

文字列の中の指定した範囲が、単語単位になっているかどうかを返します。

検索対象になる文字列

範囲の開始位置。先頭=1。文字単位

範囲の長さ（文字数）

単語単位になっているかどうか

Assert IsWholeWord( "This is a pen.", 6, 2 ) = True

Assert IsWholeWord( "This", 2, 2 ) = False

Assert IsWholeWord( "This is", 1, 7 ) = True

範囲の中に複数の単語があっても、両端が単語の単位になっていれば True になります。

Function StrMatchKey::IsMatch( TestStr as string ) as Boolean

* のワイルドカードを使って、マッチするかどうかを高速に判定します。
* は２つ以上指定できません。エラーになります。

Property Keyword as string

ワイルドカードを含むキーワード。

TestStr が、.Keyword で設定したワイルドカードにマッチするかどうかを返す。
大文字小文字を区別しません。

TestStr が、.Keyword で設定したワイルドカードにマッチするかどうかを返す。
大文字小文字を区別します。

Function StrMatchKey::IsMatch( TestStr as string ) as Boolean

Set match = new StrMatchKey
match.Keyword = LCase( "*.TXT" )
If match.IsMatch( "file1.txt" ) Then
:
End If

大文字小文字を区別しないときは、LCase を使って小文字にしてください。

→ T_Wildcard.vbs # [T_StrMatchKey]

テキストを置き換えることを登録します。

指定のタグで囲まれたテキストを置き換えることを登録します。

テキストを置き換える手順のオブジェクト。
同じ手順を繰り返すことや、置き換える手順をパラメーター化できます。

登録しておいた処理を実行します。

Set rep = new StringReplaceSetClass
rep.Replace "from", "to"
output_text = rep.DoReplace( input_text )

T_StringReplaceSet_Range

Sub StringReplaceSetClass::Replace( FromText as string, ToText as string )

テキストを置き換えることを登録します。

置き換える前のテキスト

置き換えた後のテキスト

Sub StringReplaceSetClass::ReplaceRange( StartOfFromText as string, EndOfFromText as string,
ToText as string )

指定のタグで囲まれたテキストを置き換えることを登録します。

置き換える前のテキストが始まる場所にあるタグ（テキスト）

置き換える前のテキストが終わる場所にあるタグ（テキスト）

置き換えた後のテキスト。通常、タグも含む。

Function StringReplaceSetClass::DoReplace( InputText as string ) as string

登録しておいた処理を実行します。

置き換える前のテキスト

置き換えた後のテキスト

Function ToRegExpPattern( NoEscapedString as string ) as string

正規表現で使われるメタ文字も検索できるように変換します。

メタ文字も含む可能性がある検索キーワード

メタ文字をエスケープした検索キーワード

Assert ToRegExpPattern( "[0]" ) = "\[0\]"

Set re = new_RegExp( "Function$.*$", True )

Function new_RegExp( Pattern as string, IsCaseSensitive as boolean ) as RegExp

オブジェクトを簡易的に生成します。

大文字小文字を区別するかどうか

正規表現オブジェクト

Assert FindStringLines( "abc"+ vbCRLF +"def", "ab", Empty ) = "abc"+ vbCRLF

Function FindStringLines( BeforeString as string, RegularExpression as string or RegExp,
Option_ as Empty )

複数行の文字列を、正規表現でマッチする行だけにします。

変換前の文字列

正規表現の文字列、または

Empty または False (=マッチしない行だけにする)

変換後の文字列

Assert FindStringLines( "abc"+ vbCRLF +"def", ".*", Empty ) = "abc"+ vbCRLF +"def"

Set rep = OpenForReplace( "file1.txt", Empty )
rep.Text = FindStringLines( rep.Text, """ERROR""", Empty )
rep = Empty

Function SortStringLines( BeforeString as string, IsDuplicated as boolean )

複数行の文字列を、行単位で整列（ソート）します。

整列前の文字列

重複する行をそのまま残すかどうか。 False = 重複したら１行にする

整列後の文字列

lines = _
"A"+ vbCRLF +_
"C"+ vbCRLF +_
"F"+ vbCRLF +_
"C"

lines = SortStringLines( lines, False )

Assert lines = _
"A"+ vbCRLF +_
"C"+ vbCRLF +_
"F"+ vbCRLF

と同じようにアクセスします。