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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 懵了！没有方向

共有3129人关注过本帖树形打印复制链接主题：懵了！没有方向

石四

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

懵了！没有方向 发帖心情

Post By：2020/9/10 15:06:00 [显示全部帖子]

现在单子上的二维码扫出来的字符是标准的JSON，很好调用。

{"D":"DL0859020090409","S":"S-00008590","W":"1400DPDP","I":[{"I":"23928550","N":"480.0","P":"20200904"},{"I":"23928552","N":"480.0","P":"20200904"},{"I":"24510382","N":"96.0","P":"20200904"},{"I":"24513058","N":"96.0","P":"20200904"}]}

Dim jsonStr=e.Form.Controls("TextBox1").value

Dim jo As JObject = JObject.Parse(jsonStr)

e.Form.Controls("Label1").text=jo("W").Tostring

Dim ja As JArray = jo("I")

Dim msg0 As String=""

Dim msg1 As String=""

For i As Integer = 0 To ja.Count - 1

Dim jo2 As JObject =ja(i)

msg0 = jo2("I").Tostring

msg1 = jo2("N").Tostring

Tables("test_Table1").AddNew()

Dim r As Row = Tables("test_Table1").Current

r("第一列") = msg0

r("第二列") = msg1

石四

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2020/9/10 15:10:00 [显示全部帖子]

对方系统准备升级，单子的二维码扫出来变成这种形式：

S1911150593,5500000708,0XR52544,1001-101,R0,5080F-5101101,50.0,20191115,R0,5080F-5101102,50.0,20191115,R0,5080F-5202101,60.0,20191115,R0,5080F-5202102,60.0,20191115,R0,5080F-5205010,50.0,20191115,R0,5080F-5205201,87.0,20191115,

完全不是一个标准的JSON，怎么处理？完全不知从哪下手》

RO相当原来的I那部分。

石四

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2020/9/10 15:50:00 [显示全部帖子]

不需要接口，但是怎么取值呢？

有办法拆分成这个结果吗？

S1911150593,

5500000708

0XR52544

1001-101

R0,5080F-5101101,50.0,20191115

R0,5080F-5101102,50.0,20191115

R0,5080F-5202101,60.0,20191115

R0,5080F-5202102,60.0,20191115

R0,5080F-5205010,50.0,20191115

R0,5080F-5205201,87.0,20191115

石四

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2020/9/11 9:13:00 [显示全部帖子]

Thanks

石四

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2020/9/11 9:15:00 [显示全部帖子]

Dim Multi As String = "S1911150593,5500000708,0XR52544,1001-101,R0,5080F-5101101,50.0,20191115,R0,5080F-5101102,50.0,20191115,R0,5080F-5202101,60.0,20191115,R0,5080F-5202102,60.0,20191115,R0,5080F-5205010,50.0,20191115,R0,5080F-5205201,87.0,20191115,"

Multi = Multi.Trim(",")

Dim Values() As String

Values = Multi.split(",")

For Index As Integer = 1 To (Values.Length - 5)/4

Output.Show(Values(Index * 4+1))

Output.Show(Values(Index * 4+2))

幸好我数学及格

下一主题 >> << 上一主题

主题：懵了！没有方向