将一段文字，分割为若干40字长度的字符串，但结果却是，第一段40字，第二段80，第三段120~~，最后，还报length错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 将一段文字，分割为若干40字长度的字符串，但结果却是，第一段40字，第二段80，第三段120~~，最后，还报length错误

共有1106人关注过本帖树形打印复制链接主题：将一段文字，分割为若干40字长度的字符串，但结果却是，第一段40字，第二段80，第三段120~~，最后，还报length错误

zhangjian222200

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1536 积分：10849 威望：0 精华：0 注册：2016/9/12 11:18:00

将一段文字，分割为若干40字长度的字符串，但结果却是，第一段40字，第二段80，第三段120~~，最后，还报length错误 发帖心情

Post By：2023/8/8 10:33:00 [只看该作者]

命令窗口测试代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:报length错误.txt

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/8/8 10:50:00 [只看该作者]

Dim hangNeiRong As String '定义,行内容

Dim ling_to As Integer

Dim Values() As String '定义,数组

Dim Value1 As String '定义,数组第2段内容

Dim text As String

hangNeiR

Values = hangNeiRong.split("|")

value1 = Values(1)

Output.Show(value1.Length)

If value1.Length > 40 Then

ling_to = Math.Ceiling(value1.Length / 40)

End If

Output.Show(ling_to)

'窗口写入:答复内容正式开始生成label和线段

For Index As Integer = 0 To ling_to - 1

If Index < ling_to - 1 Then

Output.Show("第" & Index + 1 & "行:" & value1.Substring(index * 40, 40))

Output.Show("第" & Index + 1 & "行:" & value1.Substring(index * 40))

End If

zhangjian222200

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1536 积分：10849 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2023/8/8 13:52:00 [只看该作者]

感谢：有点蓝，展示下设计成果。

下面差不多每一行，都是一个label，动态生成，哈哈

此主题相关图片如下：微信图片_20230808135101.png

主题：将一段文字，分割为若干40字长度的字符串，但结果却是，第一段40字，第二段80，第三段120~~，最后，还报length错误