- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 从列中提取手机号码发送短信 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=19898)
-- 发布时间：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
-- 发布时间：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