vbslib

(for Internet Explorer)

Function LengthCompare( Left as variant, Right as variant, Param as variant ) as integer

２つのパラメーターの長さを比較します。

文字列型のときは、文字列の長さを比較します。
Param がマイナスなら、返り値の正と負が入れ替わります。

Function LengthNameCompare( Left as variant, Right as variant, Param as variant ) as integer

２つのパラメーターの Name プロパティを LengthCompare で比較します。

Param = -1 にすると、逆順になります。

Function PathCompare( Left as string, Right as string, Param as variant ) as integer

２つの文字列をパスとして比較します。

→ T_ShakerSort.vbs

パスとして比較する処理の詳細

Function PathNameCompare( Left as variant, Right as variant, Param as variant ) as integer

２つのオブジェクトの Name プロパティをパスとして比較します。

→ T_ShakerSort.vbs

arr = ArrayToNameOnlyClassArray( Array( "F", "EE\!", "EE\*", "EE", "E!E", "E\F", "E" ) )
ShakerSort arr, 0, UBound( arr ), GetRef("PathNameCompare"), Empty
arr = NameOnlyClassArrayToArray( arr )
Assert IsSameArray( arr, Array( "E", "E\F", "E!E", "EE", "EE\*", "EE\!", "F" ) )

フォルダーの中にあるフォルダーやファイルは、連続します。
たとえば、通常の文字コードでソートしたら "A!B", "A\!", "A\*", "A\C" の順になりますが、
PathNameCompare では、"A\*", "A\!", "A\C", "A!B" の順になります。
フォルダー区切り記号（\,/）、ワイルドカード（*）、ピリオド（.）を、文字コードが小さい文字（タブ）
として処理します。

Param を負の値とすると、大小比較の結果が逆になります。
そうでないときは、Param = Empty または Param を正の値にしてください。

ファイル名でソート

したときのように、数字は整数として比較します。

Function NoCompareFunction( Left as variant, Right as variant, Param as variant ) as integer

Param 引数の内容をそのまま返します。

Function IsReverseSortOption( in_Option as variant ) as boolean

逆順でソートするオプションが指定されているかどうかを返します。

in_Option 引数の値

→ T_ShakerSort.vbs

→ PArray_doShakerSort (clib)

Function CInt2( v as string ) as integer

CInt でエラーが発生する値を v に指定したときは、0 を返します。

文字列を数値に変換します。

VBScript では、CInt は、符号付き16ビット整数ですが、CInt2 は
CLng に相当する符号付き32ビット整数に対応しています。

→ GetNumWithZeroAtLeft

Function Trim2( v as string ) as string

文字列の端の空白文字だけでなく、タブ文字、改行文字もカットした文字列を返します。

Function LTrim2( v as string ) as string

Function RTrim2( v as string ) as string

Function AlignString( in_InputData as integer, in_MinimumLength as integer,
in_FillingCharacter as string, in_ValueIfOver as Empty or string ) as string

文字列や数値の左または右に、空白や 0 などを並べて、幅を合わせた文字列に変換します。

out = AlignString( "a", 3, " ", Empty ) : Assert out = " a"
out = AlignString( 123, 6, "0", Empty ) : Assert out = "000123"
out = AlignString(-123, 6, " ", Empty ) : Assert out = " -123"
out = AlignString( "AB",-5," ", Empty ) : Assert out = "AB "

out = AlignString(-123, 3, " ", "###" ) : Assert out = "###"
out = AlignString(-123, 3, " ", Empty ) : Assert out = "-123"
out = AlignString(-123, 6, " ", "###" ) : Assert out = " -123"

変換される文字列や数値

返り値の文字数の最小値、マイナス=左詰め

in_MinimumLength を超えたときの返り値、または、Empty

幅を合わせた文字列

in_ValueIfOver = Empty のときは、返り値が in_MinimumLength を超える文字数になる
可能性があります。

幅を広げるときに並べる文字

Sub CutLastOf( in_out_Str as string, LastStr as string, Opt as integer )

in_out_Str の最後が LastStr と一致したら、それをカットします。

（入出力）カットされるかもしれない文字列

比較する文字列

→ T_Str.vbs # [T_StrComp]

s = "file1.txt"
CutLastOf s, "1.txt", Empty
Assert s = "file"

Path の最後を区切り記号にします

ファイル名（拡張子を除く）の最後を削除します

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

末尾にあるフォルダーの区切り記号を返します

Function LenK( Str as string ) as integer

英文字を 1文字、日本語（文字コード256以上）を 2文字として文字数を返します。

LenK( "123" ) = 3
LenK( "123あいう" ) = 9
Len( "123あいう" ) = 6

Function StrCount( Str as string, Keyword as string, StartPos as integer, Opt as integer ) as integer

文字列が存在する数を返します。

数を数えられる文字列

数を数える文字列

Keyword 引数の値

Str の中にある Keyword の数

Str の中の、数え始める位置。先頭=1

→ T_Str.vbs # [T_StrCount]

Function GetTab( Level as integer ) as string

インデント数を指定して、空白文字を返します。

インデント数×２の空白文字を返します。

Function CutLineFeedAtRightEnd( Text as string, Width as integer ) as string

コマンドプロンプトの右端からあふれた文字列を１行にまとめます。

コマンドプロンプトからコピーした文字列

コマンドプロンプトの幅

修正した文字列

01234567890123456789

ABCDEFGHIJKLMNOPQRST
UVWXYZ
END

Width = 20 の場合、

ABCDEFGHIJKLMNOPQRSTUVWXYZ
END

Function StrCompOption( Opt as integer ) as integer

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

vbBinaryCompare (=0)

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

大文字小文字は区別する

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

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

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

→ T_ShakerSort.vbs

→ T_Str.vbs # [T_StrComp]

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

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

比較される文字列

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

LastStr 引数の値

Str の先頭 = HeadStr なら、0 。

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

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

0 のとき、c.AsPath が設定されていないとき、

c.AsPath が設定されているとき、

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

LastStr 引数の値

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

LastStr 引数 = Empty のときは、親フォルダーがなく、該当する親フォルダーに
入っていないために「異なる」という結果にしています。

→ 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

列挙された文字列のどれにも一致しなければ、先頭に追加します。

追加する文字列

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

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]

Assert MeltCmdLine( """double_quotation""", 1 ) = "double_quotation"

C言語の printf 書式

Function sprintf( in_Format as string, in_Parameter as array of integer ) as string

で整形した文字列を返します。

C言語の printf 書式

C言語の printf 書式のパラメーター

C言語の printf 書式で整形した文字列

C言語の printf 書式のすべてはサポートしていません。
%d と %s は、そのまま文字列に挿入します。
%02d のように 0 から始まる数値が % と d の間にあれば、その桁数だけ上位に 0 が付きます。
% と d の間だけでなく、d 以外でも上位に 0 が付きます。
%X または %d は、16進数に変換して挿入します。 10進数の 10～15 は、%X では A～F、%x
では a～f になります。

Assert sprintf( "number = %d", Array( 2 ) ) = "number = 2"
Assert sprintf( "n = %02d, %02d, %02d", Array( 3, 5, 10 ) ) = "n = 03, 05, 10"
Assert sprintf( "0x%X, 0x%X, 0x%X, 0x%x", Array( 8, 9, 10, 11 ) ) = "0x8, 0x9, 0xA, 0xb"

Assert sprintf( "alphabet = %s", Array( "A" ) ) = "alphabet = A"
Assert sprintf( "alphabet = (%-4s)", Array( "A" ) ) = "alphabet = (A )"

Function sscanf( String, Format )

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

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

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

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

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

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

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

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 に書かれた取り出す部分の文字列の配列

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 にマッチしないときは、エラーになります。

Set out = ScanFromTemplate(_
"abc def ghi"+ vbCRLF,_
"%A% %B% %C%",_
Array( "%A%", "%B%", "%C%" ), Empty )
Assert out("%A%") = "abc"
Assert out("%B%") = "def"
Assert out("%C%") = "ghi"+ vbCRLF

変数が TemplateString 引数の端にあるとき