 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
Function cuttextlen(intext, lens) If Len(intext) <= lens Then cuttextlen = intext Else tmptext = intext GetTexts = "" Do While Not Len(tmptext) <= lens GetTexts = GetTexts + Left(tmptext, lens) tmptext = Right(tmptext, Len(tmptext) - lens) Do While (Asc(Left(tmptext, 1)) >= 65 And Asc(Left(tmptext, 1)) <= 90) Or (Asc(Left(tmptext, 1)) >= 97 And Asc(Left(tmptext, 1)) <= 122) Or (Asc(Left(tmptext, 1)) >= 45 And Asc(Left(tmptext, 1)) <= 57) GetTexts = GetTexts + Left(tmptext, 1) tmptext = Right(tmptext, Len(tmptext) - 1) \\\'If Len(tmptext) <= lens Then Exit Do Loop GetTexts = GetTexts & "<br>" Loop cuttextlen = GetTexts & tmptext End If End Function 返回类别: 教程 上一教程: 一个很强的验证脚本 下一教程: VBSCTIPT 5.0中的新特性 您可以阅读与"分行模块，自动识别英文和型号数"相关的教程: · 显示左边的n个字符函数（自动识别汉字） · 显示左边的N个字符(自动识别汉字)函数 · ASP实现网址的自动识别 · 显示左边的N个字符函数(自动识别汉字) · 对连串英文自动换行的解决方式 IE5.5 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
