 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
1)函数:rowscode()-----每行显示n个字母，自动换行 Function rowscode(str,n) If len(str)<=n/2 Then rowscode=str Else Dim TStr Dim l,t,c Dim i l=len(str) TStr="" t=0 for i=1 to l c=asc(mid(str,i,1)) If c<0 then c=c+65536 If c>255 then t=t+2 Else t=t+1 End If TStr=TStr&(mid(str,i,1)) If t>n Then TStr=TStr&"<br>" t=0 End if next rowscode= TStr End If End Function 2)函数:lefttrue()-----假如字符串str的长度大于n，则显示左边的n个字符 Function LeftTrue(str,n) If len(str)<=n/2 Then LeftTrue=str Else Dim TStr Dim l,t,c Dim i l=len(str) TStr="" t=0 for i=1 to l c=asc(mid(str,i,1)) If c<0 then c=c+65536 If c>255 then t=t+2 Else t=t+1 End If If t>n Then exit for TStr=TStr&(mid(str,i,1)) next LeftTrue = TStr & "…" End If End Function 返回类别: 教程 上一教程: 虹雨的功能较全的计数程序 下一教程: 用ASP做一个记事本编缉器(附源码) 您可以阅读与"两个控制显示格式的函数(自动换行、自动省略)"相关的教程: · ASP写的自动生成SELECT表单的函数 · 在ASP中自动创建多级文件夹的函数(使用FSO) · 动态显示图片的函数（显示广告条） · 显示左边的N个字符函数(自动识别汉字) · 表单对象TEXTAREA内容的格式控制(回车、换行、空格) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
