- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 将一段文字，分割为若干40字长度的字符串，但结果却是，第一段40字，第二段80，第三段120~~，最后，还报length错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187737)
-- 发布时间：2023/8/8 10:33:00
-- 将一段文字，分割为若干40字长度的字符串，但结果却是，第一段40字，第二段80，第三段120~~，最后，还报length错误
命令窗口测试代码
-- 发布时间：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
Next
-- 发布时间：2023/8/8 13:52:00
--
感谢：有点蓝，展示下设计成果。
下面差不多每一行，都是一个label，动态生成，哈哈
此主题相关图片如下：微信图片_20230808135101.png