以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  从列中提取手机号码发送短信  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19898)

--  作者:whjunfeng
--  发布时间:2012/5/24 11:32:00
--  从列中提取手机号码发送短信

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:发短信.table

 

 

见图,因每次到货通知客户,用手机管理群发,我一般都是一组5个号码,中间用英文;隔开,请问如何设置达到我的要求,谢谢!


--  作者:程兴刚
--  发布时间:2012/5/24 11:54:00
--  
看安装路径下的示例文件,谁也没时间来给您完成一个整体功能!
--  作者:狐狸爸爸
--  发布时间:2012/5/24 11:54:00
--  

可以一次向多个号码发送信息,中间用分号隔开,例如:

 

If FoxSMS.Ready = False Then
    MessageBox.Show("请先连接短信猫!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
FoxSms.SyncWorkMode = True \'设置为同步工作模式
If FoxSMS.SendMsg("13800138000;15876377122","异步发送短信测试") = 0 Then
    MessageBox.Show("发送信息成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    MessageBox.Show("发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

 

 


--  作者:whjunfeng
--  发布时间:2012/5/24 12:54:00
--  
我的意思只是把左列中的手机号码提取出来,如右边两行就行(每行5个,中间用英文;隔开)。短信通过手机软件直接发送。谢谢
--  作者:狐狸爸爸
--  发布时间:2012/5/24 14:18:00
--  

在命令窗口执行:

 

For i As Integer = 0 To DataTables("表A").DataRows.Count -1 Step 5
    Dim s As String = ""
    For n As Integer = i To i + 4
        If n  > DataTables("表A").DataRows.Count -1 Then
            Exit For
        End If
        s = s & "," & DataTables("表A").DataRows(n)("手机号码")
    Next
    output.show(s.trim(","))
Next