|
[動的に配列を作成]
|
Dim A
A = Array(10,20,20)
Dim B
B = Array("X","Y","Z")
| |
|
[参考]
|
dim LB_SU1(),LB_SU2()
LB_LINES = 10
ReDim LB_SU1(SC_LINES):ReDim LB_SU2(SC_LINES)
| |
|
|
|
[文字列検索]
|
Public Function IsIe( )
if InStr( Request.ServerVariables( "HTTP_USER_AGENT" ), "MSIE" ) <> 0 then
IsIe = True
else
IsIe = False
end if
End Function
| |
|
|
|
[変数が配列かどうかを調べる]
|
if IsArray( MailArray ) then
メール処理
end if
| |
|
|
|
[文字列に含まれる部分文字列をすべて置換]
|
---------------------------------------------------------------------------------
スペースを文字列全体から削除
---------------------------------------------------------------------------------
strTarget = Replace( strTarget, " ", "" )
| |
|
|
|
[文字列を区切り文字で分解して配列を作成]
|
strTarget = Split( "A:B:C", ":" )
| |
|
|
|
[配列で指定した次元で使うことのできるインデックス番号の最大値を返す]
|
strTarget = Split( "A:B:C", ":" )
nMax = UBound( strTarget )
| |
|
[nMax は 2 になります]
|
|
[指定された文字列内のアルファベットの小文字を大文字に変換]
|
---------------------------------------------------------------------------------
比較したい文字列の中身に大文字、小文字が混ざっている場合
---------------------------------------------------------------------------------
if UCase( strTarget ) = "ADMIN" then
処理
end if
| |
|
|
|
|
1) Left
2) Right
3) Mid
strTarget = Left( "AABBCC", 2 )
[strTarget は "AA"]
strTarget = Right( "AABBCC", 2 )
[strTarget は "CC"]
strTarget = Mid( "AABBCC", 3, 2 )
[strTarget は "BB"]
| |
|
|
|