'==================================================
'   한글과 영문을 구분해서 문자열의 길이를 Return
'   호출 방법    :  getLength(문자열)
' 입력 파라메터: strData(문자열)
'==================================================
Function getLength(strData)
Dim nLen ' 문자열 길이값
Dim i
 nLen = 0
 if Len(strData) > 0 then
  for i = 1 to Len(strData)
   if Asc(Mid(strData,i,1)) < 0 then
    nLen = nLen + 2
   else
    nLen = nLen + 1
   end if
  next
 end if
 getLength = nLen
End Function

'개발팁( ASP )' 카테고리의 다른 글

임시비밀번호 만들기  (0) 2013.07.12
원격지 파일을 읽기  (0) 2013.07.09
한글과 영문을 구분해서 문자열 잘라서 Return  (0) 2013.07.02
top