Dim S1 As String ="市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为456879"
Output.Show(s1.Length )
Dim cnt As Integer = Math.Ceiling(s1.Length / 20)
Dim lst As new List(of String)
For i As Integer = 0 To cnt - 2
lst.Add(s1.SubString(i*20,20))
Next
lst.Add(s1.SubString((cnt - 1)*20))
For Each s As String In lst
Output.Show(s)
Next
加好友 
发短信
Post By：2019/2/20 20:37:00 [显示全部帖子]
