<%

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

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다