解析 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

假如对方给我返回的是多个{}，每个{}里面的格式都是相同的。

下面的是针对单个{}计划表增加一行，多个{}，计划表需要增加多行，怎么做呢?

If dr2 Is Nothing Then

Dim dl As new ClassLibrary1.Class1()

Dim Multi As String =dl.getSchInfoByWorkInfo(str1,str2)

If Multi.Length = 0 Then

MessageBox.show("工单号行号:" & str & "没有导入订单系统,请告知计划人员","异常",MessageBoxButtons.OK,MessageBoxIcon.Error)

Else

multi = multi.Replace("{","").Replace("}","")

Dim Values() As String

Values = Multi.split(",")

Dim zd As New Dictionary(Of String, String)

zd.Add("u8OrderNo","订单号")

zd.Add("u8LineNo","订单行号")

zd.Add("productNo","客户物料编码")

zd.Add("productType","客户物料名称")

zd.Add("bdMaterialNo","博达物料编码")

zd.Add("bdMaterialName","博达物料名称")

zd.Add("productionQuantity","生产订单数量")

zd.Add("typeDscr","类别说明")

zd.Add("depName","部门名称")

zd.Add("startDate","开工日期")

zd.Add("endDate","完工日期")

zd.Add("activeOSNo","两化表编号")

zd.Add("remark","备注")

zd.Add("swVersion","软件版本")

Dim rr As Row = Tables("计划表").AddNew

For Index As Integer = 0 To Values.Length - 1

Dim vrr() As String = Values(Index).split(":")

rr(zd(vrr(0))) = vrr(1)

rr("生产订单号码") = str1

rr("工单行号") = str2

rr("工单") = str1 & "-" & str2

rr.save

rr("销售订单_行号") = rr("订单号") & "-" & rr("订单行号")

rr.save

End If

呃，人家给你返回的是json数据吧？参考

dim str as string = "{""ty"": ""file"", ""size"": 0}"

msgbox(str)
Dim data As object
Dim JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
Dim ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", str)
End With

msgbox(data.ty)

[此贴子已经被作者于2016/12/28 15:25:40编辑过]

[{"u8OrderNo":"SY1510105-1","u8LineNo":"1","productNo":"CBSWI-SWI1563A","productType":"BDCOM S2520PT","bdMaterialNo":"TEROU-ROU0360B","bdMaterialName":"CBOEM-PON0150B","productionQuantity":"2","typeDscr":"正常生产","depName":"制造中心-装配部-批量","startDate":"2015/12/9 0:00:00","endDate":"2015/12/12 0:00:00","activeOSNo":"Oeout7S03e00101","remark":"通用态","swVersion":"09039_2015"},

{"u8OrderNo":"SY1510105-2","u8LineNo":"2","productNo":"CBSWI-SWI1563B","productType":"BDCOM S2520MT","bdMaterialNo":"TEROU-ROU0360A","bdMaterialName":"CBOEM-PON0150A","productionQuantity":"4","typeDscr":"正常生产","depName":"制造中心-装配部-批量","startDate":"2015/12/8 0:00:00","endDate":"2015/12/11 0:00:00","activeOSNo":"Oeout7S03e00102","remark":"通用态","swVersion":"09049_2015"}]

是json格式。

在json.cn能在线解析

此主题相关图片如下：json.png

还是不清楚怎么把他们加入到我的计划表里面。如果只有1行数据的，红色代码是通过字典的方式加入的。
请指教。

不管一行还是多行，都返回给我的是这种格式。一行一个{}，我如何把每行的值写到计划表里面

[{"a":"1","a1":"12"},{"b":"2","b1":"22"},{"c":"3","c1":"333"}]

此主题相关图片如下：json2.png

[此贴子已经被作者于2016/12/28 17:38:11编辑过]

参考代码

Dim str As String = "[{""a"":""1""},{""a"":""2""},{""a"":""3""}]"

For Each info As object In data
output.show(info.a)
Next

Dim dr2 As DataRow = DataTables("计划表").SQLFind("工单= '" & gdhhh.text & "'")

If dr2 Is Nothing Then

Dim dl As new ClassLibrary1.Class1()

Dim Multi As String =dl.getSchInfoByWorkInfo(str1,str2)

If Multi.Length = 0 Then

MessageBox.show("工单号行号:" & str & "没有导入订单系统,请告知计划人员","异常",MessageBoxButtons.OK,MessageBoxIcon.Error)

Else

Dim data As object

Dim JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"

Dim ScriptControl = CreateObject("MSScriptControl.ScriptControl")

With ScriptControl

.Language = "Javascript"

.Timeout = -1

.AddCode(JscriptCode)

data = .Run("toObject", Multi)

End With

For Each info As object In data

Dim rr As Row = Tables("计划表").AddNew

rr("订单号") = Info.u8OrderNo

rr("订单行号") = Info.u8LineNo

rr("客户物料编码") = Info.productNo

rr("客户物料名称") = Info.productType

rr("博达物料编码") = Info.bdMaterialNo

rr("博达物料名称") = Info.bdMaterialName

rr("生产订单数量") = Info.productionQuantity

rr("类别说明") = Info.typeDscr

rr("部门名称") = Info.depName

rr("开工日期") = Info.startDate

rr("完工日期") = Info.endDate

rr("两化表编号") = Info.activeOSNo

rr("备注") = Info.remark

rr("软件版本") = Info.swVersion

rr("销售订单_行号") = rr("订单号") & "-" & rr("订单行号")

rr.save

End If

老师能发针对红色的代码写一下备注，不理解啥意思。另外for each里面的也应该对的把。

运行有什么问题？

                    Dim data As object
                    Dim JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}" '定义一个javascript函数,利用其eval函数转换json数据
                    Dim ScriptControl = CreateObject("MSScriptControl.ScriptControl")
                    With ScriptControl
                        .Language = "Javascript"
                        .Timeout = -1
                        .AddCode(JscriptCode)
                        data = .Run("toObject", Multi) '运行这个js函数
                    End With

其实，你直接用c#的json也是可以的，参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89768&skin=0

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76729&skin=0

我在命令窗口运行下面的代码结果就是正确的。

Dim str As String = "[{""workOrderNo"":""SC20160810103"",""workOrderLineNo"":""1"",""u8OrderNo"":""021607102"",""u8LineNo"":""13"",""productNo"":""CBSWI-SWI1630A"",""productType"":""LS6803"",""bdMaterialNo"":""CBSWI-SWI1630A"",""bdMaterialName"":""LS6803"",""productionQuantity"":""1"",""typeDscr"":"""",""depName"":""制造中心-装配部-高端"",""startDate"":""2016-08-17 00:00:00.0"",""endDate"":""2016-08-22 00:00:00.0"",""activeOSNo"":"""",""remark"":"""",""swVersion"":""""},{""workOrderNo"":""SC20160810103"",""workOrderLineNo"":""2"",""u8OrderNo"":""021607102"",""u8LineNo"":""9"",""productNo"":""CBSWI-JCA0772B"",""productType"":""LS68-24GE-SFP-V3"",""bdMaterialNo"":""CBSWI-JCA0772B"",""bdMaterialName"":""LS68-24GE-SFP-V3"",""productionQuantity"":""1"",""typeDscr"":"""",""depName"":""制造中心-装配部-高端"",""startDate"":""2016-08-17 00:00:00.0"",""endDate"":""2016-08-22 00:00:00.0"",""activeOSNo"":"""",""remark"":""1*1"",""swVersion"":""""},{""workOrderNo"":""SC20160810103"",""workOrderLineNo"":""3"",""u8OrderNo"":""021607102"",""u8LineNo"":""10"",""productNo"":""CBSWI-JCA0790B"",""productType"":""LS68-MSU-III-B"",""bdMaterialNo"":""CBSWI-JCA0790B"",""bdMaterialName"":""LS68-MSU-III-B"",""productionQuantity"":""1"",""typeDscr"":"""",""depName"":""制造中心-装配部-高端"",""startDate"":""2016-08-17 00:00:00.0"",""endDate"":""2016-08-22 00:00:00.0"",""activeOSNo"":"""",""remark"":""1*1"",""swVersion"":""""},{""workOrderNo"":""SC20160810103"",""workOrderLineNo"":""4"",""u8OrderNo"":""021607102"",""u8LineNo"":""11"",""productNo"":""CBPOW-POW0112A"",""productType"":""英文中性化LS68-PWR-AC-600"",""bdMaterialNo"":""CBPOW-POW0112A"",""bdMaterialName"":""英文中性化LS68-PWR-AC-600"",""productionQuantity"":""2"",""typeDscr"":"""",""depName"":""制造中心-装配部-高端"",""startDate"":""2016-08-17 00:00:00.0"",""endDate"":""2016-08-22 00:00:00.0"",""activeOSNo"":"""",""remark"":""1*2"",""swVersion"":""""},{""workOrderNo"":""SC20160810103"",""workOrderLineNo"":""5"",""u8OrderNo"":""021607102"",""u8LineNo"":""12"",""productNo"":""CBSWI-JCA0774B"",""productType"":""LS68-12GE-TX/SFP-V3"",""bdMaterialNo"":""CBSWI-JCA0774B"",""bdMaterialName"":""LS68-12GE-TX/SFP-V3"",""productionQuantity"":""1"",""typeDscr"":"""",""depName"":""制造中心-装配部-高端"",""startDate"":""2016-08-17 00:00:00.0"",""endDate"":""2016-08-22 00:00:00.0"",""activeOSNo"":"""",""remark"":""1*1"",""swVersion"":""""}]"

msgbox(str)

Dim data As object

Dim JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"

Dim ScriptControl = CreateObject("MSScriptControl.ScriptControl")

With ScriptControl

.Language = "Javascript"

.Timeout = -1

.AddCode(JscriptCode)

data = .Run("toObject", str)

End With

For Each info As object In data

Dim rr As Row = Tables("计划表").AddNew

rr("生产订单号码") = Info.workOrderNo

rr("工单行号") = Info.workOrderLineNo

rr("工单") = rr("生产订单号码") & "-" & rr("工单行号")

rr("订单号") = Info.u8OrderNo

rr("订单行号") = Info.u8LineNo

rr("客户物料编码") = Info.productNo

rr("客户物料名称") = Info.productType

rr("博达物料编码") = Info.bdMaterialNo

rr("博达物料名称") = Info.bdMaterialName

rr("生产订单数量") = Info.productionQuantity

rr("类别说明") = Info.typeDscr

rr("部门名称") = Info.depName

rr("开工日期") = Info.startDate

rr("完工日期") = Info.endDate

rr("两化表编号") = Info.activeOSNo

rr("备注") = Info.remark

rr("软件版本") = Info.swVersion

rr("销售订单_行号") = rr("订单号") & "-" & rr("订单行号")

rr.save

如果在keydown运行，

就提示错误所在事件：窗口,生产入库,TextBox3,KeyDown

详细错误信息：

缺少 ';

Dim dl As new ClassLibrary1.Class1()

Dim Multi As String =dl.getSchInfoByWorkInfo_1(str1,str2)

If Multi.Length = 0 Then

MessageBox.show("工单号行号:" & str & "没有导入订单系统,请告知计划人员","异常",MessageBoxButtons.OK,MessageBoxIcon.Error)

Else

msgbox (Multi)

Dim data As object

Dim JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"

Dim ScriptControl = CreateObject("MSScriptControl.ScriptControl")

With ScriptControl

.Language = "Javascript"

.Timeout = -1

.AddCode(JscriptCode)

data = .Run("toObject", Multi)

End With

For Each info As object In data

Dim rr As Row = Tables("计划表").AddNew

rr("生产订单号码") = Info.workOrderNo

rr("工单行号") = Info.workOrderLineNo

rr("工单") = rr("生产订单号码") & "-" & rr("工单行号")

rr("订单号") = Info.u8OrderNo

rr("订单行号") = Info.u8LineNo

rr("客户物料编码") = Info.productNo

rr("客户物料名称") = Info.productType

rr("博达物料编码") = Info.bdMaterialNo

rr("博达物料名称") = Info.bdMaterialName

rr("生产订单数量") = Info.productionQuantity

rr("类别说明") = Info.typeDscr

rr("部门名称") = Info.depName

rr("开工日期") = Info.startDate

rr("完工日期") = Info.endDate

rr("两化表编号") = Info.activeOSNo

rr("备注") = Info.remark

rr("软件版本") = Info.swVersion

rr("销售订单_行号") = rr("订单号") & "-" & rr("订单行号")

rr.save

End If

发现2个msgbox(str)和msgbox(Multi),结果不一样。一个去掉了多余的引号，一个仍然是返回的原值引号仍然保留

msgbox（str）

此主题相关图片如下：str.png

此主题相关图片如下：mutl.png

这是怎么回事呢?怎么改呢?ths

[此贴子已经被作者于2016/12/30 14:03:23编辑过]

编写代码的时候，两个双引号表示一个双引号。你直接取字符串的时候，不需要写两个双引号。

接口返回的就是那样的格式。

我该怎么改?

主题：解析