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

iteye_5783

于 2009-01-07 23:15:00 发布

阅读量91

点赞数

本文介绍了一个分行模块的功能实现，该模块能够自动识别并处理英文和型号数字的文本，通过特定算法将过长的文本进行合理截断并分行显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

　　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