程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp 中西文混合式字符截取程序

asp 中西文混合式字符截取程序

日期:2017/1/9 13:41:30      編輯:關於ASP編程

    中西文混合式字符截取程序
    function CutStr(byVal val,byVal length,byVal endStr)
      Dim l,t,c,i
      If val = "" Or IsNull(val) Then
       CutStr = ""
       Exit Function
      End If
      If length = "" Or Int(length) <= 0 Or IsNumeric(length) = False Then
       CutStr = val
       Exit Function
      End If
      val = LoseHTML(val)
      l = Len(val)
      length = Int(length)
      t = 0
      For i = 1 To l
       c = Ascw(Mid(val,i,1))
       If c < 0 Or c > 255 Then t = t + 2 Else t = t + 1
       IF t >= length Then
        CutStr = Left(val,i) & endStr
        Exit For
       Else
        CutStr = val
       End If
      Next
     End Function

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved