'==================================================
' 한글과 영문을 구분해서 문자열 잘라서 Return
' 호출 방법 : getCutString(문자열, 원하는 글자수)
' 입력 파라메터: strData(문자열,int글자)
'==================================================
Function getCutString(strString, intCutLen)
Dim intLen '// 문자열 길이
Dim intByte '// byte 수
Dim strCutString
Dim strRes
Dim strChar
Dim intX
intLen = 0
intByte = 0
strRes = ""
if IsNULL(strString) then
intLen = 0
else
intLen = Len(trim(strString))
end if
For intX = 1 to intLen
strChar = ""
strCutString = Mid(strString, intX, 1) '// 일단 1만큼 잘라서 strCutString에 저장한다.
strChar = Asc(strCutString) '// 아스키 코드값 읽어오기
strChar = Left(strChar, 1)
If strChar = "-" Then '// "-"이면 2바이트 문자임
intByte = intByte + 2
Else
intByte = intByte + 1
End If
If intCutLen < intByte Then
'// 현재 문자열 byte 수가 지정한 byte 수보다 크면 For 문을 빠져나간다.
strRes = strRes & "..."
Exit For
Else
'// 현재 문자열 byte 수가 지정한 byte 수보다 작으면 strRes 에 잘라낸 문자열을 추가한다.
strRes = strRes & strCutString
End If
Next
getCutString = strRes
End Function
'개발팁( ASP )' 카테고리의 다른 글
임시비밀번호 만들기 (0) | 2013.07.12 |
---|---|
원격지 파일을 읽기 (0) | 2013.07.09 |
한글과 영문을 구분해서 문자열의 길이를 Return (0) | 2013.07.02 |