这个sem在实际中可能会录入大于五百字的内容,我想实现拆分,假设现在录入1200字,我需要拆分成500 500 200 三个内容,然后在下面的发送HC部分,进行三次组合,将这条信息发送出去 怎么操作呢?
代码如下:
Dim lsts As New List(Of String)
lsts= DataTables("告知内容").SQLGetValues("姓名" ,"操作单位='" & _usergroup & "' And ( 是否告知 is null or 是否告知<> '是')")
For Each lst As String In lsts
Dim dr21 As DataRow = DataTables("告知内容").sqlfind("姓名 = '" & lst & "'and 操作单位='" & _usergroup & "' " )
If dr21 IsNot Nothing Then '如果不存在同编号的订单
If dr21("手机号码") IsNot Nothing Then
Dim ab As DataRow = DataTables("参数表").sqlFind("使用单位 = '" & _usergroup & "'")
Dim drs1 = DataTables("告知内容").sqlSelect("姓名 = '" & lst & "' and 操作单位='" & _usergroup & "' And ( 是否告知 is null or 是否告知<> '是')")
For Each dr1 As DataRow In drs1
If dr1("告知内容") <>"" Then
Dim t As Date= Date.Now
Dim t1 As String =Format(Date.Now, "yyyMMddHHmmss")
Dim Val As String = Rand.Next(1000) '
Dim s As String = val.PadLeft(4, "0")
Dim password As String= ab("移动平台密码") '接入密码
Dim t2 As String = password & t1 & s
Dim account As String = ab("移动平台账号") '接入账号
Dim serviceCode As String = ab("移动平台接入号") '接入号
Dim authCode As String = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(t2, "MD5")
Dim reqNo As String = t1 & s
Dim sem As String =dr1("告知内容")
这个sem在实际中可能会录入大于五百字的内容,我想实现拆分,假设现在录入1200字,我需要拆分成500 500 200 三个内容,然后在下面的发送HC部分,进行三次组合,将这条信息发送出去 怎么操作呢?
'output.Show(sem)
'MessageBox.Show(sem)
Dim content As String =Functions.Execute("utf8",sem)
'MessageBox.Show(content)
Dim msisdn As String =dr1("手机号码")
'MessageBox.Show(msisdn)
Dim hc As New HttpClient("http://218.201.202.174:8900/smstemp/http/sendSms?account="&account.Trim()&"&reqNo="&reqNo.Trim()&"&authCode="&authCode.Trim()&"&serviceCode="&serviceCode.Trim()&"&msisdn="&msisdn.Trim()&"&c&msgType=0")
Dim ret As String = hc.GetData()
Dim Tel As String = ret
Dim Parts() As String = Tel.Split("=")
Dim Tel1 As String = Parts(1)
Dim Parts1() As String = Tel1.Split(",")
'MessageBox.Show(parts1(0))
If parts1(0)=0 Then
'MessageBox.Show(parts1(0))
dr1("是否告知")="是" & parts1(0)
Else
'MessageBox.Show(parts1(0))
dr1("是否告知")="否" & parts1(0)
End If
dr1.Save
End If
Next
End If
End If
Next