主题：从列中提取手机号码发送短信

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:发短信.table

 

 

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

看安装路径下的示例文件，谁也没时间来给您完成一个整体功能！

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

 

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

 

 

我的意思只是把左列中的手机号码提取出来，如右边两行就行（每行5个，中间用英文;隔开）。短信通过手机软件直接发送。谢谢

在命令窗口执行：

 

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