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

核心提示：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