| ASP控制每行字数，超出自动换行 |
| 来源：智睿 浏览：1886 次 发布时间：2019-01-23 15:47:34 |
| <% '函数：指定字符串1每隔n位插入字符串2，1个中文=2个英文 '参数：字符串1（原字符串），n位开始插入，字符串2（要插入的字符串） '功能可实现：控制每行字数，超出自动换行 function insertstr(str,n,insstr) dim f_return,f_i,f_m,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_m=len(re.replace(f_a,"$2")) '执行搜索测试 f_k=f_k+f_m if f_k<n then f_return=f_return & f_a elseif f_k=n then f_return=f_return & f_a & insstr f_k=0 else f_return=f_return & insstr & f_a f_k=f_m end if next insertstr=f_return end function %> 调用案例： 实现功能：控制每行显示100个字符（即50个汉字） <%=insertstr(str,100,"<br />")%> |
| 【刷新页面】【加入收藏】【打印此文】 【关闭窗口】 |
| 上一篇：智睿学校选课系统 V 4.5.0 2019版学校选课系统，网络学校选课系统 下一篇：智睿中小学校网站系统 V 9.9.0 2019版小学网站系统，2019版中学网站系统 |
