zoukankan      html  css  js  c++  java
  • ASP如何限定中英文混合的文字输出字数?

     1<%
     2' 字符串截取函数,用于信息标题 
     3' strWord需要截取的字符串 
     4' intByteLength显示的字节长度,1个汉字两个字节 
     5' intPadDotAmount背截取后尾部补充点的个数 
     6' 字符串截取函数,用于信息标题 
     7Function FixString(ByVal strWord, ByVal intByteLength, ByVal intPadDotAmount) 
     8        If strWord > "" Then 
     9                If Length(strWord) <= intByteLength Then 
    10                        FixString = strWord 
    11                Else 
    12                        Dim i 
    13                        Dim intLength 
    14                        Dim strChar 
    15                        Dim bytChar 
    16                        intLength = 0 
    17                        For i = 1 to Len(strWord) 
    18                                strChar = Mid(strWord, i, 1
    19                                bytChar = Asc(Mid(strWord, i, 1)) 
    20                                If bytChar < 0 or bytChar > 255 Then 
    21                                        intLength = intLength + 2 
    22                                Else 
    23                                        intLength = intLength + 1 
    24                                End If 
    25                                If intLength > intByteLength Then Exit For 
    26                                FixString = FixString & strChar 
    27                        Next 
    28                        FixString = FixString & String(intPadDotAmount, "."
    29                End If 
    30        Else 
    31                FixString = "" 
    32        End If 
    33End Function
     
    34' 计算字符串长度,1个汉字为两个字节 
    35Function Length(ByVal strWord) 
    36        If strWord > "" Then 
    37                Dim i, bytChar 
    38                Length = 0 
    39                For i = 1 to Len(strWord) 
    40                        bytChar = Asc(Mid(strWord, i, 1)) 
    41                        If bytChar < 0 or bytChar > 255 Then Length = Length + 2 Else Length = Length + 1 
    42                Next 
    43        Else 
    44                Length = -1 
    45        End If 
    46End Function

    47content= FixString("测试,.ba我实,<>",10,0)
    48response.Write(content)
    49%>
  • 相关阅读:
    asp.net 对母版页的控件事件
    treeview操作集合
    使用GAppProxy时安全证书无效的解决办法
    向Excel模板中添加数据
    C# 重写 winform 关闭按钮
    完整ASP.Net Excel导入程序(支持2007)
    随笔二则
    标记枚举(flags)的使用
    System.Reflection.Missing.Value与Type.Missing
    Windows下Android源码下载方法
  • 原文地址:https://www.cnblogs.com/zwl12549/p/853221.html
Copyright © 2011-2022 走看看