Function cutStr(str, cutLen) '// cutStr(문자열, 자를길이)
Dim strLen, strByte, strCut, strRes, char, i
strLen = 0
strByte = 0
strLen = Len(str)
for i = 1 to strLen
char = ""
strCut = Mid(str, i, 1)
char = Asc(strCut)
char = Left(char, 1)
if char = "-" then '2Bye
strByte = strByte + 2
else
strByte = strByte + 1
end if
if cutLen < strByte then
strRes = strRes & ".."
exit for
else
strRes = strRes & strCut
end if
next
cutStr = strRes
End
'ASP' 카테고리의 다른 글
| [ASP] 웹페이지 내용을 Excel파일로 저장하기 (0) | 2009.06.18 |
|---|---|
| ASP에서 정규식 사용 (0) | 2009.06.18 |
| ASP에서 DB(MSSQL)저장시 Decimal 타입의 데이터 사이즈 설정하기 (0) | 2009.06.18 |
| ASP에서 텍스트파일 불러와서 출력하기 (0) | 2009.06.18 |
| Windows 2003 Server에서 CDO로 SMTP메일 보내기 (0) | 2009.06.18 |
