ASP > Tip&Tech > asp 배열, print_r , print_r_2 배열 키와 값 찍어주는 함수
 
ASP
Library
Tip&Tech
Q&A
태요닷넷 Asp, Asp.net
Tip&Tech
  HOME > ASP > Tip&Tech
 
작성일 : 11-06-22 11:30
asp 배열, print_r , print_r_2 배열 키와 값 찍어주는 함수
 글쓴이 : 덩벙이 (211.♡.155.10)
조회 : 5,170   추천 : 0   비추천 : 0  

<%
'사용예제 :
'arr = array(1,2,3,4, array("a", "b"))
'print_r(arr)
'Array ( [0] => 1 [1] => 2 [2] => 3 [3] => 4 [4] => Array ( [0] => a [1] => b ) )
'
function print_r(arr)
      dim i, s_len, msg, val, sep, my_newLine, my_tab

      my_newLine = vbCrLf

      if not IsArray(arr) then
            'response.write "<br>배열이 아닙니다."
            exit function
      end if

      my_tab = vbTab
      my_tab = "    "

      msg = ""
      s_len = Ubound(arr)
      for i=0 to s_len
            val = arr(i)
            sep = my_tab & "[" &  i & "]" & " => "

            if not IsArray(val) then
                  msg = msg &_
                        sep & val & my_newLine
            else
                  msg = msg &_
                        sep &_
                        print_r(val)
            end if
      next

      msg = "Array" &_
            my_newLine & "(" & my_newLine &_
            msg &_
            ")" & my_newLine

     
      'response.write msg

      print_r = msg
end function

'####################################################################
'사용예제
'arr = array(1,2,3,4, array("a", "b", array("x", "y")), 5, array("가", "나"))
'response.write  print_r_2(arr, "")
'Array ( [0] => 1 [1] => 2 [2] => 3 [3] => 4 [4] => Array ( [0] => a [1] => b [2] => Array ( [0] => x [1] => y ) ) [5] => 5 [6] => Array ( [0] => 가 [1] => 나 ) )
'
function print_r_2(arr, mode)
      'mode : in,
      dim i, s_len, msg, val, sep, my_newLine, my_tab

      my_newLine = vbCrLf

      if not IsArray(arr) then
            'response.write "<br>배열이 아닙니다."
            exit function
      end if


      my_tab = vbTab
      my_tab = "    "

      dim in_my_tab
      if mode = "in" then
            in_my_tab = my_tab &  "    "
      else
            in_my_tab = ""
      end if


      msg = ""
      s_len = Ubound(arr)
      for i=0 to s_len
            val = arr(i)
            sep = in_my_tab & my_tab & "[" &  i & "]" & " => "

            if not IsArray(val) then
                  msg = msg &_
                        sep & val & my_newLine
            else
                  mode = "in"
                  msg = msg &_
                        sep & print_r_2(val, mode)
            end if
      next

      msg = "Array" &_
            my_newLine &_
            in_my_tab & "(" & my_newLine &_
            msg &_
            in_my_tab & ")" &_
            my_newLine

     
      'response.write msg

      print_r_2 = msg
end function

%>


 
 

Total 11
번호 제   목 글쓴이 날짜 추천 비추천 조회
11 asp 배열, print_r , print_r_2 배열 키와 값 찍어주는 함수 덩벙이 06-22 0 0 5171
10    asp 배열, print_r , print_r_2 배열 키와 값 찍어주는 함수 덩벙이 06-22 0 0 9503
9 숫자를 한글로 . 금액을 한글로 표시 덩벙이 06-21 0 0 4303
8    숫자를 한글로 . 금액을 한글로 표시 덩벙이 06-21 0 0 5138
7 php asp 기본사항 덩벙이 06-20 0 0 5003
6 ASP / PHP Cross Reference 덩벙이 09-28 0 0 4296
5 ( php -> exit; / asp -> response.end / jsp return )… 덩벙이 11-12 0 0 4295
4 Encoding and Decoding base64 with (ASP,PHP,JSP) 암호화 덩벙이 09-10 0 0 4295
3 윈도우 XP IIS에서 접속자 수 늘리는 방법 (403.9에러) 덩벙이 10-20 0 0 4295
2 Encoding and Decoding base64 with (ASP,PHP,JSP) 암호화 덩벙이 09-10 0 0 4295
1 asp 게시판 리스트에서 체크박스를 이용하여 글 등록 덩벙이 08-31 0 0 15882
 
개인홈페이지 덤벙닷컴은 프로그래머와 디자이너위한 IT커뮤니티 공간입니다.
Copyright ⓒ www.dumbung.com. All rights reserved.