以文本方式查看主题

-  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)

--  作者:zhangjian222200
--  发布时间:2023/8/8 10:33:00
--  将一段文字,分割为若干40字长度的字符串,但结果却是,第一段40字,第二段80,第三段120~~,最后,还报length错误
命令窗口测试代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:报length错误.txt



--  作者:有点蓝
--  发布时间: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

--  作者:zhangjian222200
--  发布时间:2023/8/8 13:52:00
--  
感谢:有点蓝,展示下设计成果。

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

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20230808135101.png
图片点击可在新窗口打开查看