Foxtable(狐表)用户栏目专家坐堂 → 求助:根据字符数自动按二十个字符 进行拆分成多个字符串


  共有2319人关注过本帖平板打印复制链接

主题:求助:根据字符数自动按二十个字符 进行拆分成多个字符串

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:根据字符数自动按二十个字符 进行拆分成多个字符串  发帖心情 Post By:2019/2/20 18:41:00 [只看该作者]

面的代码能够实现100个字的拆分  如果当前字符低于120个之后,就会提示报错(代码中注释部分就是值不足)
有没有办法加入一个机制:根据当前字符数来自动判断拆分多少组 避免报错呢?
另外下面的代码约显得臃肿了些  有没有更加简单高效的处理办法呢?

Dim S1 As String ="市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为市场监管总局官网2月19日发布公告2018年12月蜂蜜的违规行为"
Dim s2 As String= s1.SubString(0,20)
Dim s3 As String= s1.SubString(0,20)
Dim s31 As String= s1.SubString(20,20)
Dim s32 As String= s1.SubString(40,20)
Dim s33 As String= s1.SubString(60,20)
Dim s34 As String= s1.SubString(80,20)
'Dim s35 As String= s1.SubString(100,20)
'Dim s36 As String= s1.SubString(120,20)
'Dim s37 As String= s1.SubString(140,20)
'Dim s38 As String= s1.SubString(160,20)
'Dim s39 As String= s1.SubString(180,20)
'Dim s30 As String= s1.SubString(200,20)
'Dim s301 As String= s1.SubString(220,20)
'Dim s302 As String= s1.SubString(240,20)
Output.Show("s2 = " & s2)
Output.Show("s3 = " & s3)
Output.Show("s31 = " & s31)
Output.Show("s32 = " & s32)
Output.Show("s33 = " & s33)
Output.Show("s34 = " & s34)
'Output.Show("s35 = " & s35)
'Output.Show("s36 = " & s36)
'Output.Show("s37 = " & s37)
'Output.Show("s38 = " & s38)
'Output.Show("s39 = " & s39)
'Output.Show("s30 = " & s30)
'Output.Show("s311 = " & s301)
'Output.Show("s311 = " & s302)

 回到顶部