Function  FormatNumber( Number as integer [, Decimal as integer, bZero as integer,
                        bMinus as integer, bKeta as integer ] ) as string

数値を、書式で整列した文字列に変換します。

【引数】

Number

Decimal

変換前の数値

小数の桁数。 四捨五入されます。 省略時 = 2

返り値

数値を、書式で整列した文字列

(Web)

(Web)

bZero

整数部が 0 のとき 0 を付けるか。 True=0.1、False=.1、省略時= OS設定(True)

Function  Hex( Num as integer ) as string

数値から、16進数の文字列に変換します。

サンプル：

Function InStr( [start_i,] s, key [,mode] ) as integer

(p211)

start_i

開始位置(1〜)、省略すると 1

s

検索対象の文字列

key

検索キーワード

返り値

見つかった位置(1〜)、 見つからなかった = 0

取得した返り値 i を Left( s, i ) とすると、見つかった文字まで含みます。
取得した返り値 i を Mid( s, i ) とすると、見つかった文字から含みます。
start_i を指定しても、返り値は s の先頭からの位置です。

【引数】

文字列 s の中を検索して、文字列 key のある位置を返します。

A B C D E F

1 2 3 4 5 6

InStr

Left(s,3) = "ABC"
Mid(s,3) = "CDEF"

[ 親: 文字列 ]

(Web)

→ 正規表現 (VBScript.RegExp)

参考

s が Null のときは、Null を返します。

大文字小文字を区別しないときは、s と key を LCase 関数で変換してください。

サンプル

Function InStrRev( s, key [,start][,mode] ) as integer

start_i

開始位置(1〜)、省略すると -1=末尾

s

検索対象の文字列

key

検索キーワード

返り値

見つかった位置(1〜)、 見つからなかった = 0

【引数】

文字列 s の中を末尾から検索して、文字列 key のある位置を返します。

mode

→ 正規表現 (VBScript.RegExp)

関連

大文字小文字を 0=区別する、1=区別しない

→ InStrEx の c.Rev (vbslib)

start_i 引数は、次にマッチする可能性があるキーワードの末尾の位置を指定してください。

Function  Replace( str as string, from as string, to as string
                   [, start[, count[, compare]]] )

str

置き換えられる文字列を含む文字列

from

置き換える前の文字列

to

置き換えた後の文字列

返り値

置き換えた後の文字列を含む文字列

【引数】

文字列の一部を置き換えます。

str に from と一致する文字列が複数あったら、すべて置き換えます。

例：

Function  Join( Array as array of variant [,Delimiter as string] ) as string

配列の要素を列挙した文字列を返します。

【引数】

Array

Delimiter

列挙する配列

要素の間に入れる文字列、省略時=" "（空白）

返り値

配列の要素を列挙した文字列

(Web)

→ Split

関連

Function  LCase( s as string ) as string

LCase

[ 親: 文字列 ]

Function  Asc( Text as string ) as integer

文字列の先頭の文字を、Shift-JIS コードの数値で返します。（Asc）

VBScript のテキストは Unicode ですが、Asc の返り値は Unicode ではありません。
AscW の返り値は Unicode です。

サンプル

Function  Left( s as string, i as integer ) as string

文字列の左から数文字だけ返します。

s

i

返り値

Function  Mid( s as string, i as integer [, n as integer ] ) as string

文字列の i 文字目から n 文字分だけ返します。

s

i

返り値

Function  StrComp( String1 as string, String2 as string [, Option as integer ] )
  as integer

(Web)

文字列を比較します。

Option に指定できる値

vbBinaryCompare (=0)

vbTextCompare (=1)

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

大文字小文字は区別する。（デフォルト）

サンプル： 下記の条件式は、すべて真です

Function  UCase( s as string ) as string

英文字を大文字にします。

[ 親: 文字列 ]

Class Book
  Public  m_Title   '// メンバ変数
  Private m__Price  '// メンバ変数

  Private Sub  Class_Initialize()  '// コンストラクタ
  End Sub

  Public Sub  Echo()  '// メンバ関数
    WScript.Echo  Title & " - " & Price
  End Sub
End Class

main

Sub main()
  Dim  a_book
  Set  a_book = new Book : ErrCheck
 
  a_book.Title = "VBS本"
  a_book.Echo

  a_book = Empty  '// 明示的な廃棄
End Sub

→ VBSのクラスオブジェクト - FSWikiLite (Web)

Class

Public Sub

new

.

End Class

配列のメンバ変数もできます。
ただし、Redim は、メンバ関数の中でしかできません。

オブジェクト

Option Explicit

Class  ClassA
  Public  Name
  Public  Ref
  Public  Del
  Private Sub  Class_Terminate()
    If not IsEmpty( Del ) Then _
      WScript.Echo  Name + "::Class_Terminate .Del = Empty" : Del = Empty
    WScript.Echo  Name + "::Class_Terminate"
  End Sub
End Class


'// グローバルでは、生成した順番で Class_Terminate が呼ばれます。
Dim  g
Dim  a : Set a = new ClassA : a.Name = "a"
Dim  b : Set b = new ClassA : b.Name = "b"

If 0 Then  Set  a.Ref = b
If 0 Then  Set  b.Ref = a
  '// グローバルのオブジェクトに参照関係があっても、
  '// Class_Terminate が呼び出される順序に影響しません。


main

Sub  main()
  '// ローカルでは、生成した順番と逆に Class_Terminate が呼ばれます。
  Dim  c : Set c = new ClassA : c.Name = "c"
  Dim  d : Set d = new ClassA : d.Name = "d"
  Dim  e : Set e = new ClassA : e.Name = "e"

  If 0 Then  Set c.Ref = d  '// c, d の順で呼ばれるようになります
  If 0 Then  Set a.Ref = e  '// a, e の順で呼ばれるようになります

  Set  g = new ClassA : g.Name = "g"  '// b の後で呼ばれます

  Set  a.Del = new ClassA : a.Del.Name = "a.Del"  '// 後で呼ばれます
  Set  e.Del = new ClassA : e.Del.Name = "e.Del"  '// 即時呼ばれます

  If 0 Then
    WScript.Quit  4  '// c,d,e の Class_Terminate は呼ばれません。
                     '// ただし、a.Ref = e を実行したら e の
                     '// Class_Terminate は、a の後に呼ばれます。
  Else
    unknown_symbol_error
  End If
End Sub

 

グローバルの変数に格納したオブジェクトは、格納した順番で Class_Terminate が呼ばれます。
ローカルの変数に格納したオブジェクトは、格納した順番と逆に Class_Terminate が呼ばれます。

A から B を参照している（A のプロパティで B を参照している）場合、A、B の順に
Class_Terminate が呼ばれます。 ただし、グローバルのオブジェクト同士に参照関係があっても
無くても、呼び出される順番は変わりません。

検証コード

Class_Terminate の中で、オブジェクトの参照カウントをゼロにした場合も、参照関係と同様に、
ローカルでは即時呼ばれますが、グローバルでは後で呼ばれます。

デバッガで Class_Terminate の中でブレークしたときに、コールスタックを見ると、削除される
ローカルオブジェクトが所属する関数ではなく、その関数を呼び出している関数から、
Class_Terminate が呼ばれるように見えます。

→ 相互参照しているときの Class_Terminate

関連

Case1
Case2
WScript.echo  "End of Main"
WScript.echo  "もし、ここ以降でデストラクターが動くときは、"+_
    "プログラム終了時にすべてのオブジェクトを削除する"+_
    "ことによるデストラクター呼び出しです。"

Sub  Case1()
    WScript.echo  "Case1:"
    Set a_object = new A_Class
    Set b_object = new B_Class
    Set a_object.Reference = b_object
End Sub

Sub  Case2()
    WScript.echo  "Case2:"
    Set a_object = new A_Class
    Set b_object = new B_Class
    Set a_object.Reference = b_object
    Set b_object.Reference = a_object
End Sub


Class  A_Class
    Public  Reference

    Private Sub  Class_Terminate()
        WScript.echo  "A_Class::Class_Terminate"
    End Sub
End Class

Class  B_Class
    Public  Reference

    Private Sub  Class_Terminate()
        WScript.echo  "B_Class::Class_Terminate"
    End Sub
End Class

検証コード

相互参照していると、関数内のローカル・オブジェクト同士であっても、Class_Terminate は
呼ばれません。 プログラム終了時に呼ばれます。