说明：本函数作用是截取指定英汉混合字符串，并保持显示长度一至。就是将一个汉字当两英文来截取。
用途：一般会用在标题显示列表，可以避免截取的字符串参插不齐的现象。
程序代码
复制代码 代码如下:
'//A_strString要处理的字符串
'//A_intLen以英文字符数为准
'//A_strAddString如果A_strString有截取字符时添中的后缀，如：...，可以为空
function CutString(byval A_strString,byval A_intLen,byval A_strAddString)
dim MM_objRe,MM_objMs,MM_objMh
dim MM_strCut,MM_intLen
set MM_objRe=new RegExp
MM_objRe.Global=true'全局搜索
MM_objRe.IgnoreCase=true'不区分大小写
MM_objRe.Pattern="[^\x00-\xff]"
MM_intLen=A_intLen
if len(A_strString)<=A_intLen then
MM_strCut=A_strString
else
MM_strCut=left(A_strString,MM_intLen)
set MM_objMs=MM_objRe.execute(MM_strCut)
if MM_objMs.count<>MM_intLen then
for each MM_objMh in MM_objMs
if MM_objMh.FirstIndex<MM_intLen then
MM_intLen=MM_intLen-1
else
exit for
end if
next
else
MM_intLen=MM_intLen/2
end if
MM_strCut=left(A_strString,MM_intLen) & A_strAddString
end if
CutString=MM_strCut
set MM_objRe=nothing
end function
这个和目前网上流行的不太一样，用的是正则式来获取非ANSI字符(这里默认非ANSI字符为汉字，如果有偏差可以修改正则式来达到目的)。先注明一点：函数指定长度以英文字符数为准。即是指定为10，含义为10个英文或5个汉字
作了两点优化：
第一点：直接获取指定长度的字符，因为不管是全汉字还是全英文，最长不过是全英文长度，超过的字符是绝对淘汰字符。
第二点：使用正则寻找范围内的汉字，并只遍历每个汉字的字数，这样可以最大程度上减少循环次数。
用途：一般会用在标题显示列表，可以避免截取的字符串参插不齐的现象。
程序代码
复制代码 代码如下:
'//A_strString要处理的字符串
'//A_intLen以英文字符数为准
'//A_strAddString如果A_strString有截取字符时添中的后缀，如：...，可以为空
function CutString(byval A_strString,byval A_intLen,byval A_strAddString)
dim MM_objRe,MM_objMs,MM_objMh
dim MM_strCut,MM_intLen
set MM_objRe=new RegExp
MM_objRe.Global=true'全局搜索
MM_objRe.IgnoreCase=true'不区分大小写
MM_objRe.Pattern="[^\x00-\xff]"
MM_intLen=A_intLen
if len(A_strString)<=A_intLen then
MM_strCut=A_strString
else
MM_strCut=left(A_strString,MM_intLen)
set MM_objMs=MM_objRe.execute(MM_strCut)
if MM_objMs.count<>MM_intLen then
for each MM_objMh in MM_objMs
if MM_objMh.FirstIndex<MM_intLen then
MM_intLen=MM_intLen-1
else
exit for
end if
next
else
MM_intLen=MM_intLen/2
end if
MM_strCut=left(A_strString,MM_intLen) & A_strAddString
end if
CutString=MM_strCut
set MM_objRe=nothing
end function
这个和目前网上流行的不太一样，用的是正则式来获取非ANSI字符(这里默认非ANSI字符为汉字，如果有偏差可以修改正则式来达到目的)。先注明一点：函数指定长度以英文字符数为准。即是指定为10，含义为10个英文或5个汉字
作了两点优化：
第一点：直接获取指定长度的字符，因为不管是全汉字还是全英文，最长不过是全英文长度，超过的字符是绝对淘汰字符。
第二点：使用正则寻找范围内的汉字，并只遍历每个汉字的字数，这样可以最大程度上减少循环次数。
标签：
asp,截取,字符串,中文
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
桃源资源网 Design By www.nqtax.com
暂无“asp截取指定英汉混合字符串_支持中文”评论...
RTX 5090要首发 性能要翻倍！三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB，每个模块容量为2GB。其速度预设为32 Gbps（PAM3），但也可以降至28 Gbps，以提高产量和初始阶段的整体性能和成本效益。
据三星表示，GDDR7内存的能效将提高20%，同时工作电压仅为1.1V，低于标准的1.2V。通过采用更新的封装材料和优化的电路设计，使得在高速运行时的发热量降低，GDDR7的热阻比GDDR6降低了70%。