한글문자열 길이 체크함수

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, iPos - 1)
   CutString = strLeft & "···"
   Exit Function
 
  End If
Next
 
strLeft = strString
CutString = strLeft
 
End Function