한글문자열 길이 체크함수
Function CutString( strString, iLength ) Dim iPos, strChar, iLen, strLeft ' 한문자씩 비교한다. For iPos = 1 To Len( strString ) strChar = Mid( strString, iPos, 1) ' 한글일 경우 If Asc( strChar ) < 0 Then iLen = iLen + 2 Else iLen = iLen + 1 End If If iLen = iLength Then strLeft = Mid( strString, 1, iPos ) CutString = strLeft & "···" Exit Function ElseIf iLen = (iLength + 1) Then strLeft = Mid(strString, 1, i..
더보기