以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：阿里云短信发布 自定义内容不超过20个字可以成功发送，如果大于20个字就不能了，有没有办法解决呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131220)
--  作者：李孝春
--  发布时间：2019/2/20 16:15:00
--  求助：阿里云短信发布 自定义内容不超过20个字可以成功发送，如果大于20个字就不能了，有没有办法解决呢？
求助：阿里云短信发布 自定义内容不超过20个字可以成功发送，如果大于20个字就不能了，有没有办法解决呢？
图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看

麻烦老师看看  谢谢！
另外有没有办法获取到阿里云短信发送是否成功的状态呢？

[此贴子已经被作者于2019/2/20 17:03:59编辑过]
--  作者：有点蓝
--  发布时间：2019/2/20 16:33:00
--  
这个请去看这个短信的开发文档。具体咨询阿里云客服。有些免费试用是有限制的。
--  作者：李孝春
--  发布时间：2019/2/20 17:31:00
--  回复：（有点蓝）这个请去看这个短信的开发文档。具体...
经过和阿里云沟通，其每个变量都最大只能支持二十个字符，超过二十个就需要切换成多个变量，然后组合进行发送。


现在是有255个字符，怎么按二十个字符一行进行拆分呢？

当前消息内容等于：
市场监管总局官网2月19日发布公告，撤销中国北京同仁堂（集团）有限责任公司中国质量奖称号，收回证书和奖杯。2018年12月，同仁堂发生“蜂蜜门”事件，江苏广电城市频道的“南京零距离”节目曝光了同仁堂子公司委托生产企业回收过期蜂蜜的违规行为。
--  作者：有点蓝
--  发布时间：2019/2/20 17:36:00
--  
阿里云的开发文档是怎么说的？
--  作者：李孝春
--  发布时间：2019/2/20 17:58:00
--  回复：（有点蓝）阿里云的开发文档是怎么说的？
有点蓝 老师  我是直接人工问的  变量最大值支持20个字符  现在我想了一下怎么拆分字符

下面的代码能够实现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)
[此贴子已经被作者于2019/2/20 17:58:30编辑过]
--  作者：有点蓝
--  发布时间：2019/2/20 20:18:00
--  
短信接口肯定有开发文档的，如果不知道再去问阿里云客服。
--  作者：李孝春
--  发布时间：2019/2/20 20:37: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)
--  作者：有点蓝
--  发布时间：2019/2/20 20:48:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=131232