VBSuper

日付の操作

2009-07-21T21:17:00.002+09:00

日付の操作をするなら現在時刻を取得することが始まりだろう。
それにはNOW()関数を使用する。
この関数は現在の日付と時刻をバリアント型の値で返す。

サンプル
Wscript Echo now()

結果
2009/07/21 21:03:42

※NOW()はコンピュータのシステムの日付と時刻の設定に基づいて出力される。

次に用途だが、NOW()関数を使用するのはファイル名、セルの値、テキストに出力、
そしてある日付との比較が主だろう。

注意したいのがファイル名の場合だ。
ファイル名には"/"や":"を使用できないからである。
その場合は、Replace(Replace(now(),"/",""),":","")でファイル名に適合するよう数値のみの状態へ編集したらいい。

Replace

VBS クラス（CLASS）の使用

2009-04-20T23:19:00.002+09:00

ＣＬＡＳＳに定義した情報を呼び出す場合は、生成したオブジェクト名.（変数名やメソッド名）で呼び出します。

'クラスを定義します。
CLASS SAMPLE

    Private Fso

    Private Sub Class_Initialize
        Set Fso    = CreateObject("Scripting.FileSystemObject")
    End Sub

    Public Function FOpenWrite(strFilePath,objFile)

        On Error Resume Next
        Select Case Fso.FileExists(strFilePath)
        Case True
                Set objFile = Fso.OpenTextFile(strFilePath, ForWriting)
                Set FOpenWrite = Err.Number
        Case False
            Wscript.Echo "This File Not Exists"
            Set FOpenWrite = -1
    End Select

        On Error Goto 0

    End Function

    Public Function FClose(objFile)
        On Error Resume Next
        objFile.Close
        Set FClose = Err.Number
        On Error Goto 0
    End Function

    Private Sub Class_Terminate
        Set Fso    = Nothing
    End Sub

END CLASS

'ここから処理

Dim objFSO
Dim objWFile

'クラスを生成
Set clsFSO = New SAMPLE

'ファイルを開く
IF 0 = clsFSO.FOpenWrite("c:\temp\sample.txt",objWFile) Then

    '処理をする

    'ファイルを閉じる
    clsFso.FClose objFile
End If

'クラスを初期化
Set clsFSO = Nothing

REPALACE　改行コードの変換

2009-03-14T16:04:00.003+09:00

＜ソース＞

ec "■改行コードの変換１"
Dim strData
strData = "-------------------"
strData = strData & vbcrlf
strData = strData & "-------------------"

ec "実行前のデータ"
ec strData
ec "実行後のデータ"
ec replace(strData,Vbcrlf,"")

ec "■改行コードの変換２"
strData = "-------------------"
strData = strData & chr(10) & chr(13)
strData = strData & "-------------------"

ec "実行前のデータ"
ec strData
ec "実行後のデータ"
ec replace(strData,chr(10)&chr(13),"")

Sub ec(strmsg)

Wscript.Echo "[" & Date & " " & time & "]" & strmsg

End Sub

＜実行結果＞

'[2009/03/14 15:57:06]■改行コードの変換１
'[2009/03/14 15:57:06]実行前のデータ
'[2009/03/14 15:57:06]-------------------
-------------------
'[2009/03/14 15:57:06]実行後のデータ
'[2009/03/14 15:57:06]--------------------------------------
'[2009/03/14 15:57:06]■改行コードの変換２
'[2009/03/14 15:57:06]実行前のデータ
'[2009/03/14 15:57:06]-------------------
-------------------
'[2009/03/14 15:57:06]実行後のデータ
'[2009/03/14 15:57:06]--------------------------------------

正規表現：エラーや処理効率について

2009-02-25T01:38:00.003+09:00

＜VBスクリプトの正規表現で注意すること＞

　（）でデータを取得する場合は、"（）（）（）（）（）（）（）（）（）"と極端に何個も作らないこと。処理効率が下がります。それよりは、単純な正規表現で取得した値をループして取得する。

→正規表現TOP

＜その他情報＞

IPアドレスを取得する
Matchオブジェクトのプロパティ一覧

VBS　Replace（データ、検索、置換、開始位置、置換個数、比較モード）

2009-02-22T14:53:00.002+09:00

＜記述形式＞

Variant(String) = Replace(Expression, Find, replacewith[, start[, count[, compare]]])

Expression
検索データ
Find
  検索キーワード
replacewith
置換キーワード
start
  開始する位置。データに対して何文字目から検索するか指定する際に使用する。
返される値も開始する位置からのデータからになる。
count
　置換する個数。省略すると一致した全ての候補を置換する。
compare
　検索モード（テキスト／バイナリ）。省略時はバイナリモード
     1  テキスト(vbTextCompare)
   0  バイナリ(vbBinaryCompare)

＜ソース＞

ec "□通常"
ec replace("1-2-1","1","2")
ec "□検索開始位置を指定"
ec replace("1-2-1","1","2",5)
ec "■対象なし"
ec replace("!-----!","A","C")
ec "■検索開始位置を指定"
ec replace("!-----!","A","C",2)

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

＜結果＞

'[2009/02/22 14:44:10]□通常
'[2009/02/22 14:44:10]2-2-2
'[2009/02/22 14:44:10]□検索開始位置を指定
'[2009/02/22 14:44:10]2
'[2009/02/22 14:44:10]■対象なし
'[2009/02/22 14:44:10]!-----!
'[2009/02/22 14:44:10]■検索開始位置を指定
'[2009/02/22 14:44:10]-----!

＜その他＞

改行を変換する

IPアドレスを取得する（正規表現）

2009-02-11T20:47:00.004+09:00

'______________________________________________
'
'＜＜IPアドレス情報の取得＞＞
'　□機能
'　　IPCONFIGの標準出力からIPアドレスの値を取得する
'　□リターン
'　　正常終了  ：取得件数
'　　異常終了  ： -1
'______________________________________________

Option Explicit

'変数定義
Dim strIP            'IPCONFIGの結果が設定
Dim aryIP            'IPアドレスが設定
Dim IPcnt            '取得件数
Dim idx              'インデックス

'IPCONFIGの結果（標準出力）を取得
If 0 <> Fnc_GetIP(strIP) Then
    Wscript.Quit(-1)
End If

'IPアドレスを取得
Select Case Cnt_GetIPAdress(strIP, aryIP)

    Case -1

        Wscript.Quit(-1)

    Case 0

        Wscript.Quit(0)

    Case Else

        IPcnt = Ubound(aryIP)
        Wscript.Echo "[Info]" & IPcnt & "件のIPAdressを取得しました"
        For idx = 1 to IPcnt
            Wscript.Echo "IP Adress : " & aryIP(idx)
        Next

        Wscript.Quit(IPcnt)

End Select

'□□□□□□□□□□□□□□□□□□□□
'IPCONFIG取得
'□□□□□□□□□□□□□□□□□□□□
'Ipconfigの標準出力を取得します
Private Function Fnc_GetIP(strIP)

    On Error Resume Next

    '＜引数＞
    'StrIp      ： Out : Ipconfigの標準出力を設定
    '＜復帰値＞
    '正常終了   ： 0
    '異常終了   ： -1

    Dim objShell         'SHELLオブジェクト
    Dim objExec          'EXECオブジェクト

    Set objShell  = CreateObject("Wscript.Shell")
    'IPCONFIGコマンド発行
    Set objExec   = objShell.Exec("cmd.exe /c ipconfig")
    Select Case Err.Number
        Case 0

            '標準出力を取得
            With objExec.StdOut
                Do Until .AtEndOfStream
                    strIP = strIP & .ReadLine & VbCrLf
                Loop
            End With

            Fnc_GetIP = 0

        Case Else

            Wscript.Echo "[Info]ipconfigのコマンド実行でエラーが返されました"
            Wscript.Echo Err.Description & "(" & Err.Number & ")"

            Fnc_GetIP = -1

    End Select

    Set objShell = Nothing
    Set objExec  = Nothing

    On Error Goto 0

End Function

'□□□□□□□□□□□□□□□□□□□□
'IPアドレス(XXX.XXX.XXX.XXX)取得
'□□□□□□□□□□□□□□□□□□□□
'検索するデータから「IP Address....: (IPアドレス)」を
'検索して「（IPアドレス）」を取得する
Private Function Cnt_GetIPAdress(strIP,aryIP)

    On Error Resume Next

    '＜引数＞
    'strIp      ： IN  : 検索データ
    'aryIP      ： OUT : IPアドレス　※配列１より設定
    '＜復帰値＞
    '異常終了   ： -1
    '対象なし   ： 0
    '対象あり   ： n（件数が設定）

    Dim objRegExp        'RegExpオブジェクト用
    Dim objMatchs        'RegExpオブジェクト用
    Dim cnt              'カウント
    Dim idx              'インデックス

    Set  objRegExp = New RegExp
    With objRegExp

        '検索パターンを設定
        .Pattern    = "IP Address(?:[^:]+): ([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})$"
        .Global     = True
        .IgnoreCase = True
        .MultiLine  = True

        '検索開始＆結果を設定
        Set objMatchs = .Execute(strIP)
        Select Case Err.Number
            Case 0

                cnt = objMatchs.Count
                Redim AryIP(cnt)
                For idx = 1 To cnt
                    AryIP(idx) = objMatchs(idx-1).SubMatches(0)
                Next

                Cnt_GetIPAdress = cnt

            Case Else

                Wscript.Echo "[Info]Executeメソッドの実行でエラーが返されました"
                Wscript.Echo Err.Description & "(" & Err.Number & ")"

                Cnt_GetIPAdress = -1

        End Select

    End With

    Set objRegExp   = Nothing
    Set objMatchs   = Nothing

    On Error Goto 0

End Function

VBS RegExp-Matchオブジェクト

2009-01-11T14:01:00.004+09:00

MATCHオブジェクトは正規表現／REGEXPの検索で一致した内容を参照するためのオブジェクトです。このオブジェクトはRegExpのEXECUTEメソッドの実行結果を受け取ると一致した個数のオブジェクトを作成します。REGEXPの検索結果の値にアクセスするためのオブジェクトです。一致した情報へアクセスするにはobjMatch(0)、objMatch(1)のようにオブジェクトへ添え字を指定して取得します。

＜定義＞
Set objMatch = RegExp.Execute(検索文字）

＜プロパティ＞
・FirstIndex
　検索文字の一致した位置を返します。
・Length
　検索文字の一致した位置列の長さを返します。
・Value
検索文字の一致した内容を返します。

＜サンプルソース＞

'**********検索情報************
Const conPattern  = "\[開始\].*\[終了\]"
Const conTarget   = "---[開始]200901010....0001[終了]---"
'******************************

Dim objRegExp
Dim objMatch

Set objRegExp        = New RegExp
objRegExp.Pattern    = conPattern
Set objMatch         = objRegExp.Execute(conTarget)

'取得値表示
ec "[検索文字]" & conPattern
ec "[検索情報]" & conTarget

With objMatch(0)
    ec "[FirstIndex]" & .FirstIndex
    ec "[Length]" & .Length
    ec "[Value]" & .Value
End With

'メッセージ表示用
Sub ec(msg)
    Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

'結果

'[2009/01/11 13:57:36][検索文字]\[開始\].*\[終了\]
'[2009/01/11 13:57:36][検索情報]---[開始]200901010....0001[終了]---
'[2009/01/11 13:57:36][FirstIndex]3
'[2009/01/11 13:57:36][Length]25
'[2009/01/11 13:57:36][Value][開始]200901010....0001[終了]

＜その他参考情報＞

正規表現の検索
正規表現で使用するメタ文字

VBS 環境変数の取得

2008-12-30T00:40:00.002+09:00

環境変数の値を取得するには、WSCRIPT.SHELLの「ExpandEnvironmentStrings」を使用します。
キーとなる値は、環境変数名を取得しておく必要があります。

＜定義＞
SET objShell = CreateObject("WSCRIPT.SHELL")
値 = objShell.ExpandEnvironmentStrings("%環境変数名%")

＜ソース＞

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")

With objShell
    ec "取得：%PATH%"
    ec .ExpandEnvironmentStrings("%PATH%")
    ec "取得：%SystemDrive%"
    ec .ExpandEnvironmentStrings("%SystemDrive%")
    ec "取得：%SystemRoot%"
    ec .ExpandEnvironmentStrings("%SystemRoot%")
    ec "取得：%存在しない環境変数%"
    ec .ExpandEnvironmentStrings("%存在しない環境変数%")
End With

'メッセージ表示用
Sub ec(msg)
    Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

'結果

'[2008/12/30 0:28:51]取得：%PATH%
'[2008/12/30 0:28:51]C:\WINDOWS\system32;C:\WINDOWS;C:\Program Files\
'[2008/12/30 0:28:51]取得：%SystemDrive%
'[2008/12/30 0:28:51]C:
'[2008/12/30 0:28:51]取得：%SystemRoot%
'[2008/12/30 0:28:51]C:\WINDOWS
'[2008/12/30 0:28:51]取得：%存在しない環境変数%
'[2008/12/30 0:28:51]%存在しない環境変数%

'＜その他参考情報＞

ExpandEnvironmentStrings関数の所属について
ExpandEnvironmentStrings関数について

文字列の変換・検索・編集をする関数

2008-12-20T16:53:00.009+09:00

・文字を変換する

    Replace
    RegularExpresstion.Replace
    Trim（前後の空白を変換する）

・文字を切り取る

    Mid
    Left/Right

・文字の位置を特定

    Instr/InstrRev

CHR関数　サンプル

2008-12-20T16:33:00.000+09:00

chr関数の実行結果

＜ソース＞
For i = 1 to 127
ec i & " = " & chr(i)
Next

Sub ec(strmsg)

Wscript.Echo "[" & Date & " " & time & "]" & strmsg

End Sub

＜実行結果＞
'[2008/12/20 16:27:16]1 =
'[2008/12/20 16:27:16]2 =
'[2008/12/20 16:27:16]3 =
'[2008/12/20 16:27:16]4 =
'[2008/12/20 16:27:16]5 =
'[2008/12/20 16:27:16]6 =
'[2008/12/20 16:27:16]7 =
'[2008/12/20 16:27:16]8 =
'[2008/12/20 16:27:16]9 =
'[2008/12/20 16:27:16]10 =

'[2008/12/20 16:27:16]11 =
'[2008/12/20 16:27:16]12 =
'[2008/12/20 16:27:16]13 =

'[2008/12/20 16:27:16]14 =
'[2008/12/20 16:27:16]15 =
'[2008/12/20 16:27:16]16 =
'[2008/12/20 16:27:16]17 =
'[2008/12/20 16:27:16]18 =
'[2008/12/20 16:27:16]19 =
'[2008/12/20 16:27:16]20 =
'[2008/12/20 16:27:16]21 =
'[2008/12/20 16:27:16]22 =
'[2008/12/20 16:27:16]23 =
'[2008/12/20 16:27:16]24 =
'[2008/12/20 16:27:16]25 =
'[2008/12/20 16:27:16]26 =
'[2008/12/20 16:27:16]27 =
'[2008/12/20 16:27:16]28 =
'[2008/12/20 16:27:16]29 =
'[2008/12/20 16:27:16]30 =
'[2008/12/20 16:27:16]31 =
'[2008/12/20 16:27:16]32 =
'[2008/12/20 16:27:16]33 = !
'[2008/12/20 16:27:16]34 = "
'[2008/12/20 16:27:16]35 = #
'[2008/12/20 16:27:16]36 = $
'[2008/12/20 16:27:16]37 = %
'[2008/12/20 16:27:16]38 = &
'[2008/12/20 16:27:16]39 = '
'[2008/12/20 16:27:16]40 = (
'[2008/12/20 16:27:16]41 = )
'[2008/12/20 16:27:16]42 = *
'[2008/12/20 16:27:16]43 = +
'[2008/12/20 16:27:16]44 = ,
'[2008/12/20 16:27:16]45 = -
'[2008/12/20 16:27:16]46 = .
'[2008/12/20 16:27:16]47 = /
'[2008/12/20 16:27:16]48 = 0
'[2008/12/20 16:27:16]49 = 1
'[2008/12/20 16:27:16]50 = 2
'[2008/12/20 16:27:16]51 = 3
'[2008/12/20 16:27:16]52 = 4
'[2008/12/20 16:27:16]53 = 5
'[2008/12/20 16:27:16]54 = 6
'[2008/12/20 16:27:16]55 = 7
'[2008/12/20 16:27:16]56 = 8
'[2008/12/20 16:27:16]57 = 9
'[2008/12/20 16:27:16]58 = :
'[2008/12/20 16:27:16]59 = ;
'[2008/12/20 16:27:16]60 = <
'[2008/12/20 16:27:16]61 = =
'[2008/12/20 16:27:16]62 = >
'[2008/12/20 16:27:16]63 = ?
'[2008/12/20 16:27:16]64 = @
'[2008/12/20 16:27:16]65 = A
'[2008/12/20 16:27:16]66 = B
'[2008/12/20 16:27:16]67 = C
'[2008/12/20 16:27:16]68 = D
'[2008/12/20 16:27:16]69 = E
'[2008/12/20 16:27:16]70 = F
'[2008/12/20 16:27:16]71 = G
'[2008/12/20 16:27:16]72 = H
'[2008/12/20 16:27:16]73 = I
'[2008/12/20 16:27:16]74 = J
'[2008/12/20 16:27:16]75 = K
'[2008/12/20 16:27:16]76 = L
'[2008/12/20 16:27:16]77 = M
'[2008/12/20 16:27:16]78 = N
'[2008/12/20 16:27:16]79 = O
'[2008/12/20 16:27:16]80 = P
'[2008/12/20 16:27:16]81 = Q
'[2008/12/20 16:27:16]82 = R
'[2008/12/20 16:27:16]83 = S
'[2008/12/20 16:27:16]84 = T
'[2008/12/20 16:27:16]85 = U
'[2008/12/20 16:27:16]86 = V
'[2008/12/20 16:27:16]87 = W
'[2008/12/20 16:27:16]88 = X
'[2008/12/20 16:27:16]89 = Y
'[2008/12/20 16:27:16]90 = Z
'[2008/12/20 16:27:16]91 = [
'[2008/12/20 16:27:16]92 = \
'[2008/12/20 16:27:16]93 = ]
'[2008/12/20 16:27:16]94 = ^
'[2008/12/20 16:27:16]95 = _
'[2008/12/20 16:27:16]96 = `
'[2008/12/20 16:27:16]97 = a
'[2008/12/20 16:27:16]98 = b
'[2008/12/20 16:27:16]99 = c
'[2008/12/20 16:27:16]100 = d
'[2008/12/20 16:27:16]101 = e
'[2008/12/20 16:27:16]102 = f
'[2008/12/20 16:27:16]103 = g
'[2008/12/20 16:27:16]104 = h
'[2008/12/20 16:27:16]105 = i
'[2008/12/20 16:27:16]106 = j
'[2008/12/20 16:27:16]107 = k
'[2008/12/20 16:27:16]108 = l
'[2008/12/20 16:27:16]109 = m
'[2008/12/20 16:27:16]110 = n
'[2008/12/20 16:27:16]111 = o
'[2008/12/20 16:27:16]112 = p
'[2008/12/20 16:27:16]113 = q
'[2008/12/20 16:27:16]114 = r
'[2008/12/20 16:27:16]115 = s
'[2008/12/20 16:27:16]116 = t
'[2008/12/20 16:27:16]117 = u
'[2008/12/20 16:27:16]118 = v
'[2008/12/20 16:27:16]119 = w
'[2008/12/20 16:27:16]120 = x
'[2008/12/20 16:27:16]121 = y
'[2008/12/20 16:27:16]122 = z
'[2008/12/20 16:27:16]123 = {
'[2008/12/20 16:27:16]124 = |
'[2008/12/20 16:27:16]125 = }
'[2008/12/20 16:27:16]126 = ~
'[2008/12/20 16:27:16]127 =

VBS Instr([start,]target,search[,compare])

2008-11-06T01:00:00.001+09:00

＜記述形式＞

Variant(number) = Instr([start posision,]target,search[,compare mode])

start posision
検索する歳の開始位置を数値で指定
target
検索されるデータ
search
検索するデータ
compare mode
比較方法
0　：　バイナリ検索
1　：　テキスト検索

＜説明＞
検索文字が見つかった位置、先頭データに一致した場合は１を返します。
ただし、以下の場合は下記の値を返します。
0 ：　検索対象が""
1　：　検索文字が""
0　：　検索対象、検索文字が""
0　：　検索文字の方が長い
0　：　検索文字に一致しない

＜ソース＞
Const target = "2008/11/06 0:00:00"

ec instr(target,"11/06")
'[2008/11/06 0:56:13]6

ec instr("","a")
'[2008/11/06 0:56:13]0
ec instr("","")
'[2008/11/06 0:56:13]0
ec instr("bb","aaa")
'[2008/11/06 0:56:13]0
ec instr(target,"2009")
'[2008/11/06 0:56:13]0

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

VBS FormatDateTime(Date [,NamedFormat])

2008-11-06T00:34:00.000+09:00

＜記述形式＞

Variant(Date) = FormatDateTime(Date [,NamedFormat])

Date
日付フォーマットを指定します。Date、Time、Now関数など。
Now -> 2008/11/06 0:29:47
Date -> 2008/11/06
Time -> 0:29:47

NamedFormat
0　：　指定した値によって、正規／短縮の日付／時刻の表示
1　：　システムのロケール設定に従った正規の日付表示
2　：　システムのロケール設定に従った短縮の日付表示　
3　：　システムのロケール設定に従った正規の時刻表示　
4　：　システムのロケール設定に従った短縮の時刻表示　
※とは言っても、設定するDateにより編集が変わりますので、サンプルの結果をまずは参考にしてみてください。

＜説明＞
日付／時刻表示のフォーマットへ変換します。

＜ソース＞
ec Now
'[2008/11/06 0:29:47]2008/11/06 0:29:47
ec FormatDateTime(Now(),0)
'[2008/11/06 0:29:47]2008/11/06 0:29:47
ec FormatDateTime(Now(),1)
'[2008/11/06 0:29:47]2008年11月6日
ec FormatDateTime(Now(),2)
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Now(),3)
'[2008/11/06 0:29:47]0:29:47
ec FormatDateTime(Now(),4)
'[2008/11/06 0:29:47]00:29
ec Date
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Date())
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Date(),0)
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Date(),1)
'[2008/11/06 0:29:47]2008年11月6日
ec FormatDateTime(Date(),2)
'[2008/11/06 0:29:47]2008/11/06
ec FormatDateTime(Date(),3)
'[2008/11/06 0:29:47]0:00:00
ec FormatDateTime(Date(),4)
'[2008/11/06 0:29:47]00:00
ec Time
'[2008/11/06 0:29:47]0:29:47
ec FormatDateTime(Time(),0)
'[2008/11/06 0:29:47]0:29:47
ec FormatDateTime(Time(),1)
'[2008/11/06 0:29:47]1899年12月30日
ec FormatDateTime(Time(),2)
'[2008/11/06 0:29:47]1899/12/30
ec FormatDateTime(Time(),3)
'[2008/11/06 0:29:47]0:29:47
ec FormatDateTime(Time(),4)
'[2008/11/06 0:29:47]00:29

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

VBS CSng(Expression)

2008-11-02T22:19:00.001+09:00

＜記述形式＞

Variant(Single) = CSng(Expression)

＜説明＞
単精度浮動小数点型(Single)へ変換します。
少数桁の計算を行う場合は色々な問題（桁落ち、情報落ち、丸め誤差など）を考慮しなければいけません。Csngは極端に小さな小数点を計算する場合に使用します。

＜ソース＞
ec Clng(1 - 0.000001)
'[2008/11/02 22:03:42]1
ec CSng(1 - 0.000001)
'[2008/11/02 22:03:42]0.999999

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

VBS CLng(Expression)

2008-11-02T22:17:00.000+09:00

＜記述形式＞

Variant(Long) = CLng(Expression)

＜説明＞
長整数型(Long)を返します。
※VBScriptではデータ形式をVariant型で持ちますが内部表現形式が長整数値のため、超整数型を超える数値を設定するとオーバフローします。

＜ソース＞
ec CLng(-2147483648)
'[2008/11/02 21:42:09]-2147483648
ec CLng(-32768)
'[2008/11/02 21:42:09]-32768
ec CLng(0.500)
'[2008/11/02 21:42:09]0
ec CLng(0.501)
'[2008/11/02 21:42:09]1
ec CLng(32767)
'[2008/11/02 21:42:09]32767
ec CLng(00100)
'[2008/11/02 21:42:09]100
ec CLng(-32769)
'[2008/11/02 21:42:09]-32769
ec CLng(2147483647)
'[2008/11/02 21:42:09]2147483647
ec CLng(2147483648)
'Microsoft VBScript 実行時エラー: オーバーフローしました。: 'CLng'

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

VBS CInt(Expression)

2008-11-02T22:16:00.002+09:00

＜記述形式＞

Variant(Integer) = CInt(Expression)

＜説明＞
整数型(Integer)を返します。
※VBScriptではデータ形式をVariant型で持ちますが内部表現形式が整数値のため、整数型を超える数値を設定するとオーバフローします。

＜ソース＞
ec Cint(-32768)
'[2008/11/02 21:37:54]-32768
ec Cint(0.500)
'[2008/11/02 21:37:54]0
ec Cint(0.501)
'[2008/11/02 21:37:54]1
ec Cint(32767)
'[2008/11/02 21:37:54]32767
ec Cint(00100)
'[2008/11/02 21:37:54]100
ec Cint(-32769)
'Microsoft VBScript 実行時エラー: オーバーフローしました。: 'Cint'

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

VBS Chr(CharCode)

2008-11-02T22:15:00.003+09:00

＜記述形式＞

Variant(String) = Chr(CharCode)

＜説明＞
ANSIまたはShift-JISコードをに対応する文字を返します。
結果サンプルはこちら

＜ソース＞
ec Chr(65)
'[2008/11/02 20:12:39]A
ec Chr(66)
'[2008/11/02 20:12:39]B

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

VBS CDate(Expression)

2008-11-02T22:13:00.000+09:00

＜記述形式＞

Variant(Date) = CDate(Expression)

＜説明＞
日付形式でのデータへ変換します。
日付形式はシステムのロケールの設定に従って設定されます。

＜ソース＞
ec CDate("October 01 2008")
'[2008/11/02 19:52:47]2008/10/01
ec CDate("00:30:00 PM")
'[2008/11/02 19:52:47]12:30:00

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

VBS CCur(Expression)

2008-11-02T22:12:00.000+09:00

＜記述形式＞

Variant(Currency) = CCur(Expression)

＜説明＞
通貨型(Currency)へ変換します。
通貨型はシステムのロケールの設定に従い、その国で使われている小数点記号や桁区切り記号が正しく処理されます。つまり日本語では円記号を対象としています。

＜ソース＞
ec CCur(1000.000)
'[2008/11/02 19:48:02]1000
ec CCur(1000.490)
'[2008/11/02 19:48:02]1000.49
ec CCur(1000.500)
'[2008/11/02 19:48:02]1000.5
ec CCur(1000.501)
'[2008/11/02 19:48:02]1000.501
ec CCur("\1000.00")
'[2008/11/02 19:48:02]1000

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

VBS Cbyte(Expression)

2008-11-02T22:10:00.001+09:00

＜記述形式＞

Variant(Byte) = CByte(Expression)

＜説明＞
バイト型の数値に変換します。
数値型や通貨型（Currency）の計算の際にバイト型で計算することで正しく処理を行うことが出来ます。ただし、浮動小数点では小数部の扱いを自動的に行います。
システムのロケールの設定に従い、その国で使われている小数点記号や桁区切り記号が正しく処理されます。つまり日本語では円記号を対象としています。

＜ソース＞
ec CByte(100.000)
'[2008/11/02 19:43:54]100
ec CByte(100.490)
'[2008/11/02 19:43:54]100
ec CByte(100.500)
'[2008/11/02 19:43:54]100
ec CByte(100.501)
'[2008/11/02 19:43:54]101
ec CByte("\100.00")
'[2008/11/02 19:43:54]100

'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

VBS CBool(Expression)

2008-11-02T22:08:00.001+09:00

＜記述形式＞

TRUE|FALSE = Cbool(Expression)

＜説明＞
任意の数値、数式を設定します。
数式の判定結果が０の場合はTRUEを返します。※数値0を指定した場合はFALSEを返します。

＜ソース＞
ec Cbool(0=(1-1))
'[2008/11/02 19:30:52]True
ec Cbool(1-1)
'[2008/11/02 19:30:52]False
ec Cbool(0)
'[2008/11/02 19:30:52]False

'メッセージ表示用
Sub ec(strmsg)
Wscript.Echo "[" & Date & " " & time & "]" & strmsg
End Sub

VBS CSng(Expression)

2008-11-02T22:05:00.000+09:00

＜記述形式＞

Variant(Single) = CSng(Expression)

メタ文字

2008-10-30T06:28:00.008+09:00

メタ文字

記号	説明
\	特殊な意味を持つ文字（、{、｝、[、]、、(、)、\|、\など）を文字として検索する場合に、文字の前に\をおきます。 . → \. → \* .* → \.\*
.	１回以上の任意の文字に一致(\n、\rの改行を除く)
+	１回以上の直前の文字に一致
*	０回以上の直前の文字に一致
?	０回または1個の直前の文字に一致
\s	スペースに一致
\S	スペース以外に一致
\r	復帰に一致
\n	改行に一致
\|	選択、たとえばA\|BならAかBのいづれかに一致します。連続したパターンを検索する場合は [(ABCD)\|(EFGH)]で検索するとABCDの文字列かEFGHの文字列に一致します
[]	括弧で括られた検索文字のいずれか１つに一致
[0-9] \d	0から9までの数値のいずれか１つに一致
[^0-9] \D	0から9までの数値以外のいずれか１つに一致
[a-z]	aからzまでの英小文字に一致
[^a-z]	AからZまでの英小文字以外に一致
[A-Z]	AからZまでの英大文字に一致
[^A-Z]	AからZまでの英大文字以外に一致
\t	水平タブに一致
\v	垂直タブ

→正規表現TOP

VBS 正規表現（Regular expressions）

2008-10-28T22:46:00.024+09:00

VBSスクリプトの正規表現（Regular expressions）は検索用の文字列パターンを使用して、一致する文字列を検索／置換することができます。初めはとっつきにくいイメージがありますが、一文字ずつの比較や、instr関数を使用して比較するよりも遥かに高度な検索を、よりコンパクトなソースで実装することが出来る優れものの機能です。

＜正規表現のオブジェクトの生成＞

Dim objRegExp
Set objRegExp = new regexp
※下の定義の仕方でもOKです。
Set objRegExp = CreateObject("VBScript.RegExp")

次に検索する文字列を指定しますが、その前にメタ文字について説明をします。
メタ文字は正規表現での検索をより高度に検索するための記号です。

＜メタ文字＞

記号	説明
.	１回以上の任意の文字に一致(\n、\rの改行を除く)
*	０回以上の任意の文字に一致
[]	括弧で括られた検索文字のいずれか１つに一致
[0-9]	0から9までの数値のいずれかに１つに一致
[a-z]	aからzまでの小文字のアルファベットに一致
[A-Z]	aからzまでの大文字に一致する

※ メタ文字を文字列として使用する場合は、”\”のリテラルをメタ文字の前に設定する。
※ その他のメタ文字の説明はこちら

＜検索パターンを設定＞
objRegExp.Pattern = "検索パターン"

＜検索の実行＞
Set objMach = objRegExp.Execute(“検索するデータ”)

＜結果の確認＞
objMach.Count > 0

では、IPアドレスを取得する場合を例に説明します。

検索する文字："IP Address. . . . . . . . . . . . : 110.110.67.57"

Dim objRegExp
Dim objMatchs
Dim objMatch
Set objRegExp = new regexp

objRegExp.Pattern = "(([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+))"

Set objMatchS = objRegExp.Execute("IP Address. . . . . . . . . . . . : 110.110.67.57")

For Each objMatch in objMatchs
    ec objMatch.SubMatches(0) '[2008/10/28 22:22:25]110.110.67.57
    ec objMatch.SubMatches(1) '[2008/10/28 22:22:25]110
    ec objMatch.SubMatches(2) '[2008/10/28 22:22:25]110
    ec objMatch.SubMatches(3) '[2008/10/28 22:22:25]67
    ec objMatch.SubMatches(4) '[2008/10/28 22:22:25]57
Next

'メッセージ表示用
Sub ec(msg)
    Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub

'＜サンプル＞

IPアドレスを取得する

'＜その他参考情報＞

正規表現の注意事項一覧
Matchオブジェクトのプロパティ一覧
メタ文字

VBS Clng(Number)

2008-10-09T11:52:00.007+09:00

数値から小数点を除いた数値(Long型)に変換します
※Long型の有効範囲は-2147483648 ～ 2147483647までです

ec Clng(-0.1)
'[2008/10/09 11:14:41]0
ec Clng(-0.5)
'[2008/10/09 11:14:41]0
ec Clng(-0.6)
'[2008/10/09 11:14:41]-1
ec Clng(0)
'[2008/10/09 11:14:41]0
ec Clng(0.1)
'[2008/10/09 11:14:41]0
ec Clng(0.5)
'[2008/10/09 11:14:41]0
ec Clng(0.6)
'[2008/10/09 11:14:41]1
ec Clng(1.1)
'[2008/10/09 11:14:41]1

ec Clng(-2147483649)
'[2008/10/09 11:14:41]Microsoft VBScript 実行時エラー: オーバーフローしました。: 'Clng'
ec Clng(2147483648)
'[2008/10/09 11:14:41]Microsoft VBScript 実行時エラー: オーバーフローしました。: 'Clng'

'メッセージ表示用
Sub ec(strmsg)

Wscript.Echo "[" & Date & " " & time & "]" & strmsg

end Sub

VBS Fix(Number)

2008-10-09T11:52:00.006+09:00

数値から小数点を除いた数値(Int型)に変換します

ec Fix(-0.1)
'[2008/10/09 11:11:56]0
ec Fix(-0.5)
'[2008/10/09 11:11:56]0
ec Fix(-0.6)
'[2008/10/09 11:11:56]0
ec Fix(0)
'[2008/10/09 11:11:56]0
ec Fix(0.1)
'[2008/10/09 11:11:56]0
ec Fix(0.5)
'[2008/10/09 11:11:56]0
ec Fix(0.6)
'[2008/10/09 11:11:56]0
ec Fix(1)
'[2008/10/09 11:11:56]1

'メッセージ表示用
Sub ec(strmsg)

Wscript.Echo "[" & Date & " " & time & "]" & strmsg

end Sub

VBSuper

日付の操作

VBS クラス（CLASS）の使用

REPALACE 改行コードの変換

＜ソース＞

＜実行結果＞

正規表現：エラーや処理効率について

VBS Replace（データ、検索、置換、開始位置、置換個数、比較モード）

＜記述形式＞

＜ソース＞

＜結果＞

＜その他＞

IPアドレスを取得する（正規表現）

VBS RegExp-Matchオブジェクト

VBS 環境変数の取得

文字列の変換・検索・編集をする関数

CHR関数 サンプル

VBS Instr([start,]target,search[,compare])

VBS FormatDateTime(Date [,NamedFormat])

VBS CSng(Expression)

VBS CLng(Expression)

VBS CInt(Expression)

VBS Chr(CharCode)

VBS CDate(Expression)

VBS CCur(Expression)

VBS Cbyte(Expression)

VBS CBool(Expression)

VBS CSng(Expression)

メタ文字

VBS 正規表現（Regular expressions）

VBS Clng(Number)

VBS Fix(Number)

REPALACE　改行コードの変換

VBS　Replace（データ、検索、置換、開始位置、置換個数、比較モード）

CHR関数　サンプル