开发学院WEB开发ASP 分行模块,自动识别英文和型号数 阅读

分行模块,自动识别英文和型号数

 2001-10-04 10:22:47 来源:WEB开发网   
核心提示:Function cuttextlen(intext, lens)If Len(intext) <= lens Thencuttextlen = intextElsetmptext = intextGetTexts = ""Do While Not Len(tmptext) <= len
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

Tags:分行 模块 自动识别

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接