转换文本按一定字数折叠
- 作者: 放浪不羁27752601
- 来源: 51数据库
- 2022-08-17
Private Function wrapword(str As String, CharsInOneLine As Integer, fixedLines As Integer) As String
Dim c As Integer, i As Integer
c = (Len(str) - (Len(str) Mod CharsInOneLine)) / CharsInOneLine
For i = 0 To c
wordwrap = wordwrap & IIf(i = c, Mid(str, i * CharsInOneLine + 1), Mid(str, i * CharsInOneLine + 1, CharsInOneLine)) & vbcrlf
Next i
If fixedLines > c Then
For i = 0 To fixedLines - c - 3
wordwrap = wordwrap & vbcrlf
Next i
End If
End Function
推荐阅读
