<!-- Split 함수를 이용해서 문자열에서 특정문자를 제거하는 함수입니다.

       혹시 필요하신분 있을까봐 간단히 만들어 봤습니다. -->


<%

  Function Get_AbString( strSource, chrSource )

  Dim strTemp, chrTemp, strDest

  strTemp = strSource
  chrTemp = chrSource

  'Split 함수: 지정된 수의 부분 문자열을 포함하는 0부터 시작하는 1차원 배열을 반환합니다.
  'strDest에는 chrSource의 갯수를 반환합니다. 여기서는 2
  '분리된 문자열은 strDest(0) 부터 시작해서 반환한 strDest의 갯수만큼의 1차원 배열에 저장됩니다.
  '여기서는 strDest(0), strDest(1), strDest(2)
  strDest = Split( strTemp, chrTemp )

  strTemp = ""

  for i = 0 to ubound(strDest)

    strTemp = strTemp & strDest(i)

  next

  Get_AbString = strTemp


End Function

  Response.Write Get_AbString( "2,000,000", "," )


%>

2008/02/21 15:47 2008/02/21 15:47

Trackback Address :: https://youngsam.net/trackback/163