한글,영문,숫자가 섞인 문자열에서 항상 일정한 길이로 자르기

프로그래밍/Asp |  2008/02/21 15:10

데이타베이스를 사용하신다면 쿼리를 이용하시는게 훨씬 간단하고 Performance 또한 좋습니다.

하지만 순수하게 ASP내에서 문자열 길이를 일정하게 유지하셔야  한다면 다음 함수를 써보세요.


<%
                 
     
function LeftCut(strString, intCut)

   

    dim intPos, chrTemp, strCut, intLength

    '문자열 길이 초기화
    intLength = 0
    intPos = 1


   
    '문자열 길이만큼 돈다
    do while ( intPos <= Len( strString ))

      

     '문자열을 한문자씩 비교한다
        chrTemp = ASC(Mid( strString, intPos, 1))

       
        if chrTemp < 0 then '음수값(-)이 나오면 한글임
          strCut = strCut & Mid( strString, intPos, 1 )

          intLength = intLength + 2  '한글일 경우 문자열 길이를 2를 더한다
        else
          strCut = strCut & Mid( strString, intPos, 1 )           

          intLength = intLength + 1  '한글이 아닌경우 문자열 길이를 1을 더한다
        end If

       

        if intLength >= intCut  then
           exit do
        end if


        intPos = intPos + 1
 

    Loop

   

    '리턴값

    LeftCut = strCut


end function




Response.Write LeftCut("2010-12-10 미래에서 잘라낼 길이", 12) & "<br>"

Response.Write LeftCut("미래 2010-12-10 문자열중 잘라낼 길이", 12)


%>

2008/02/21 15:10 2008/02/21 15:10
No trackbacks, No comments.

문자열의 길이를 알아내기

프로그래밍/Asp |  2008/02/21 15:10

<%

function stringCount(strString)

   

    dim intPos, chrTemp, intLength

    '문자열 길이 초기화
    intLength = 0


    intPos = 1
   
    '문자열 길이만큼 돈다
    while ( intPos <= Len( strString ) )

     

        '문자열을 한문자씩 비교한다
        chrTemp = ASC(Mid( strString, intPos, 1))

       
        if chrTemp < 0 then '음수값(-)이 나오면 한글임
           intLength = intLength + 2 '한글일 경우 2바이트를 더한다
        else
           intLength = intLength + 1 '한글이 아닐경우 1바이트를 더한다
        end If


        intPos = intPos + 1

    wend


    stringCount = intLength


end function


Response.Write stringCount("이글의 문자열 길이는?")

%>

2008/02/21 15:10 2008/02/21 15:10
No trackbacks, No comments.

자바스크립트로 ASP 변수값 넘기기

프로그래밍/Asp |  2008/02/21 15:09

<html>
<script language="javascript">

function messageChk( message )
{
   
    alert( '메시지는 '+message+ ' 입니다' );
 
}

</script>
<body>
<%


  dim strMessage, nCount

  nCount = Request("nCount")
 
  if nCount = "" then
  nCount = 1
  else
  nCount = 2
  end if


  select case nCount
  case 1 strMessage = "1번메시지"
  case 2 strMessage = "2번메시지"
  end select


%>
<a href="javascript:messageChk('<%=strMessage%>')">&nbsp;클릭하세요!!!</a>
</body>
</html>

2008/02/21 15:09 2008/02/21 15:09
No trackbacks, No comments.

난수를 이용한 쿠폰번호 생성

프로그래밍/Asp |  2008/02/21 15:09

문자열을 받아서 난수로 문자를 조합해서 값을 되돌려 주는 함수입니다.



<%


   Function MyRandom( couponLength, couponString )
 

  Const defaultString = "ABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"
  Dim nCount, sRet, nNumber, nLength
 
  Randomize '초기화

  If couponString = "" Then
  couponString = defaultString  
  End If
 

  nLength = Len( couponString )
 
  For nCount = 1 To couponLength
   nNumber = Int((nLength * Rnd) + 1)
   sRet = sRet & Mid( couponString, nNumber, 1 )
  Next
 '리턴값
 

  MyRandom = sRet

  End Function

%>



<%
Response.Write "쿠폰넘버: " & MyRandom( 15, "" )
%>

2008/02/21 15:09 2008/02/21 15:09
No trackbacks, No comments.
1 ... 480 481 482 483 484 485 486 487 488 ... 514