当前位置: 首页 > 图文教程 > 网络编程 > ASP > 分行模块，自动识别英文和型号数

ASP
ASP XML操作类代码
asp读取xml实例代码
ASP读取XML实例 优酷专辑采集程序 雷锋版
asp自带的内存缓存 application
Cookies 欺骗漏洞的防范方法(vbs+js 实现)
asp清理缓存的代码
asp Driver和Provider两种连接字符串连接Access时的区别
asp 性能测试报告 学习asp朋友需要了解的东西
ASP实例代码:asp操作Excel类
ASP 高亮显示不区分大小写的关键字
ASP XMLDom在服务器端操作XML文件的主要方法和实现
IE8内部对渲染模型的判断流程
web开发人员必须知道的Unicode与字符集相关知识

No. « 220 221 222 223 »

技术文章搜索

关键字

ASP 中的 分行模块，自动识别英文和型号数

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 251 ::
收藏到网摘: n/a

  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
具体例子位置还是WWW.HIFI-CHINA.COM