'==================================================
' 한글과 영문을 구분해서 문자열의 길이를 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 |