각종 활용가능한 함수들 ㅋㅋ

Function String_Cut(str, strlen) ' 문자열 자르기 dim rValue dim nLength, tmpStr, tmpAsc nLength = 0.00 rValue = "" for f = 1 to len(str) tmpStr = MID(str, f, 1) tmpAsc = ASC(tmpStr) if (tmpAsc < 0) then ' 한글 nLength = nLength + 2 ' 한글일때 길이값 설정 rValue = rValue & tmpStr else nLength = nLength + 1 ' 한글 아닌 문자처리 rValue = rValue & tmpStr end if If (nLength >= strlen) then if f < len(str) then rValue = rValue & "..." end if exit for end if next rValue = Replace(rValue, "'", "''") String_Cut = rValue End Func...