一定期間更新がないため広告を表示しています
2019.01.01 Tuesday
- | | - | -
2006.07.29 Saturday
2006.07.28 Friday
UBound(Array)=要素数となるように、
また要素数=0ならUBound(Array)=0となるようにしているので、
汎用的に使用できる。
<%
Private Function g_Split(str,ary,point)
'********************************************************************
'処理機能名称:g_Split()
'機能概要 :文字列⇒配列
'引数 :str:文字列 ary:配列 point:区切り文字
'戻り値 :エラーメッセージ 通常終了なら"0"
'備考 :データは添字1から始まる。配列の長さ(UBound(ary))が0ならstr=""
' :aryは動的配列として宣言済みのこと
'更新履歴 :
'********************************************************************
Dim xCOUNT
Dim xTEXT
If IsNull(str) Or Trim(str) <> "" Then
xCOUNT = 0
xTEXT = str
Do Until xTEXT = ""
xCOUNT = xCOUNT + 1
ReDim Preserve ary(xCOUNT)
'区切り文字が存在
If InStr(xTEXT,point) > 0 Then
ary(xCOUNT) = Left(xTEXT,InStr(xTEXT,point)-1)
If Len(xTEXT) > InStr(xTEXT,point) Then
xTEXT = Mid(xTEXT,InStr(xTEXT,point)+1)
Else
xTEXT = ""
End If
'区切り文字無し
Else
ary(xCOUNT) = xTEXT
xTEXT = ""
End If
Loop
Else
ReDim ary(0)
End If
If Err <> 0 Then
g_Split = Err.Description
Else
g_Split = "0"
End If
End Function
%>
また要素数=0ならUBound(Array)=0となるようにしているので、
汎用的に使用できる。
<%
Private Function g_Split(str,ary,point)
'********************************************************************
'処理機能名称:g_Split()
'機能概要 :文字列⇒配列
'引数 :str:文字列 ary:配列 point:区切り文字
'戻り値 :エラーメッセージ 通常終了なら"0"
'備考 :データは添字1から始まる。配列の長さ(UBound(ary))が0ならstr=""
' :aryは動的配列として宣言済みのこと
'更新履歴 :
'********************************************************************
Dim xCOUNT
Dim xTEXT
If IsNull(str) Or Trim(str) <> "" Then
xCOUNT = 0
xTEXT = str
Do Until xTEXT = ""
xCOUNT = xCOUNT + 1
ReDim Preserve ary(xCOUNT)
'区切り文字が存在
If InStr(xTEXT,point) > 0 Then
ary(xCOUNT) = Left(xTEXT,InStr(xTEXT,point)-1)
If Len(xTEXT) > InStr(xTEXT,point) Then
xTEXT = Mid(xTEXT,InStr(xTEXT,point)+1)
Else
xTEXT = ""
End If
'区切り文字無し
Else
ary(xCOUNT) = xTEXT
xTEXT = ""
End If
Loop
Else
ReDim ary(0)
End If
If Err <> 0 Then
g_Split = Err.Description
Else
g_Split = "0"
End If
End Function
%>