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
加好友 
发短信
Post By：2023/8/8 10:50:00 [显示全部帖子]
