实现中英文混合字符串的格式化

Function GetString(Str,Num)
    Dim objRegExp,Matches,Letter,strTemp,iTemp
    IF Len(Str)>Num Then
      strTemp=Left(Str,Num)
      Set objRegExp = New RegExp 
      objRegExp.Global = true         
      objRegExp.Pattern = "[/u0020-/u007e]"
      Set Matches = objRegExp.Execute(strTemp)
      Letter = Matches.Count
      iTemp = Num + Letter
      strTemp=Left(Str,iTemp)
      IF Len(strTemp)<Len(Str) Then
           GetString = strTemp&"..."
      Else
           GetString = strTemp
      End IF
      Set Matches = Nothing
      Set objRegExp = Nothing
     Else
          GetString = Str
     End IF
End Function

2005-3-23 20:41 秤砣