• <em id="52tge"><object id="52tge"><blockquote id="52tge"></blockquote></object></em>

  • <progress id="52tge"></progress>
      
      
      <tbody id="52tge"><pre id="52tge"></pre></tbody>
      <em id="52tge"></em>
      <li id="52tge"><acronym id="52tge"><u id="52tge"></u></acronym></li>

      <nav id="52tge"><sub id="52tge"><noframes id="52tge"></noframes></sub></nav>

      網站地圖 | RSS訂閱 老鐵博客 - 上海SEO優化|上海網站建設|蜘蛛池出租|站群代搭建
      你的位置:首頁 ? ASP程序 ? 正文

      asp取左邊字符串函數(1個中文=2個英文)

      2015-12-29 15:13:58 | 作者:老鐵SEO | 0個評論 | 人瀏覽

      <%
      '取左邊N個字符,1個中文=2個英文【凌陳亮(QQ:57404811)】
      '參數:字符串,左邊位數,超出部分截斷的替換字符串(如:...)
      function getleftstr(str,n,str_right)
       if len(str)>0 then
        dim f_str,f_i,f_k,f_a
        f_k=0
        for f_i=1 to len(str)
         f_a=mid(str,f_i,1)
         dim re : set re=New RegExp '建立正則表達式
         re.Pattern="[^\x00-\xff]" '設置模式,即建立正則式規則
         re.Global=False '設置全局可用性
         re.Ignorecase=True '設置是否區分字符大小寫
         re.MultiLine=False '設置多行標記可用性
         f_k=f_k+len(re.replace(f_a,"$2")) '執行搜索測試
         if f_k<=n then
          f_str=f_str & f_a
         else
          f_str=f_str & str_right
          exit for
         end if
        next
        getleftstr=f_str
       end if
      end function
      %>


      調用案例:
      <%=getleftstr(str,20,"...")%>

    1. 本文來自: 老鐵博客,轉載請保留出處!歡迎發表您的評論
    2. 相關標簽:獲取字符串  取左邊字符  
    3. 已有0位網友發表了一針見血的評論,你還等什么?

      必填

      選填

      記住我,下次回復時不用重新輸入個人信息

      必填,不填不讓過哦,嘻嘻。

      ◎歡迎參與討論,請在這里發表您的看法、交流您的觀點。

      色情激情片日本大全|亚洲无码色情gif|六人行成人版第九影院|亚洲成人电影理论电影

    4. <em id="52tge"><object id="52tge"><blockquote id="52tge"></blockquote></object></em>

    5. <progress id="52tge"></progress>
        
        
        <tbody id="52tge"><pre id="52tge"></pre></tbody>
        <em id="52tge"></em>
        <li id="52tge"><acronym id="52tge"><u id="52tge"></u></acronym></li>

        <nav id="52tge"><sub id="52tge"><noframes id="52tge"></noframes></sub></nav>