티스토리 뷰

'*******************************************************************
'* 배열에 항목 추가
'*------------------------------------------------------------------
'* array_push(arr,"aaa,bbb,ccc")
'*******************************************************************
Function array_push(arr,vars)
  Dim k, newelem, newarrsize

  If IsArray(arr) Then
    If Len(vars) > 0 Then
      If InStr(vars, ",") = False Then
        newarrsize = CInt(UBound(arr) + 1)
        ReDim Preserve arr(newarrsize)
        arr(newarrsize) = vars
      Else
        k = (UBound(arr) + 1)
        newelem = Split(vars, ",")
        newarrsize = CInt(UBound(arr) + UBound(newelem) + 1)
        ReDim Preserve arr(newarrsize)
        For Each elem In newelem
          arr(k) = Trim(elem)
          k = k + 1
        Next
      End If
    End If
    array_push = arr
  Else
    array_push = False
  End If
End Function

'*******************************************************************
'* 배열에 항목 제거
'*------------------------------------------------------------------
'* array_pop(arr,"aaa")
'*******************************************************************
Function array_pop(arr, var)
	Dim val

	If IsArray(arr) Then
		For i=0 To UBound(arr)
			If var <> arr(i) Then
				If i = 0 Then strVal = arr(i) Else strVal = strVal &","& arr(i)
			End If
		Next
		arr = explode(",", strVal)
		array_pop = arr
	Else
		array_pop = False
	End If
End Function

'===================================================================
' 배열 내용중 offset ~ length 까지를 뽑아 배열로 반환
'------------------------------------------------------------------
' array_slice(arr,0,3)
'===================================================================
Function array_slice(arr, offset, length)
	Dim x : x = 0
	Dim newArray()
	For i = offset to length
		ReDim Preserve newArray(x)
		newArray(x) = arr(i)
		x = x + 1
	Next
	array_slice = newArray
End Function

'웹프로그래밍 > ASP Classic' 카테고리의 다른 글

HtmlZap - HTML parsing component  (0) 2013.11.13
Classic ASP URL 주소로부터 파일 생성  (0) 2013.05.22
JSON Escape  (0) 2013.05.22
XML Escape/UnEscape  (0) 2013.05.22
Classic ASP 모바일 브라우저 체크  (2) 2013.05.22
댓글