一条短信能录入多条订单吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

再增加一个分隔符 | 没条信息用 | 分割

If e.Content.StartsWith("@@") Then '如果信息是以约定的@@开始

for each cons as string in e.Content.Split("|")
    Dim vals() As String = cons.Trim("@").Split("@")
    Dim ret As String
    If vals.Length = 4 Then '如果数组长度等于4
        If vals(0) > "" AndAlso vals(1) > "" Then '且提交了客户名称和产品名称
            Dim Quantity As Integer
            Dim Price As Double
            If Integer.TryParse(Vals(2), Quantity) '如果数量格式正确
                If Double.TryParse(Vals(3), Price) Then '如果单价格式正确
                    Dim dr As DataRow = DataTables("订单").AddNew()
                    dr("客户") = vals(0)
                    dr("产品") = vals(1)
                    dr("数量") = vals(2)
                    dr("单价") = vals(3)
                    ret = "提交成功:" & e.Content
                End If
            End If
        End If
    End If
    If ret = "" Then
        ret = "格式错误:" & e.Content
    End If
    FoxSms.DelMsgForIndex(e.Index) '从SIM卡删除此短信
    FoxSMS.SendMsg(e.FromNumber,ret) '回复短信,告诉业务员,此订单是否提交成功

next
End If

liuruihua	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	一条短信能录入多条订单吗？ Post By：2014/7/4 10:40:00 [只看该作者] 用户已被锁定

liuruihua	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2014/7/5 9:16:00 [只看该作者] 用户已被锁定

liuruihua	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2014/7/5 9:38:00 [只看该作者] 用户已被锁定

liuruihua	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2014/7/5 9:53:00 [只看该作者] 用户已被锁定

liuruihua	小大 9楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2014/7/5 11:05:00 [只看该作者] 用户已被锁定

主题：一条短信能录入多条订单吗？