Function cutStr(str, cutLen) 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) ' 일단 1만큼 잘라서 strRes에 저장한다. char = Asc(strCut) ' 아스키 코드값 읽어오기 char = Left(char, 1) if char = "-" then ' "-"이면 2바이트 문자임 strByte = strByte + 2 else strByte = strByte + 1 end if if cutLen strRes = strRes & ".." exit f..